Osman Kılıç

31 Oca 2012 @ 8:58 PM

3 kere yanlış şifre girilince devam etmek ister msiniz? diye soran program.

uses crt;
var
i,sifre:integer;
devam:string;
begin
clrscr;
i:=1;
devam:=’e’;
while (devam=’e’) do begin
i:=i+1;
writeln(‘şifreyi girin:’);readln(sifre);
if(sifre=123)then begin
write(‘Hoşgeldin’);break;end
else
writeln(‘tekrar dene’);
if(i>3)then begin
writeln(‘devam etmek istermisiniz:e/h’);
devam:=readkey;
if(devam=’h’)then halt; i:=1; end;
end;
readln;
end.

Kategori: Pascal Programlama Konu Sahibi: NIKIMLOSAC
En son düzenleme: 31 Oca 2012 @ 08 58 PM

Email • Permalink

Konu Hakkında

Kategoriler

Sayfalar

En Çok Okunan

Son Açılan Başlıklar

Açıklama

3 kere yanlış şifre girilince devam etmek ister msiniz? diye soran program.

Responses to this post » (None)

Post a Comment

Pascal Örnekleri

Wp eklenti listesi