Bir öğrencinin bir ders olarak Birinci dönem notu ve İkinci dönem notu girilerek ortalamasıyla yapılan Kaldı, Geçti durumunu yapan program.
uses crt;
var
ilkdonem,ikincidonem:integer;
ortalama:real;
begin
write(‘ilk dönem notunuzu giriniz:’);readln(ilkdonem);
write(‘ikinci döenm notunuzu giriniz:’);readln(ikincidonem);
ortalama:=(ilkdonem+ikincidonem)/2;
writeln(‘ortalama:’,ortalama);
if (ikincidonem<2) then
writeln(‘kaldınız’)
else
if (ortalama>1.5) then
writeln(‘geçtiniz’);
if (ortalama<1.5) then
writeln(‘kaldınız’);
readln;
end.
Linkback: https://www.buyuknet.com/bir-ogrencinin-bir-ders-olarak-birinci-donem-notu-ve-ikinci-donem-notu-girilerek-t8225.0.html