Soru 07: N adet öğrencinin kız-erkek kontrolünü yapan program

 

{Girilen N adet öğrenciden kız ve erkek olanların sayısını bulan

program kiz_erkek_sayi;

uses crt;

label soru;

var

  n, i, erkek, kiz:integer;

  cinsiyet:char;

begin

  clrscr;

  write('Öğrenci sayısını giriniz :');

  readln(n);

  for i:=1 to n do

    begin

soru: write(i,'. öğrencinin cinsiyeti (E/K) :');

      cinsiyet:=readkey;

      writeln(cinsiyet);

      if (cinsiyet='E') or (cinsiyet='e') then erkek:=erkek+1;

      if (cinsiyet='K') or (cinsiyet='k') then kiz  :=kiz  +1;

      if (cinsiyet<>'K') and (cinsiyet<>'k') and

         (cinsiyet<>'E') and (cinsiyet<>'e') then goto soru;

    end;

  writeln('Erkek öğrenci sayısı :',erkek);

  write('Kız   öğrenci sayısı :',kiz);

  readkey;

end.