VibeUK

Dokladnie, druga opcja jest ok, znalazlem 10 min temu w innym poradniku dla poczatkujacych. Begin REPEAT Pytanie; IF wpis=psw THEN Begin Dobrze; End Else begin Zle; end; UNTIL wpis=psw; end. ...kompiluje sie ok. Dzieki wielkie. Tematu nie zamykam bo pewnie za 2h znow cos wyskoczy ;)

Witam, Poczatki PASCAL'a, sporo rzeczy zrozumialem ale nie czaje skladni najwyrazniej. Const psw='pupa'; Var wpis:string; PROCEDURE Pytanie; Begin ClrScr; Writeln('I-------------------------------------------I'); Writeln('I PODAJ HASLO I'); Writeln('I I'); Writeln('I I'); Writeln('I-------------------------------------------I'); GotoXY(8,3); ReadLn(wpis) End; PROCEDURE Zle; Begin ClrScr; Writeln('I-------------------------------------------I'); Writeln('I ZLE HASLO!!! I'); Writeln('I ZLE HASLO!!! I'); Writeln('I ZLE HASLO!!! I'); Writeln('I-------------------------------------------I'); End; PROCEDURE Dobrze; Begin ClrScr; Writeln('I-------------------------------------------I'); Writeln('I I'); Writeln('I HASLO PRAWIDLOWE!!! I'); Writeln('I I'); Writeln('I-------------------------------------------I'); End; Begin REPEAT Pytanie; IF wpis=psw THEN Begin Dobrze; End; ELSE begin Zle; end; UNTIL wpis=psw; end. Dlaczego ELSE nie moze byc uzyte jak w przykladzie wyzej? Jak wykonac procedure Zle jesli wpisane haslo=/=pupa? Wiem, ze ten program mozna napisac inaczej ale chodzi mi wlasnie o uzycie ELSE. Dzieki I sorry za (pewnie glupie) pytanie :)