Сделайте «датчик чувствительности уха к высоким частотам». Известно, что человеческое ухо не может слышать звуки, частота которых превышает 10000-20000 гц. . Напишите программу, которая выдает звуки все более высокой частоты и печатает на экране значение этой частоты, так что человек успевает увидеть при какой частоте он перестает слышать звук — Pascal(Паскаль)

uses crt;
var c:integer;
begin
clrscr;
c:=1000;
while c<20000 do
 begin
 c:=c+1000;
 writeln('Частота=',c:5);
 sound(c);
 delay(2000);
 nosound;
 end;
readln
end.

Похожие записи/страницы:

Leave a Comment

− 1 = 7