![]() Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
![]() Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
![]() |
Управление звуком динамикаВ CRT имеются две процедуры, предназначенные для управления встроенным динамиком: 1) Procedure Sound (Herz: word); - включает динамик с частотой звука Herz (в Гц); 2) Procedure NoSound; - выключает динамик. Выключение звука - обязательная часть программы, так как звучание будет продолжаться и после окончания выполнения программы или ее остановки. Для задания длительности звучания используется процедура Delay: Procedure Delay (Msec: word); - останавливает выполнение программы на время Msec (в миллисекундах). Эта процедура может также применяться в программах для задержки вывода информации на экран.
Пример. Составить программу, которая обеспечивает: - расчет табулированных значений функции z = при х = 1..1.4, hx= 0.2, у = 2..2.2, hy= 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, введите ее текст в компьютер, откомпилируйте ее, запустите на счет, введите запрашиваемые данные и просмотрите результаты.
|