|
üç taş
uses crt;
var t,s:array[1..6]of string; tus:char; padi,kadi:string; i:integer; procedure yeni; begin clrscr;textcolor(white); textbackground(9);writeln;writeln;writeln; gotoxy(30,4);writeln('YENI KAYIT'); writeln;writeln;gotoxy(5,7); writeln('yeni kullanici adi ---> '); writeln;writeln;gotoxy(5,10); writeln('yeni sifre ---> '); writeln;writeln;writeln;textcolor(black); writeln(' sifre 6 karakterden olusmalidir ! ! '); gotoxy(29,7);readln(kadi);if kadi='' then exit; i:=1;gotoxy(28,10);repeat gotoxy((28+i),10); tus:=readkey;if tus='a' then begin s[i]:='a';write('*');i:=i+1; if i=7 then exit;end;if tus='b' then begin s[i]:='b';write('*');i:=i+1; if i=7 then exit;end;if tus='c' then begin s[i]:='c';write('*');i:=i+1; if i=7 then exit;end;if tus='d' then begin s[i]:='d';write('*');i:=i+1; if i=7 then exit;end;if tus='e' then begin s[i]:='e';write('*');i:=i+1; if i=7 then exit;end;if tus='f' then begin s[i]:='f';write('*');i:=i+1; if i=7 then exit;end;if tus='g' then begin s[i]:='g';write('*');i:=i+1; if i=7 then exit;end;if tus='i' then begin s[i]:='i';write('*');i:=i+1; if i=7 then exit;end;if tus='k' then begin s[i]:='k';write('*');i:=i+1; if i=7 then exit;end;if tus='l' then begin s[i]:='l';write('*');i:=i+1; if i=7 then exit;end;if tus='m' then begin s[i]:='m';write('*');i:=i+1; if i=7 then exit;end;if tus='n' then begin s[i]:='n';write('*');i:=i+1; if i=7 then exit;end;if tus='o' then begin s[i]:='o';write('*');i:=i+1; if i=7 then exit;end;if tus='p' then begin s[i]:='p';write('*');i:=i+1; if i=7 then exit;end;if tus='r' then begin s[i]:='r';write('*');i:=i+1; if i=7 then exit;end;if tus='s' then begin s[i]:='s';write('*');i:=i+1; if i=7 then exit;end;if tus='t' then begin s[i]:='t';write('*');i:=i+1; if i=7 then exit;end;if tus='u' then begin s[i]:='u';write('*');i:=i+1; if i=7 then exit;end;if tus='v' then begin s[i]:='v';write('*');i:=i+1; if i=7 then exit;end;if tus='y' then begin s[i]:='y';write('*');i:=i+1; if i=7 then exit;end;if tus='z' then begin s[i]:='z';write('*');i:=i+1; if i=7 then exit;end;until tus=#27; end;procedure d;begin clrscr; repeat textcolor(green);textbackground(black); write(random(9));until 1=5 end; procedure kontrol;begin clrscr; textcolor(white);textbackground(9); writeln;writeln;writeln;gotoxy(30,4); writeln('SIFRE VE KULLANICI ADI GIRISI'); writeln;writeln;gotoxy(5,7);writeln('kullanici adi ---> '); writeln;writeln;gotoxy(5,10);writeln('sifre ---> '); writeln;writeln;writeln;textcolor(black); gotoxy(24,7);readln(padi);if padi='' then exit; i:=1;gotoxy(24,10);repeat gotoxy((23+i),10); tus:=readkey;if tus='a' then begin t[i]:='a';write('*');i:=i+1;if i=7 then d;end; if tus='b' then begin t[i]:='b';write('*');i:=i+1; if i=7 then d;end;if tus='c' then begin t[i]:='c';write('*');i:=i+1;if i=7 then d;end; if tus='d' then begin t[i]:='d';write('*');i:=i+1; if i=7 then d;end;if tus='e' then begin t[i]:='e';write('*');i:=i+1;if i=7 then d;end; if tus='f' then begin t[i]:='f';write('*');i:=i+1; if i=7 then d;end;if tus='g' then begin t[i]:='g';write('*');i:=i+1;if i=7 then d;end; if tus='i' then begin t[i]:='i';write('*');i:=i+1; if i=7 then d;end;if tus='k' then begin t[i]:='k';write('*');i:=i+1; if i=7 then d;end;if tus='l' then begin t[i]:='l';write('*');i:=i+1;if i=7 then d;end; if tus='m' then begin t[i]:='m';write('*');i:=i+1; if i=7 then d;end;if tus='n' then begin t[i]:='n';write('*');i:=i+1;if i=7 then d;end; if tus='o' then begin t[i]:='o';write('*');i:=i+1; if i=7 then d;end;if tus='p' then begin t[i]:='p';write('*');i:=i+1; if i=7 then d;end;if tus='r' then begin t[i]:='r';write('*');i:=i+1; if i=7 then d;end;if tus='s' then begin t[i]:='s';write('*');i:=i+1;if i=7 then d;end; if tus='t' then begin t[i]:='t';write('*');i:=i+1; if i=7 then d;end;if tus='u' then begin t[i]:='u';write('*');i:=i+1;if i=7 then d;end; if tus='v' then begin t[i]:='v';write('*');i:=i+1; if i=7 then d;end;if tus='y' then begin t[i]:='y';write('*');i:=i+1;if i=7 then d;end; if tus='z' then begin t[i]:='z';write('*');i:=i+1; if i=7 then d;end; until tus=#27; end;begin clrscr; repeat clrscr;writeln;writeln;writeln;writeln;writeln; textcolor(red);textbackground(9);gotoxy(17,6); writeln('yesil renkli karakterler ile programi yonetin'); writeln;textcolor(white);gotoxy(30,8);writeln('ILG ILERI YENILEME'); writeln;writeln;writeln;gotoxy(32,12);writeln('ROG RAM GIRISI'); writeln;writeln;writeln;gotoxy(20,16);textcolor(re d); writeln('! ! ! cikis icin tuslay?n ! ! !'); gotoxy(37,16);textcolor(green);write('< ESC >');gotoxy(29,8); textcolor(green);write('B');gotoxy(31,12);write('P ');gotoxy(1,1); tus:=readkey;if tus='b' then yeni;if tus='p' then kontrol; if tus='w' then begin clrscr;for i:=1 to 6 do write(s[i]); readln; end; until tus=#27; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım mçin tşkrlr
|
| Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 17:26 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.