Exit code 3

[MisterWathu]

Begin

 

ClrScr;

WriteLn('PROGRAM ON');

Delay(5000);

Writeln('LOADING');

WriteLn;

Writeln;

WriteLn('klikni cos');

kliknicos1 := readkey;

 

IF kliknicos1 = awaryjny THEN

Begin

repeat

TextBackGround(Blue);

ClrScr;

TextColor(4);

WriteLn('Tryb Awaryjny');

Delay(6000);

Writeln('W tym trybie mozesz uzyc zaawansowanych fukcji');

Writeln('Jesli nie jestes upowazniony wylacz program !!!');

Writeln('Prosimy upewnic sie ze zapewniony jest ciagla energia');

Writeln('gdyz nagle wylaczenie komputera spowoduje uszkodzenie');

Writeln('danych');

Writeln;

TextColor(15);

Writeln('1.Zmien haslo');

Writeln('2.');

 

readln(menuawaryjne);

 

IF (menuawaryjne = 1) THEN

ClrScr;

Writeln('wpisz nowe haslo ');

Readln(nowehaslo);

Assign(haslotxt, 'E\Pascal\haslotxt.txt');

Rewrite(haslotxt);

Writeln(haslotxt, nowehaslo);

close(haslotxt);

 

Until menuawaryjne=00;

End;

 

 

 

 

 

End.

 

 

 

 

Chodzi o to że po zmianie hasła wyskakuje błąd.

Proszę o pomoc

[Threef]

Więcej BEGIN i END dawaj bo kompilator może się pogubić. Poza tym

Until menuawaryjne=00;

jest źle.

[MisterWathu]

Ale co trzeba poprawić ?

[Lechu4444]

Jedno 0 nie dwa.

[Threef]

Lechu mówisz poważnie? Mi się wydaje że pętla ma formę: "DO ... UNTIL", a nie "... UNTIL".

[kaszan88]

Jeśli to Pascal to powinno być repeat (kod) until.

 

A kompilator nie może się pogubić, bo maszyna się nie myli :jezor: Klamry są dla nas jako ułatwienie, ale bez wcięć to nic nie jest ułatwieniem.

[Makary155]

Exit code 3 to brak ścieżki. Wydaje mi się że brakuje dwukropka przy literze dysku, unikaj ścieżek bezwzględnych tak w ogóle.

[MisterWathu]

Ok działa, ale są drobne bugi:

(macie kod na górze) jak wpisuje nowe hasło one już się zapisuje ale gdy znowu powraca do menu awaryjnego i chcę wyjść i wpiszę 0 zapisuje się ponownie jako haslo.

 

WYSYŁAM PROGRAM E-MAILEM I DAJĘ NA GMCLAN DO MOJEGO FOLDERU

 

Pamiętajcie że żeby wejść do awaryjnego trzeba będzie kliknąć "/" NIE klikać jak nie będzie nic pisać czekajcie na komendę.

 

P.S Trzeba mieć dysk E jak ktoś nie ma to zmienię kod.

 

(Dzięki dla Makary155 iThreef)

:thumbsup: