GRY-Online.pl --> Archiwum Forum

Pascal - czy ten program działa?

19.01.2007
14:47
smile
[1]

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.

19.01.2007
21:21
[2]

Kainek [ Konsul ]

niby dziala

19.01.2007
21:40
smile
[3]

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.

19.01.2007
21:43
smile
[4]

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. :)

19.01.2007
21:52
[5]

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ć.

19.01.2007
21:57
smile
[6]

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.

© 2000-2022 GRY-OnLine S.A.