For döngüsü kullanımı

Bu dersimizde basit bir for döngüsü kullanımını görelim.

Bu dersimizde basit bir for döngüsü kullanımını görelim.


program banka_ornegi;



{$APPTYPE CONSOLE}



uses

  SysUtils;



label git;

var

sayac,sayi:integer;

q:char;



begin

writeln('Bankamiza Hosgeldiniz. Sira Almak İcin "Enter" Tusuna Basmalisiniz.');

readln;               git:

for sayac :=1 to 4 do

begin

  writeln(sayac,'.','numara, lutfen ilgili banka veznemize gidiniz.');

if sayac=4 then

begin

  writeln('Bekleyen Müsteri Var Mi? E/H ');

readln(q);

if q='E' then goto git

else

writeln('Tekrar Gorusmegi Dileriz.');

readln;





end;

end;



end.



  • Etiketler;
Mutlu Yılmaz
Mutlu Yılmaz, şu an Kırıkkale Üniversitesinde Bilgisayar ve Öğretim Teknolojileri Öğretmenliği okuyor. Bilgilerini Sanalkurs'ta paylaşmayı sürdürecek.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git