Pascal problem :D

Ovdje idu teme koje ne spadaju ni u jednu kategoriju. Možete pisati sve i svašta.
5 post(ov)a • Stranica: 1/1.

Pascal problem :D

PostPostao/la Elektrotehnicar » 01 ožu 2015, 14:36

Znam da je Pascal početnički programski jezik i da se slabo koristi, ali mi treba za školu trenutno. Imam problem sa ovim zadatkom.

"Unesi 'n' brojeva sa tastature i izračunaj prosjek neparnih unesenih brojeva". Ja sam odradio kod, ali nikad ne dobijem tačan rezultat. Ispravite ako sam gdje pogriješio :D

Kod: Označi sve
program prosjek_neparnih;
var i,a,n,sumaN,brojN:integer;
prosjek:real;
begin
writeln('Unesi koliko zelis brojeva unijeti: ');
readln(n);
i:=1;
while i<=n do
begin
writeln('Unesi ', i, '. broj: ');
readln(a);
if(a mod 2 <> 0) then
     begin
     sumaN:=sumaN + i;
     brojN:=brojN + 1;

     end;
i:=i+1;
end;
prosjek:=sumaN / brojN;
writeln('Prosjek unesenih neparnih brojeva je : ', prosjek:0:2);
readln;
end.

Re: Pascal problem :D

PostPostao/la Elektrotehnicar » 01 ožu 2015, 14:53

Evo skontao sam da je greška da računa zbir/sumu svih a ne samo neparnih, pa podijeli sa brojem neparnih. Kako to sad odvojiti da samo neparne zbraja?

Re: Pascal problem :D

PostPostao/la Elektrotehnicar » 01 ožu 2015, 14:57

Briši ovo skontao sam...halalite :P

Re: Pascal problem :D

PostPostao/la Jasko » 01 ožu 2015, 16:22

Ma nista to je njabolje nad sam skontas.

Pozzz
Postoji 10 vrsta ljudi na zemlji. Oni koji razumiju binarni sistem i oni koji ga ne razumiju!
Posjetite moj YouTube kanal za gledanje za programiranje i druge teme oko računara.

Re: Pascal problem :D

PostPostao/la Elektrotehnicar » 08 ožu 2015, 12:11

Ma brate počeo sam i ove "teže" zadatke kontat. Nije sad problem. hvala u svakom slučaju :D


5 post(ov)a • Stranica: 1/1.

Na mreži

Trenutno korisnika/ca: / i 1 gost.