CRT. Два звука одновременно - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Можно ли два звука воспроизвести одновременно - в мелодии на фортепиано одновременно две клавиши надо нажать (судя по нотам), а можно ли так сделать на Pascal, а то звучание не особо. И если да, то как?

Решение задачи: «CRT. Два звука одновременно»

textual
Листинг программы
Program KElize;
Uses CRT;
Begin
TextColor(2);
TextBackGround(7);
GotoXY(16, 3);
Writeln('K Elize');
GotoXY(10, 5);
Writeln('Press any key to exit');
GotoXY(20, 6);
Repeat
Sound(659); Delay(15000); Nosound;
Sound(622); Delay(15000); Nosound;
Sound(659); Delay(15000); Nosound;
Sound(622); Delay(15000); Nosound;
Sound(659); Delay(15000); Nosound;
Sound(494); Delay(15000); Nosound;
Sound(587); Delay(15000); Nosound;
Sound(523); Delay(15000); Nosound;
Sound(440); delay(30000); Nosound;
Sound(110); delay(15000); Nosound;
Sound(165); Delay(15000); Nosound;
Sound(220); Delay(15000); Nosound;
Sound(262); Delay(15000); Nosound;
Sound(330); delay(15000); Nosound;
Sound(440); delay(15000); Nosound;
Sound(494); delay(30000); Nosound;
Sound(82); delay(15000); Nosound;
Sound(104); delay(15000); Nosound;
Sound(123); delay(15000); Nosound;
Sound(330); delay(15000); Nosound;
Sound(415); delay(15000); Nosound;
Sound(494); delay(15000); Nosound;
Sound(523); delay(30000); Nosound;
Sound(110); delay(15000); Nosound;
Sound(165); Delay(15000); Nosound;
Sound(220); Delay(15000); Nosound;
Sound(330); delay(15000); Nosound;
Sound(659); Delay(15000); Nosound;
Sound(622); Delay(15000); Nosound;
Sound(659); Delay(15000); Nosound;
Sound(622); Delay(15000); Nosound;
Sound(659); Delay(15000); Nosound;
Sound(494); Delay(15000); Nosound;
Sound(587); Delay(15000); Nosound;
Sound(523); Delay(15000); Nosound;
Sound(440); delay(30000); Nosound;
Sound(110); delay(15000); Nosound;
Sound(165); Delay(15000); Nosound;
Sound(220); Delay(15000); Nosound;
Sound(262); Delay(15000); Nosound;
Sound(330); delay(15000); Nosound;
Sound(440); delay(15000); Nosound;
Sound(494); delay(30000); Nosound;
Sound(82); delay(15000); Nosound;
Sound(104); delay(15000); Nosound;
Sound(123); delay(15000); Nosound;
Sound(330); delay(15000); Nosound;
Sound(523); delay(15000); Nosound;
Sound(494); delay(15000); Nosound;
Sound(440); delay(60000); Nosound;
Delay(60000);
Until KeyPressed;
End.

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы