10.12 Zobrazení dotazu na opakování programu
Zadání:
Sestavte program, který zobrazí dotaz na opakování programu.
Sestavte program, který zobrazí dotaz na opakování programu.
Řešení:
V programu využijeme knihovnu console, která obsahuje funkci readkey. Tato funkce načítá stisknutý znak
na klávesnici. Vzhledem k tomu, že některé klávesy posílají do počítače nejprve nulový znak, musíme sejmutý
znak z klávesnice otestovat, popřípadě načíst další znak.
V programu využijeme knihovnu console, která obsahuje funkci readkey. Tato funkce načítá stisknutý znak
na klávesnici. Vzhledem k tomu, že některé klávesy posílají do počítače nejprve nulový znak, musíme sejmutý
znak z klávesnice otestovat, popřípadě načíst další znak.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, console;
var z:char;
begin
repeat
writeln('**********************************');
writeln('Opakovat program? (A,a,enter) ');
z:=readkey;
if z=#0 then z:=readkey;
until (upcase(z)<>'A') and (z<>#13);
end.
program ke stažení