Witam oto kod programu w turbo pascalu
Uses CRT;
Const
haslo='Pascal';
Var
wprowadz:String;
petla:byte;
Begin
REPEAT
ClrScr;
GotoXY(31,12);
Write('Podaj haslo : ');
ReadLn(wprowadz);
IF petla=4 THEN
REPEAT
ClrScr;
GotoXY(31,12);
Write('Access Denied !');
Sound(3160);
Delay(500);
Sound(3190);
Delay(500);
UNTIL 1=2;
petla:=petla+1;
UNTIL wprowadz=haslo;
{ Haslo poprawne, dalsza część programu }
End.
Mój problem polega na tym że nie rozumiem o co chodzi
z tą zmienną "petla"
Wiem że na początku program każe powtarzać się aż zostanie
wpisane prawidłowe hasło i jednocześnie gdy jest podane
złe dodaje do zmiennej "petla" 1 i w momencie gdy "petla" będzie wynosić
4 program wypisze Access Denied.
Mi chodzi i o to że nie wiem skąd program wie kiedy "petla"
wynosi 4. Wiem że za każdym razem dodaje +1, ale ile
ta zmienna wynosi na początku skoro nie ma tego podanego?
Czy jest to 0?
proszę o odpowiedź!
Uses CRT;
Const
haslo='Pascal';
Var
wprowadz:String;
petla:byte;
Begin
REPEAT
ClrScr;
GotoXY(31,12);
Write('Podaj haslo : ');
ReadLn(wprowadz);
IF petla=4 THEN
REPEAT
ClrScr;
GotoXY(31,12);
Write('Access Denied !');
Sound(3160);
Delay(500);
Sound(3190);
Delay(500);
UNTIL 1=2;
petla:=petla+1;
UNTIL wprowadz=haslo;
{ Haslo poprawne, dalsza część programu }
End.
Mój problem polega na tym że nie rozumiem o co chodzi
z tą zmienną "petla"
Wiem że na początku program każe powtarzać się aż zostanie
wpisane prawidłowe hasło i jednocześnie gdy jest podane
złe dodaje do zmiennej "petla" 1 i w momencie gdy "petla" będzie wynosić
4 program wypisze Access Denied.
Mi chodzi i o to że nie wiem skąd program wie kiedy "petla"
wynosi 4. Wiem że za każdym razem dodaje +1, ale ile
ta zmienna wynosi na początku skoro nie ma tego podanego?
Czy jest to 0?
proszę o odpowiedź!
