Hoşgeldin, Ziyaretçi:

Üye Ol
Yeni Tema ! Yeni temamız forumumuza hayırlı olsun.Bu konuda fikirlerinizi beyan edebilirsiniz.
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi For döngüsü
#1
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.


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi form açılışına şifre koymak Kim-Jong 0 184 09-07-2015, Saat: 09:34
Son Yorum: Kim-Jong
  Delphi'de 100'den 0'a Geri Sayım Kim-Jong 0 218 09-07-2015, Saat: 09:33
Son Yorum: Kim-Jong
  Delphİ Hesap Makinesi Programı (Kodları) Kim-Jong 0 171 09-07-2015, Saat: 09:33
Son Yorum: Kim-Jong

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri:MCTR MyBB, © 2002-2016 MyBB Group.
Desing and Coding By Mustafa SEVİM