19 şubat 2010 - Uygulama 01

program ortalama;
const gecer=70;
var test1, test2:integer;
ort:real;
cevap:integer;
vize:text;

procedure not1 (var vize1, vize2:integer);
var cevap:char;
begin {not1}
writeln('iki vize notunu giriniz');
readln(vize1,vize2);
writeln('notlariniz:', vize1, vize2);
writeln('dogrumu? (E/H)');
readln(cevap);

if cevap <> 'E' then
begin
writeln('yeniden giriniz:');
readln(vize1,vize2);
end;
end;


procedure mesaj (ort:real);
begin
writeln('ortalamaniz=',ort:7:2);
writeln('gecmeniz icin gereken not', gecer);
if ort>= gecer then
writeln('basarili')
else
writeln('basarisiz');
end;

{program ana bloğu başlangici}
begin
writeln('kac vize notunuz var');
readln(cevap);
if cevap<>2 then
writeln('iki vize notu gerekli')
else
begin
not1 (test1, test2);
ort:= (test1+test2)/2;
mesaj (ort);
end;
readln;
end.