Pascal zadaci ako moze neko da pomogne stvarno je hitno
STRANA 1 OD 1
Petar89
Pascal zadaci ako moze neko da pomogne stvarno je hitno
14.06.2007. 16:00
T4716
status: user broj poruka: 423
1)Napisati program koji izracunava prozivod brojeva od N do N 2)-II- koji izracunava zbir svih brojeva A niza koji su deljivi sa 7 3)-II- koji izracunava sumu svih clanova A niza koji su pozitivni
1. varijabla za proizvod (pr), doeljujes joj pocetno 1 (0 puta nesto=0). Petlja (for) od 1 do n (varijabla n, ucitaas na pocetku programa) u kojoj mnozis pr sa prethodno unetim brojem (jos jedana var).
2. A = array [1..nesto] of integer. var zbir - pocetno 0 (sabiras)
petlja-for (i=1 to ...) od 1 do A, ako je A[i] mod 7 = 0 onda zbir=zbir+a[i]
program proizvod. var i,n:integer. x,Pr:real. begin writeln(`n=`). readln(n). writeln(`x=`). readln(x). Pr:=1. for i:=1 to n do begin Pr:=Pr*x. end. writeln(`Pr=`,Pr:10:2). end.
Nema se sta odadati, dakle za mumacije se ide sa inicijalnom vrednoscu 0, za proizvode sa 1
M i G
:: :: 1. varijabla za proizvod (pr), doeljujes joj pocetno 1 (0 puta nesto=0). Petlja (for) od 1 do n (varijabla n, ucitaas na pocetku programa) u kojoj mnozis pr sa prethodno unetim brojem (jos jedana var) :: :: 2. A = array [1..nesto] of integer :: var zbir - pocetno 0 (sabiras :: :: petlja-for (i=1 to ...) od 1 do A, ako je A[i] mod 7 = 0 onda zbir=zbir+a[i :: :: 3. je slicno samo ako je a[i]>0 .. :: :: ::
Analizirajmo sta tvoje programce radi: unosis 2 broja (ceo i realni) kao globalne promenljive. U okviru proste petlje n puta mnozis pr sa x: 1 prolaz: pr=1*x 2 prolaz: pr=x*x 3 prolaz: pr=x*x*x ... i-ti prolaz pr=x na i
n-ti prolaz: pr=x na n
Na kraju se to ispisuje...
Kako mi se cini to nije ono sto je trazeno, mada i nije sasvim jasna postavka sta znaci proizvod od n do n???
2. zad. ako je ostatak pri deljenju sa 7 jednak nuli, znaci broj je deljiv pa na pocetno stanje recimo dodajes taj element u uslovu then, else gran ti ne treba
3. zad. dakle, samo pitas da li je clan veci od nule i isto kao za zad2
Sveu svemu nista oko cega se moze lupati glava! Ja sam Pascal odavno batalio, samo C++ i Java
M i G
:: da li moze ovako da se uradi primer :: :: program proizvod :: va :: i,n:integer :: x,Pr:real :: begi :: writeln(`n=`) :: readln(n) :: writeln(`x=`) :: readln(x) :: Pr:=1 :: for i:=1 to n d :: begi :: Pr:=Pr*x :: end :: writeln(`Pr=`,Pr:10:2) :: end :: :: ::
Jedino ako je mislila od n do n na kvadrat. Jer se u postavci nigde ne pominje neka druga promenljiva osim n a da nije tipa pomocnih (x to nije). Ili je mislila na proizvod od 1 do n tj. 1*2*3*4*5...*n
M i G
:: meni isto nije jasno sta mojoj profesorki iz informatike to znaci od n do n, ovo ostalo mi je jasn :: :: ::
Evo kako bi to bilo u Basic-u, samo prevedi u Pascal
15.06.2007. 14:52
#21779
status: user broj poruka: 45
1. Trazi se proizvod brojeva od nekog do nekog broja. Kako sam shvatio ako npr imas broj 2 i broj 5 , znaci trazi se: 2 x 3 x 4 x 5 = 120
U BASIC-u: *********** Input a ` Trazi od korisnika da upise 1. broj Input b ` Trazi od korisnika da upise 2. broj rezultat = 1 ` postavljas inicijalnu vrednost za varijablu `rezultat` na 1 da ne bi mnozio sa nulom For n=a to b rezultat = rezultat * n Next ` Petlja koja izracunava vrednost Print rezultat ` Ispisuje resultat na ekran **************
Broj postavljenih tema: 60286. Broj poslatih odgovora: 646204. Trenutno niste prijavljeni na PC Berzu i zbog toga imate status 'gosta'. Kao gost ne možete da šaljete poruke na Forum. Ako ste registrovani kao član PC Berze, prijavite se. Ako ste novi korisnik, molimo registrujte se da bi dobili mogućnost aktivnog učešća u radu Foruma.
