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;
Mutlu Yılmaz
Mutlu Yılmaz, şu an Kırıkkale Üniversitesinde Bilgisayar ve Öğretim Teknolojileri Öğretmenliği okuyor. Bilgilerini Sanalkurs'ta paylaşmayı sürdürecek.
Yorum Yaz

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

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.
yorumunuz için teşekkürler...

Yukarı Git