|
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var odgovor,o1:char;
predmet:string;
ocena,zbir,n,i:integer;
prosek:real;
begin
n:=0;
zbir:=0;
REPEAT
Writeln('Unosite ocenu iz?');
readln(predmet);
writeln('Unesite ocene iz matematike ',predmet);
REPEAT
readln(ocena);
zbir:=zbir+ocena;
n:=n+1;
writeln('Jos?');
readln(o1);
UNTIL (o1='n') or (o1='n');
writeln('Zelite da unesete ocenu iz jos nekog predmeta?(D/N)');
readln(odgovor);
UNTIL (odgovor='n') or (odgovor='N');
prosek:=zbir/n;
writeln(prosek:0:2);
i := ROUND(10*prosek);
CASE i OF
0..14:Writeln('nedovoljan');
15..24:Writeln('dovoljan');
25..34:Writeln('dobar');
35..44:Writeln('vrlo dobar');
45..50:Writeln('odlican');
end;
readln
end.
Nisam ogranicavao ocene ok 1..5, tako da ako kotisnik unese pogresno, program nastavlja... Potrebna je po jedna if naredba u repeat-u.
|
