GAECHKA
Твоя помощница в решении задач

Напишите программу, выводящую название дня недели по нажатию клавиш F1-F7

Напишите программу выводящую название дня недели по нажатию клавиш
F1-F7. Вывод каждого из дней недели производится различным цветом и
сопровождается различным звуком. Выход из программы осуществляется
при нажатии клавиши "Enter".
0
вопрос задан

Источник


2 ответа
Решение
program SounText;
 uses crt;
var
  key: char;
begin
 
repeat
textcolor(White);
writeln('Нажмите одну из клавиш от F1 до F7:');
key:=Readkey;
  case key of
  #59: begin
       textcolor(LightBlue);
       writeln('Понедельник.');
       sound(400);
       Delay(1000);
       NoSound;
       end;
  #60: begin
       textcolor(Green);
       writeln('Вторник.');
       sound(800);
       Delay(1000);
       NoSound;
       end;
  #61: begin
       textcolor(Cyan);
       writeln('Среда.');
       sound(1000);
       Delay(1000);
       NoSound;
       end;
  #62: begin
       textcolor(Red);
       writeln('Четверг.');
       sound(1600);
       Delay(1000);
       NoSound;
       end;
  #63: begin
       textcolor(Magenta);
       writeln('Пятница.');
       sound(2400);
       Delay(1000);
       NoSound;
       end;
  #64: begin
       textcolor(DarkGray);
       writeln('Суббота.');
       sound(3000);
       Delay(1000);
       NoSound;
       end;
  #65: begin
       textcolor(Yellow);
       writeln('Воскресенье.');
       sound(4000);
       Delay(1000);
       NoSound;
       end;
  end;
until key = #13;
 
end.
Поскольку 59-65 это коды символов ; ? @ A, нужно писать так
key:=Readkey;
if key=#0 then key:=Readkey//059, 060, 061, 062, 063, 064, 065