Поставим и решим задачу, данную вам в качестве задания в 8.2: Составьте программу с процедурами, которая исполнит мелодию “Чижик-пыжик” (ми-до-ми-до-фа-ми-ре-соль-соль-ля-си-до-до-до).
Воспользуемся нотами третьей октавы:
USES CRT;
PROCEDURE doo; BEGIN Sound(523); Delay(2000); NoSound END;
PROCEDURE re; BEGIN Sound(587); Delay(2000); NoSound END;
PROCEDURE mi; BEGIN Sound(659); Delay(2000); NoSound END;
PROCEDURE fa; BEGIN Sound(698); Delay(2000); NoSound END;
PROCEDURE sol; BEGIN Sound(784); Delay(2000); NoSound END;
PROCEDURE la; BEGIN Sound(880); Delay(2000); NoSound END;
PROCEDURE si; BEGIN Sound(988); Delay(2000); NoSound END;