tresc zadania:Napisz program ktory bedzie wyliczal sposrod "N" Podanych liczb ilosc liczb parzystych oraz ilosc liczb nieparzystych podajac ich sume oraz srednia.
Prosze kogos o pomoc!! Kto umie to rozwiazac???

justyna napisał/a

Prosze kogos o pomoc!! Kto umie to rozwiazac???

Na kiedy to potrzebujesz? Wieczorem moge napisac, teraz jestem kompletnie wycienczony...

PS. Liczby ma podawac uzytkownik, czy moga byc losowe?

Mam to zadanie na srode Bylam bym bardzo wdzieczna o napisanie:)

justyna napisał/a

Mam to zadanie na srode Bylam bym bardzo wdzieczna o napisanie:)

Dzisiaj wieczorem to napisze, dopiero wstalem...

Nie ma sprawy:) Czekam

Stworzylem cos takiego.

Kod

program liczby; uses crt; const N = 15; var i, lnp, lp: byte; var t: array[1..N] of integer; var sumap, sumanp: integer; var srp, srnp: real; begin clrscr; writeln('Program wypisuje ilosc liczb parzystych oraz nieparzystych z N ilosci pseudolosowych liczb, podajac rowniez ich sume oraz srednia wartosc. Wcisnij dowolny klawisz.'); repeat until keypressed; lnp := 0; lp := 0; sumap := 0; sumanp := 0; for i := 1 to N do begin t[i] := random(500); end; for i := 1 to N do begin if t[i] mod 2 = 0 then begin lp := lp + 1; sumap := sumap + t[i]; end else begin lnp := lnp + 1; sumanp := sumanp + t[i]; end end; srp := sumap / lp; srnp := sumanp / lnp; writeln('Ilosc liczb parzystych to: ',lp); writeln('Ilosc liczb nieparzystych to: ',lnp); writeln('Suma wartosci liczb parzystych to: ',sumap); writeln('Suma wartosci liczb nieparzystych to: ',sumanp); writeln('Srednia wartosc liczby parzystej to: ',srp); writeln('Srednia wartosc liczby nieparzystej to: ',srnp); repeat until keypressed; end.

Nie wiem czy odpowiada to Twoim wymaganiom, malo spie i ciezko mi sie mysli Jesli cos ma byc inaczej, pisz - poprawimy.

a to dlatego byles offline

[ Komentarz dodany przez: michaelxp91: 2007-12-11, 00:19 ]
ee? when?

Stworzylem cos takiego.

Bardzo ci dziekuje!!! Uratowales mi zycie!!:) jeszcze mialam napisac do tego schemat blokowy:( ale jak ci sie nie chce to moze jakos sama napisze. Ale zapytac moge czy mi jeszcze napiszesz:) Pozdrawiam i jeszcze raz dziekuje Jestes Wielki:D

[ Dodano: 2007-12-11, 09:54 ]
Stworzylem cos takiego.

writeln('Program wypisuje ilosc liczb parzystych oraz nieparzystych z N ilosci pseudolosowych liczb, podajac rowniez ich sume oraz srednia wartosc. Wcisnij dowolny klawisz.');

mam maly problem z tym zdaniem:( Bo sprawdzalam sobie w turbo pascalu to zadanie i wszystko bylo ok tylko mi pisze ze to zdanie jest za dlugie! I nie wiem co robic! Pmoz :(

justyna napisał/a

Bo sprawdzalam sobie w turbo pascalu to zadanie i wszystko bylo ok tylko mi pisze ze to zdanie jest za dlugie!

Nie wiem, nie mam Turbo Pascala na Free Pascalu dziala bez zarzutow. Zamien wiec tamta linie writeln na takie:

Kod

write('Program wypisuje ilosc liczb parzystych oraz nieparzystych z N '); write('ilosci pseudolosowych liczb, podajac rowniez ich sume oraz srednia wartosc. '); writeln('Wcisnij dowolny klawisz.');

Daj znac jak dziala

justyna napisał/a

jeszcze mialam napisac do tego schemat blokowy:( ale jak ci sie nie chce to moze jakos sama napisze. Ale zapytac moge czy mi jeszcze napiszesz:)

Bez problemu, ale na kartce Nie wiem, teraz tez dopiero ze szkoly przyszedlem, wieczorem postaram sie wrzucic cos w obrazku.

justyna napisał/a

Jestes Wielki:D

178.5cm

Nie wiem, nie mam Turbo Pascala na Free Pascalu dziala bez zarzutow. Zamien wiec tamta linie writeln na takie:

Nie wiem dalej mi nie chce dzialac ale pewnie mam cos nie tak z turbo pascalem> A to zadanie napewno jest dobrze
DZIEKUJE DZIEKUJE DZIEKUJE DZIEKUJE DZIEKUJE
a co do tego schematu to czekam i tez bardzo dziekuje
A co do wielkosci to sie nie pomylilam :p

michaelxp91 napisał/a

178.5cm

Nie za wielki urosles?