Вывод разноцветных окон. Проигрывание звука. - Turbo Pascal
Формулировка задачи:
Здравствуйте,
Помогите пожалуйста разобраться:
Написать программу, которая выводит на экран окна разных цветов, и при каждом появлении окна выводит звук.
Я знаю как заставить программу рисовать и воспроизводить звук, а вот как выводить окна не понимаю.
Помогите пожалуйста...
Так будет правильно?
Ещё вопрос.... написать программу которая выводит
x x
0
x x
(x вначале и в конце окна программы, 0-посередине)
Заранее спасибо!
Решение задачи: «Вывод разноцветных окон. Проигрывание звука.»
textual
Листинг программы
uses crt; procedure Krest; begin writeln('x x'); writeln(' 0 '); write('x x'); end; procedure Okno(x,y,k:integer); begin window(x,y,x+5,y+3); textbackground(k); textcolor(k+8); clrscr; sound(600); delay(100); nosound; end; var x,y,k:integer; begin textbackground(0); clrscr; y:=1; k:=1; repeat x:=1; repeat Okno(x,y,k); if (x=1)or(x=79) then Krest; delay(300); k:=k+3; if k=16 then k:=1; x:=x+6; until (x>80)or keypressed; y:=y+4; until (y>24)or keypressed; end.
Объяснение кода листинга программы
- В первой строке кода используется библиотека crt, которая предоставляет функции для работы с консолью.
- Вторая строка содержит процедуру Krest, которая выводит на экран строку
x x
и0
. - В третьей строке содержится процедура Okno, которая устанавливает параметры окна (координаты и цвет фона) и воспроизводит звуковой сигнал с помощью функции sound.
- Четвертая строка объявляет переменные x, y и k типа integer.
- В блоке repeat-until основной программы происходит циклическое выполнение кода.
- Внутри цикла x повторяется вызов процедуры Okno с переменной x, y и k. Если значение x равно 1 или 79, то вызывается процедура Krest.
- После каждого вызова процедуры Okno происходит задержка в 300 мс с помощью функции delay.
- Переменная k увеличивается на 3 при каждом цикле. Если значение k равно 16, то оно сбрасывается обратно к 1.
- Переменная x увеличивается на 6 при каждом цикле. Если значение x превышает 80 или нажата клавиша, то цикл прерывается.
- Аналогично происходит увеличение переменной y и прерывание цикла при достижении значения 24 или нажатия клавиши.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д