banjalukaforum.com
https://banjalukaforum.com/

Pascal-zadaci!
https://banjalukaforum.com/viewtopic.php?f=18&t=21001		 Stranica 1 od 1
Autoru:  Blind_Guardian [ 05 Jun 2006, 01:49 ]
Tema posta:  Pascal-zadaci!
Treba mi hitno pomoc!
Da li neko moze da uradi sledeca dva zadatka:

5.S=1!+2!+....n! (funkcija)
7.S=1!+2!+...n! (procedura)

Iskreno, operisana sam od ove vrste logike.

Hvala unaprijed!
Autoru:  Vertygo [ 05 Jun 2006, 16:57 ]
Tema posta: 
Za nekoga ko slusa Blind Guardian stvarno sramota !
I definitivno moramo uvesti nekakav red sto se tice ovakvih postova ...
:)
Autoru:  Vertygo [ 05 Jun 2006, 17:29 ]
Tema posta: 
Nazalost nemam kompajler pa ne mogu sa sigurnoscu reci da li sam dobro napisao program.
Btw mozda bi umjesto integer trebao koristiti longint ...

Kod:
program TheBardSong;

var
   N, B, C : integer;
   Mnozenje, Suma : integer;

begin
   N := 0;
   B := 0;
   C := 0;
   Mnozenje := 1;
   Suma := 0;
   write('Upisite N: ');
   readln(N);

   for B := 1 to N do
   BEGIN
    for C := 1 to B do
    BEGIN
     Mnozenje := Mnozenje * C;
    END;
   Suma := Suma + Mnozenje;
   Mnozenje := 1;
   END;
writeln ('Zbir faktorijala broja N je:', Suma);
end.



Kod:
program TheBardSong;

var
   N, B, C : integer;
   Mnozenje, Suma : integer;

   procedure Rezultat(N : integer);
begin
   B := 0;
   C := 0;
   Mnozenje := 1;
   Suma := 0;

   for B := 1 to N do
   BEGIN
    for C := 1 to B do
    BEGIN
     Mnozenje := Mnozenje * C;
    END;
   Suma := Suma + Mnozenje;
   Mnozenje := 1;
   END;
writeln ('Zbir faktorijala broja N je:', Suma);
end;


begin
   N := 0;
   write('Upisite N: ');
   readln(N);
Rezultat(N);
end.


PS Mala ispravka skinuo sam compiler sa net-a i malo ispravio kod :)
Autoru:  Blind_Guardian [ 05 Jun 2006, 22:56 ]
Tema posta: 
:D

Imala sam zadatke ali nisam provjeravala pa sam htjela da budem sigurna tako da imam vise opcija. Ali imala sam kontr i dobila 5.
Zavidim ja vama....mozda i ja za koju godinu naucim nesto ako se u ovoj skoli ista moze nauciti.

p.s. otvori temu "zadaci" i tako ces se rijesiti ovih postova. Sledece godine ce meni biti od pomoci

poz
Autoru:  lemi_93 [ 01 Dec 2010, 19:21 ]
Tema posta:  Re: Pascal-zadaci!
S=1!+2!+…+N!
S=1/k+1/k+1...1/k+n
S=1+(1+2)/2!+(1+2+3)/3!...(1+2+...+N)/N!

hitno je-trebaju mi rješenja veceras

sad sam video da je prethodni post isti kao ovaj mod 1. zadatak

program faktorijali;
uses wincrt;
Var
i,n:integer;
s,p:real;
Begin
Write('unesi broj n ');
readln(n);
p:=1;
s:=0;
for i:=1 to n do
p:=p*i;
s:=s+p;
Writeln(s:4:3);
end.
ovo sam uradio u prvom (ostale ni nzm poceti) pa sta ovde ne valja
Stranica 1 od 1 Sva vremena su u UTC [ DST ]
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/