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

admin30.06.2012 - 04:52
3 kere yanlış şifre girilince devam etmek ister msiniz? diye soran program.


Kod: [Seç]
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.


Linkback: https://www.buyuknet.com/3-kere-yanlis-sifre-girilince-devam-etmek-ister-msiniz-diye-soran-program-t38136.0.html

Etiket:

Bu bilgi size yardimci oldu mu?

EvetHayır
3 kere yanlış şifre girilince devam etmek ister msiniz? diye soran program.
3 kere yanlış şifre girilince devam etmek ister msiniz? diye soran program.
(Ortalama: 5 üzerinden 2.5 - 2 Oy)
2