[Pascal] Problem z programem

[arturb]

Napisałem sobie taki oto program:

program Rejestracja;
var
 n, h, h2, m, k2 : String;
const
 k = 'abcxyz';
begin
 writeln ('Teraz zarejestrujesz nowe konto!');
 writeln ('Podaj nazwe uzytkownika');
   readln (n);
 writeln ('Podaj haslo');
   readln (h);
 writeln ('Powtorz haslo');
   readln (h2);
 if h2 = h then
   writeln ('Haslo prawidlowe!')
 else
   begin
  writeln ('Haslo nieprawidlowe!');
  readln;
  end.
   end;
 writeln ('Podaj adres e-mail');
 readln (m);
 writeln ('Kod to abcxyz ');
 writeln ('Przepisz kod');
 readln (k2);
 if k2 = k then
   writeln ('Kod prawidlowy!')
 else
   begin
  writeln ('Kod nieprawidlowy!');
  readln;
  end.
   end;
 writeln ('Rejestracja zakonczona!');
 writeln ('Twoje dane logowania to:');
 writeln (' ');
 writeln ('NAZWA UZYTKOWNIKA:');
 writeln (n);
 writeln ('HASLO: ');
 writeln (h);
 writeln ('ADRES E-MAIL:');
 writeln (m);
readln;
end.

ale mam z nim problem, a mianowicie nie przerywa on działania, mimo tego, że hasło (lub kod, jest z nimi taka sama sytuacja) jest nieprawidłowe. Co mam dopisać po instrukcji else, aby kończył on działanie? Like za pomoc

[Zkumeku]

Enda z kropką dajesz tylko na końcu programu. W każdym innym wypadku kończysz go średnikiem, oraz masz ich trochę za dużo?

 

To:

begin
	  writeln ('Haslo nieprawidlowe!');
	  readln;
	  end.
end;

 

zmień na:

begin
	  writeln ('Haslo nieprawidlowe!');
	  readln;
end;

 

Taki sam błąd masz tam dalej ze sprawdzaniem kodu.

 

Wyłączenie programu powoduje bodajże komenda halt o ile dobrze pamiętam:

Halt;

 

czyli np w twoim przypadku przy przepisaniu hasła:

begin
	  writeln ('Haslo nieprawidlowe!');
	  readln;
	  Delay(3000)
	  Halt;
end;

[arturb]

@Zkumeku

Wielki dzięki

 

Temat do zamknięcia