--> Archiwum Forum
Hitman14 [ Bad N Fluenz ]
Pascal - czy ten program działa?
Mam prośbę - czy ktoś, kto ma kompilator Pascala, mógłby wrzucić do niego to, co jest na dole i sprawdzić, czy nie ma żadnych błędów itp.?
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('Nieprawidlowe haslo!');
Sound(3160);
Delay(500);
Sound(3190);
Delay(500);
UNTIL 1=2;
petla:=petla+1;
UNTIL wprowadz=haslo;
End.
Kainek [ Konsul ]
niby dziala
Kane [ bladesinger ]
IF petla=4 THEN
UNTIL 1=2
zastanow sie nad tymi dwoma liniami. skad te 4? i jak se wyobrazasz ze 1=2 kiedys sie spelni?
ps kompilatora nie mam.
Hitman14 [ Bad N Fluenz ]
Noo... Wytłumaczono mi na forum jakiś czas temu, że to oznacza, że gdy hasło zostanie wpisane błędnie po raz czwarty, to środek programu się zapętli, czy jakoś tak. ;)
1=2 - czyli wtedy gdy 1=2, czyli nigdy - program ma się niby zapętlić w nieskończoność.
Ważne, żeby program działał, nieważne jak śmiesznie jest napisany. :)
grish_em_all [ Hairless Cobra ]
Funkcjonować to będzie w ten sposób:
jeżeli zostanie podane prawidłowe hasło - program się zakończy.
jeżeli 4 razy błędnie wprowadzi się hasło - program w nieskończoność będzie wyć przy pomocy dwóch dźwięków, aż użytkownik dostanie cholery i rozpieprzy to pudło.
Czy taki był zamysł programisty? Jeżeli tak - program będzie działać.
Hitman14 [ Bad N Fluenz ]
program w nieskończoność będzie wyć przy pomocy dwóch dźwięków, aż użytkownik dostanie cholery i rozpieprzy to pudło.
Yeah, baby! O to chodziło! :D
Dzięki wszystkim za odpowiedzi.