Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задачка с звуковыми эффектами

Автор: JoB 11.05.2006 22:22

Задано (т.е. вводится с клавиатуры) целое число А (А принадлежит [1; 36]). Получить случайное целое число В из интервала [1; 36] и напечатать сообщение, равно ли число В числу А. Предусмотреть ситуацию, когда вводимое с клавиатуры число А не удовлетворяет условию задачи. Дополнительно при равенстве числа В числу А подавать высокий звуковой сигнал (например, тона 246), в противном случае — низкий (например, тона 130). Сообщения выводить на чистый экран.

Подскажите как выдавать сигнал??

я тут набросал

Код
var A,K:integer;
i:byte;
begin
randomize;
K:=Trunc(Random(36)+1);
writeln('число от  1 до 36 ');
readln(A);
if A > 1 then
if A < 36 then
write(K,'   ')
else
writeln('error');
readln;
end.


Автор: volvo 11.05.2006 22:30

var
  A,K:integer;
  i:byte;

begin
  write('введите число от 1 до 36 '); readln(A);
  if (A > 1) and (A < 36) then begin
    K:=Trunc(Random(36)+1); write(K,'   ')
  end { <--- !!! }
  else
    writeln('ERROR');
end.


Насчет звука - используй конструкцию:
Sound(частота_звука_в_Герцах);
Delay(время_проигрывания_звука);
NoSound;

Частоты для разных нот уже приводились на форуме... smile.gif

Автор: JoB 11.05.2006 22:34

сп!