- Katılım
- 12 Eylül 2014
- Mesajlar
- 167
- Tepkime puanı
- 0
- Puanları
- 0
Bu dersimizde basit bir for döngüsü kullanımını görelim
Kod:
[/FONT][/COLOR][COLOR=#B5B5B5][FONT=tahoma]program banka_ornegi;[/FONT][/COLOR]
{$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;
[COLOR=#B5B5B5][FONT=tahoma]end.[/FONT][/COLOR][COLOR=#B5B5B5][FONT=tahoma]