Overenie vstupu chyba – Pascal – Fórum – Programujte.com

Zdravíčko,

začal som sa učiť v pascale a neviem sa pohnúť v úlohe overenia vstupu.

Môj program vyzerá nejak takto:

uses crt;

var ch: char;

begin

  repeat

  clrscr;

  writeln('Stlacili ste A');

  writeln('Ak chces pokracovat stlac "A", ak chces ukoncit program stlac "N"');

  ch:= (upcase(readkey));

  if (ch<>'A')or(ch<>'N')

    then begin

     repeat

      clrscr;

      writeln('Stlacili ste nespravnu klavesu!');

      writeln('Ak chces pokracovat stlac "A", ak chces ukoncit program stlac "N"');

      ch:=(upcase(readkey));

     until (ch='A')or(ch='N');

    end;

  until(ch='N');

end.

Funguje takmer podľa očakávania, ale keď ho spustím a napíše mi:

Stlacili ste A

Ak chces pokracovat stlac "A", ak chces ukoncit program stlac "N"

pokračujem a stlačím n alebo a napíše mi, že som zadal nesprávnu klávesu, aj keď som zadal a alebo n.

Vedel by mi niekto pomôcť ?

tak vypisy, co se zrovna deje... co se srovnava, co je vysledek, co je celkovy vysledek

(nebo pouzij krokovani)

btw: jedna nebo dokonce obe podminky jsou blbe

Tak nejdřív asi musíš načíst klávesu a až potom psát "stlačili jste A", ne?

V té kontrolní podmínce musí být and místo or, jinak spustí pokaždé.