Управление звуком динамика

В CRT имеются две процедуры, предназначенные для управления встроенным динамиком:

1) Procedure Sound (Herz: word); - включает динамик с частотой звука Herz (в Гц);

2) Procedure NoSound; - выключает динамик.

Выключение звука - обязательная часть программы, так как звучание будет продолжаться и после окончания выполнения программы или ее остановки.

Для задания длительности звучания используется процедура Delay:

Procedure Delay (Msec: word); - останавливает выполнение программы на время Msec (в миллисекундах).

Эта процедура может также применяться в программах для задержки вывода информации на экран.

Пример. Составить программу, которая обеспечивает:

- расчет табулированных значений функции z =

при х = 1..1.4, h_x= 0.2, у = 2..2.2, h_y= 0.1.

- вывод исходных данных и полученных результатов в разные окна:

а) окно ввода – в левую верхнюю часть экрана, цвет фона – зеленый, цвет символов – черный;

б) окно вывода – в правую нижнюю часть экрана, цвет фона – малиновый, цвет символов – светло-серый;

- два останова:

а) перед выводом результатов с диалоговым предложением в дополнительном окне внизу экрана: "Для вывода результатов нажмите любую клавишу";

б) после вывода результатов с диалоговым предложением в дополнительном окне: "Для выхода из программы нажмите любую клавишу".

Текст программы

Program Tab_Crt;

uses CRT;

var X0,Xn,Y0,Yn,Hx,Hy:real;

X,Y: array [1..20] of real;

Z: array [1..20,1..20] of real;

i,j,Nx,Ny:byte;

ch:char;

Begin

{Восстановление начальных параметров окна}

window(1,1,80,80);Textbackground(0); textcolor(7);clrscr;

{Организация окна ввода}

window(2,2,33,9);Textbackground(5); textcolor(7);clrscr;

{Ввод исходных данных}

writeln('Исходные данные');

write('1. Начальное значение х: Х0=');readln(X0);

write('2. Конечное значение х: Xn='); readln(Xn);

write('3. Шаг изменения х: Нх='); readln(Hx);

write('4. Начальное значение y: Y0=');readln(Y0);

write('5. Конечное значение y: Yn=');readln(Yn);

write('6. Шаг изменения y: Нy=');readln(Hy);

{Заполнение массивов x и y значениями}

Nx:=Round((Xn-X0)/Hx)+1;

Ny:=Round((Yn-Y0)/Hy)+1;

x[1]:=X0;

For i:=2 to Nx do x[i]:=x[i-1]+Hx;

y[1]:=Y0;

for j:=2 to Ny do y[j]:=y[j-1]+Hy;

{Организация первого окна останова}

window(4,17,35,18);Textbackground(4);

textcolor(15+128);clrscr;

writeln(' Для продолжения');

write(' нажмите любую клавишу!');

while keypressed do ch:=ReadKey;

Repeat until KeyPressed;

{Организация окна вывода}

window(48,11,78,21);Textbackground(7); textcolor(4);clrscr;

{Вывод полученных результатов}

writeln('Полученные результаты:');

For i:=1 to Nx do

for j:=1 to Ny do

Begin

z[i,j]:=x[i]*exp(4*ln(y[j]))/4+y[j]*exp(4*ln(x[i]))/4;

writeln('X=',x[i]:5:2,' Y=',y[j]:5:2,' Z=',

z[i,j]:6:2);

end;

{Организация второго окна останова}

window(4,17,35,18);Textbackground(4); textcolor(15+128);clrscr;

writeln(' Для выхода из программы');

write(' нажмите любую клавишу!');

while keypressed do ch:=ReadKey;

Repeat until KeyPressed;

end.

!! Проанализируйте программу Tub_Crt, введите ее текст в компьютер, откомпилируйте ее, запустите на счет, введите запрашиваемые данные и просмотрите результаты.