HELP! Problem z Pascalem! HELP!

06.06.2004

09:21

[1]

Jerryzzz [ Senator ]

HELP! Problem z Pascalem! HELP!

Witam forumową brać! Dostałem na informatykę zadanie z programowania: napisać program w pacalu, który poda oceny z

każdego przedmiotu i wyliczy z nich średnią. No i wszystko jest spoko. Wiem jak dodać wszystkie liczby, ale jak wyliczyć z

nich średnią to już nie za bardzo. Średnią ocen ma oznaczać zmienna: srednia3 No ale chyba nie można napisać czegoś

takiego (zmienna srednia to suma wszystkich ocen):

srednia3:=srednia: 11;

bo wtedy wywala mi błąd Error 85: ";" expected.

To znaczy, że do dzielenia jest jakiś inny znak? Help! Tu jest kod źródłowy:

program srednia2;
uses crt;
var
srednia,srednia3, polski, matematyka, angielski, geografia, niemiecki_2, informatyka, biologia,
w_f, fizyka, historia, chemia: integer;
imie: string;
begin
writeln ('Podaj swoje imie i nazwisko: ');
read (imie);
writeln;
writeln ('Podaj ocene z matematyki: ');
read (matematyka);
writeln ('Podaj ocene z j. angielskiego: ');
read (angielski);
writeln ('Podaj ocene z geografii: ');
read (geografia);
writeln ('Podaj ocene z j. polskiego: ');
read (polski);
writeln ('Podaj ocene z j. niemieckiego: ');
read (niemiecki_2);
writeln ('Podaj ocene z informatyki: ');
read (informatyka);
writeln ('Podaj ocene z bologii: ');
read (biologia);
writeln ('Podaj ocene z w-fu: ');
read (w_f);
writeln ('Podaj ocene z historii: ');
read (historia);
writeln ('Podaj ocene z fizyki: ');
read (fizyka);
writeln ('Podaj ocene z chemii: ');
read (chemia);
writeln (' ');
writeln (' ');
writeln (imie);
writeln ('---------------------------');
readln;
write ('Matematyka: '); writeln (matematyka);
write ('J. angielski: '); writeln (angielski);
write ('Geografia: '); writeln (geografia);
write ('J. polski: '); writeln (polski);
write ('J. niemiecki: '); writeln (niemiecki_2);
write ('Informatyka: '); writeln (informatyka);
write ('Biologia: '); writeln (biologia);
write ('W-F: '); writeln (w_f);
write ('Historia: '); writeln (historia);
write ('Fizyka: '); writeln (fizyka);
write ('Chemia: '); writeln (chemia);
writeln ('--------------------------- ');
srednia:=matematyka+angielski+geografia+polski+niemiecki_2+informatyka+biologia+w_f+historia+fizyka+chemia;
writeln ('Srednia ocen: ');
writeln (srednia);

delay (5000);
end.

06.06.2004

09:25

[2]

-imperator- [ spamer ]

dzieli się znakiem / :)