07-09-2015, 04:16 PM
Bu dersimizde basit bir for döngüsü kullanımını görelim
Kod:
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.
Kod:
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.
Temelllerini sağlam atarsan bir Dağ sağlam atamassan bir ova gibi olursun.