| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Другие языки > Определить интервал, образованный нотами |
| Автор: Andrir 10.6.2017, 11:21 |
| Музыкальные интервалы. Пусть есть такие типы данных: Type Nota = (do, re, mi, fa, sol, la, si); Interval = (secunda, tercia, quarta, quinta, seksta, septima); Var n1, n2: Nota; i: Interval; Определить интервал, образованный нотами n1 и n2 (n1 ≠ n2). Значение нот должны быть введены с клавиатуры (самостоятельно придумайте средство). Примечание: секунда - это интервал из двух соседних (по кругу) нот (например, ре и ми, си и до), терция - интервал через ноту (фа и ля, си и ре), кварта - через две ноты и т.д . |