Bir programa basitçe şifre koyma

Başlangıç düzey kesimine hitap eden bu örnekte çalışmamıza şifre koymayı göreceğiz.

Başlangıç düzey kesimine hitap eden bu örnekte çalışmamıza şifre koymayı göreceğiz.


program programa_sifre_koyma;



{$APPTYPE CONSOLE}







const dsifre=123321;

label devamet,basadon;

var

x,y:string;

sifre:longint;

procedure str(a:string; b:string);

begin

  writeln;

  a:='Hosgeldiniz';

  write(a);

end;

begin

 writeln('Programi gorebilmek icin dogru sifre girmelisiniz.Lutfen sifre giriniz.');

 readln(sifre);

 if sifre=dsifre then

 begin

 writeln('Sifreniz teyit edilmistir.');

 goto devamet;

 end



 else

 writeln('Uzgunuz,yanlis sifre!');

 readln;

 exit;





 devamet:

 str(x,y);

 readln;

end.

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 7 yıl önce
Sayın hocam yararlı bir ders paylaşımda bulunmuşsunuz. Yalnız bu yöntem ddos şifreleme yöntemidir . Ben inputbox yöntemini daha kullanışlı buluyorum en azından delphinin kendi applicationunu çalıştırmakta . Genede elinize sağlık yeni başlayan arkadaşlara yararlı olacak bir bilgidir.
• 7 yıl önce
yorumunuz için teşekkürler...

Yukarı Git