Anonymní profil Griendor – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Griendor – Programujte.comAnonymní profil Griendor – Programujte.com

 

Příspěvky odeslané z IP adresy 95.103.244.–

Griendor
Pascal › Overenie vstupu chyba
24. 11. 2013   #184319

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ť ?

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý