UYGULAMA-9 22 EKİM

Klavyeden sınıtaki öğrenci sayısı girilen bir sınıfın öğrencilerinin başarı durumlarının geçti(G)/kaldı(K) şeklinde girilmesi ve sınıfı kaç kişinin geçip kaç kişinin kaldığının ekrana yazdırılması.

----------------------------------------------------------------------------------

program basari;
var gecensayisi, kalansayisi, ogrencisayisi, i, j :integer;
basariDurumu: CHAR;

BEGIN

WRITELN ('ogrenci sayisini giriniz:');
READLN (ogrencisayisi);

gecensayisi :=0;
kalansayisi :=0;

for i:=1 to ogrencisayisi do
begin

writeln (i, 'ogrencilerin basari durumunu yaziniz (G/K):');
readln (basariDurumu);

if (basariDurumu = 'G') then
gecensayisi := gecensayisi + 1

else if (basariDurumu = 'g') then
gecensayisi := gecensayisi + 1

else if (basariDurumu = 'K') then
kalansayisi := kalansayisi+1

else if (basariDurumu = 'k') then
kalansayisi := kalansayisi+1

end;

writeln ('gecenlerin sayisi :' ,gecensayisi :8);
writeln ('kalanlarin sayisi :' ,kalansayisi :8);
writeln ('iyi tatiller');

READLN;

END.