Anonymní profil Griendor – 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ť ?