banjalukaforum.com • Pogledaj temu

Pogledaj neodgovorene postove | Pogledaj aktivne teme

Index boarda » Računari i Internet » Programiranje

Sva vremena su u UTC [ DST ]

Pascal-zadaci!

Stranica 1 od 1

[ 5 Posta ]

Pogled za štampu

Prethodna tema | Sledeća tema

Autoru

Poruka

Blind_Guardian

Tema posta: Pascal-zadaci!

Poslato: 05 Jun 2006, 01:49

Majstor

Pridružio se: 19 Dec 2005, 01:29
Postovi: 618
Lokacija: Burkittsville

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!

_________________
Born in grief, raised in hate,
Helpless to defy his fate,
Let him run, let him live,
But do not forget what we cannot forgive!

Vrh

Vertygo

Tema posta:

Poslato: 05 Jun 2006, 16:57

Majstorski kandidat

Pridružio se: 12 Jul 2001, 01:00
Postovi: 457
Lokacija: Banjaluka

Za nekoga ko slusa Blind Guardian stvarno sramota !
I definitivno moramo uvesti nekakav red sto se tice ovakvih postova ...

_________________
Ivan M.

Vrh

Vertygo

Tema posta:

Poslato: 05 Jun 2006, 17:29

Majstorski kandidat

Pridružio se: 12 Jul 2001, 01:00
Postovi: 457
Lokacija: Banjaluka

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

_________________
Ivan M.

Vrh

Blind_Guardian

Tema posta:

Poslato: 05 Jun 2006, 22:56

Majstor

Pridružio se: 19 Dec 2005, 01:29
Postovi: 618
Lokacija: Burkittsville

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

_________________
Born in grief, raised in hate,
Helpless to defy his fate,
Let him run, let him live,
But do not forget what we cannot forgive!

Vrh

lemi_93

Tema posta: Re: Pascal-zadaci!

Poslato: 01 Dec 2010, 19:21

Majstor

Pridružio se: 19 Jul 2010, 16:56
Postovi: 846

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

Vrh

Stranica 1 od 1

[ 5 Posta ]

Index boarda » Računari i Internet » Programiranje

Sva vremena su u UTC [ DST ]

Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 1 gost

Ne možete postavljati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete monjati vaše postove u ovom forumu
Ne možete brisati vaše postove u ovom forumu
Ne možete slati prikačene fajlove u ovom forumu

Idi na: