|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.06.2017, 09:25 | #1 |
Пользователь
Регистрация: 31.05.2017
Сообщений: 16
|
Музыкальные интервалы - PascalABC.NET
Музыкальные интервалы.
Пусть есть такие типы данных: 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). Значение нот должны быть введены с клавиатуры (самостоятельно придумайте средство). Примечание: секунда - это интервал из двух соседних (по кругу) нот (например, ре и ми, си и до), терция - интервал через ноту (фа и ля, си и ре), кварта - через две ноты и т.д . |
02.06.2017, 09:44 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
функцию для получения интервала можете взять в этой теме:
[Delphi]: Процедуры и функции (перечисляемые типы данных: найти интервал между нотами) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
PascalABC.Net | now2 | Помощь студентам | 2 | 27.03.2014 21:03 |
PascalABC.NET | v1ktor | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 21.06.2011 13:58 |
PascalABC.net | gogomon93 | Помощь студентам | 5 | 17.04.2011 18:48 |
PascalABC.net | *stRong* | Помощь студентам | 2 | 10.06.2010 17:50 |