Kee niekto mi povedal, e sa s tm nemm a tak ponha, tak
som sa rozhodol, e ete chvu ostanem pro jednoduchch
programoch. Toto je program, ktor som urobil pri mojich zaiatkoch
a je dos inn. Vysvetlm ho po krokoch :
1.program = oznauje program, o ktor sa jedn, nijako to na
vsledn program nevplva.
2.uses Crt = zadefinovanie kninice
3.var premenn, ktor bud pouit
4.procedure = innos, ktor sa vykon pri kadom jej volan,
inak cel program by mal chodi na procedrach a funkcich
5.Samotn program
Funkcia programu: U samotn nzov hovor, e ide o zabezpeenie
potaa, ale pod dosom, pretoe je tu pouit prkaz
Checkbreak=false, a to znamen, e nie je program mon poas chodu
zastavi nijakou klvesovou skratkou, okrem resetu sa to ned. Pod
Windowsom je to vak mon, lebo program jednoducho vypnete.
Vimnite si hlavne TextColor, a TextBackground, no a Textattr,
skste prs na to ak je medzi tm rozdiel. alej je tu pouit
prkaz cyklu while. Pouva sa v tvare
while podmienka do begin
end;
priom podmienka sa najprv vyhodnot, pri repeat najprv ecko
prebehne a a potom pri until sa hodnot podmienka.
program lock;
uses Crt;
var v,t:byte;
kod:string;
procedure tien;
begin
TextColor(white);
TextBackground(black);
clrscr;
TextAttr:=112;
v:=1;
repeat
v:=v+1;
GotoXY(3,v);
Write('
');
until v=24;
end;
begin
CheckBreak:=False;
tien;
TextAttr:=27;
GotoXY(7,4);
Write('');
GotoXY(7,5);
Write(' Je mi luto, ale bez kodu to nepojde ... ');
GotoXY(7,6);
Write('');
kod:='';
if kod='ba' then write('Janojegood');
if kod='fh' then write('1234567890');
while kod<>'1234567890' do
begin
kod:='';
TextAttr:=28; GotoXY(19,12);
Write('');
GotoXY(19,13);
Write(' Write PASSWORD : ');
GotoXY(19,14);
Write(' ');
GotoXY(19,15);
Write(' ');
GotoXY(19,16);
Write(' ');
GotoXY(19,17);
Write('');
TextAttr:=27;
GotoXY(36,15);
for t:=1 to 10 do begin
kod:=kod+readkey;
write('*');
end;
end;
if kod='dd' then write('{while kod<> JohnyBravo ;}');
textAttr:=7;
clrscr;
write('OK');
end.