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.