[Delphi]: Процедуры и функции (перечисляемые типы данных: найти интервал между нотами)

[SEXTANT]

Объявлены типы и переменные :
TYPE НОТА = ( ДО, РЕ, МИ, ФА, СОЛЬ, ЛЯ, СИ) ;
ИНТЕРВАЛ = ( СЕКУНДА, ТЕРЦИЯ, КВАРТА, КВИНТА, СЕКСТА,
СЕПТИМА) ;
VAR n1, n2: НОТА; i: ИНТЕРВАЛ ;
Определить i - интервал, образованный нотами n1 и n2 (n1<>n2) : секунда - это интервал из двух соседних ( по кругу ) нот ( например ре и ми, си и до ), терция - интервал через ноту ( фа и ля, си и ре) и т.д.
Решить с использованием процедур или функций.

[SEXTANT]

Как сделать помогите

[Serge_Bliznykov]

Что конкретно не получается?

нужно ввести два значения в n1 и n2, взять разницу i:=abs(ord(n2)-ord(n1))-1;
и полученную разницу вывести в виде строкового значения.

ссылки на полезные статьи:

http://delphi-prg.ru/rabota-s-tipami...islyaemye-tipy

http://www.compdoc.ru/prog/pascal/us...ed_types_data/

http://www.delphisources.ru/pages/fa...o_strings.html

p.s. какие именно операции сделать процедурами, какие - функциями, я не могу сказать,
тут либо уточняйте у преподавателя, либо полная свобода творчества - выдумывайте сами!

[SEXTANT]

проблема с выводом, делаю через case в п/п
не понимаю что написать в г/п и как вывести интервал

[SEXTANT]

Объявлены типы и переменные :

TYPE НОТА = ( ДО, РЕ, МИ, ФА, СОЛЬ, ЛЯ, СИ) ;
ИНТЕРВАЛ = ( СЕКУНДА, ТЕРЦИЯ, КВАРТА, КВИНТА, СЕКСТА,
СЕПТИМА) ;
VAR n1, n2: НОТА; i: ИНТЕРВАЛ ;

Определить i - интервал, образованный нотами n1 и n2 (n1<>n2) : секунда - это интервал из двух соседних ( по кругу ) нот ( например ре и ми, си и до ), терция - интервал через ноту ( фа и ля, си и ре) и т.д.
Решить с использованием процедур или функций.

Все сделал, но не работает интервал по кругу т.е <си и до> и тд.

procedure TForm1.Button1Click(Sender: TObject);
type nota=(doo,re,mi,fa,sol,lya,si);
     interval=(sek,ters,kvart,kvint,sekta,septima);
var n1,n2:nota; i:interval;  a:integer;

function abc(n,n3:nota):integer;
  begin
    abc:=abs(ord(n3)-ord(n))-1;
  end;

begin
  case combobox1.ItemIndex of
    0: n1:=doo;
    1: n1:=re;
    2: n1:=mi;
    3: n1:=fa;
    4: n1:=sol;
    5: n1:=lya;
    6: n1:=si;
  end;
  case combobox2.ItemIndex of
    0: n2:=doo;
    1: n2:=re;
    2: n2:=mi;
    3: n2:=fa;
    4: n2:=sol;
    5: n2:=lya;
    6: n2:=si;
  end;
 if n1<>n2 then begin

    a:=abc(n1,n2);
  case a of
    0: Label1.Caption:= ' Интервал: Секунда ' ;
    1: Label1.Caption:= ' Интервал: Терция ' ;
    2: Label1.Caption:= ' Интервал: Кварта '  ;
    3: Label1.Caption:= ' Интервал: Квинта '  ;
    4: Label1.Caption:= ' Интервал: Секста '  ;
    5: Label1.Caption:= ' Интервал: Септима '  ;
  end;
  end
    else Label1.Caption:= ' Ноты не могут быть выбраны одиннаковые ' ;


end;

end.

[SEXTANT]

Решил свою проблему, кому интересно или нужна программа вот:


procedure TForm1.Button1Click(Sender: TObject);
type nota=(doo,re,mi,fa,sol,lya,si);
interval=(sek,ters,kvart,kvint,sekt a,septima);
var n1,n2:nota; int:interval; a:integer;

function abc(n1,n2:nota):integer;

begin
abc:=abs(ord(n2)-ord(n1))-1;
end;
function qwe(n1,n2:nota):integer;

begin
qwe:=abs(ord(n2)-ord(n1))-1;
end;

begin
case combobox1.ItemIndex of
0: n1:=doo;
1: n1:=re;
2: n1:=mi;
3: n1:=fa;
4: n1:=sol;
5: n1:=lya;
6: n1:=si;
end;
case combobox2.ItemIndex of
0: n2:=doo;
1: n2:=re;
2: n2:=mi;
3: n2:=fa;
4: n2:=sol;
5: n2:=lya;
6: n2:=si;
end;
if n1<>n2 then begin
if n1>n2 then begin
a:=qwe(n1,n2);
case a of
5: Label1.Caption:= ' Интервал: Секунда ' ;
4: Label1.Caption:= ' Интервал: Терция ' ;
3: Label1.Caption:= ' Интервал: Кварта ' ;
2: Label1.Caption:= ' Интервал: Квинта ' ;
1: Label1.Caption:= ' Интервал: Секста ' ;
0: Label1.Caption:= ' Интервал: Септима '
end;
end
else begin
a:=abc(n1,n2);
case a of
0: Label1.Caption:= ' Интервал: Секунда ' ;
1: Label1.Caption:= ' Интервал: Терция ' ;
2: Label1.Caption:= ' Интервал: Кварта ' ;
3: Label1.Caption:= ' Интервал: Квинта ' ;
4: Label1.Caption:= ' Интервал: Секста ' ;
5: Label1.Caption:= ' Интервал: Септима ' ;
end;
end;
end
else showmessage(' Ноты не могут быть выбраны одинаковые') ;


end;

end.

[SEXTANT]

не много еще упростил:

procedure TForm1.Button1Click(Sender: TObject);
type nota=(doo,re,mi,fa,sol,lya,si);
     interval=(sek,ters,kvart,kvint,sekta,septima);
var n1,n2:nota; int:interval;  a:integer;

function abc(n1,n2:nota):integer;

  begin
    abc:=abs(ord(n2)-ord(n1))-1;
  end;

begin
  case combobox1.ItemIndex of
    0: n1:=doo;
    1: n1:=re;
    2: n1:=mi;
    3: n1:=fa;
    4: n1:=sol;
    5: n1:=lya;
    6: n1:=si;
  end;
  case combobox2.ItemIndex of
    0: n2:=doo;
    1: n2:=re;
    2: n2:=mi;
    3: n2:=fa;
    4: n2:=sol;
    5: n2:=lya;
    6: n2:=si;
  end;
 if n1<>n2 then begin
 a:=abc(n1,n2);
 if n1>n2 then
    case a of
    5: Label1.Caption:= ' Интервал: Секунда ' ;
    4: Label1.Caption:= ' Интервал: Терция ' ;
    3: Label1.Caption:= ' Интервал: Кварта '  ;
    2: Label1.Caption:= ' Интервал: Квинта '  ;
    1: Label1.Caption:= ' Интервал: Секста '  ;
    0: Label1.Caption:= ' Интервал: Септима '
    end
    else
  case a of
    0: Label1.Caption:= ' Интервал: Секунда ' ;
    1: Label1.Caption:= ' Интервал: Терция ' ;
    2: Label1.Caption:= ' Интервал: Кварта '  ;
    3: Label1.Caption:= ' Интервал: Квинта '  ;
    4: Label1.Caption:= ' Интервал: Секста '  ;
    5: Label1.Caption:= ' Интервал: Септима '  ;
  end
  end
    else showmessage(' Ноты не могут быть выбраны одинаковые') ;


end;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

а я бы так написал:

procedure TForm1.Button1Click(Sender: TObject);
type nota=(doo,re,mi,fa,sol,lya,si);
     interval=(sek,ters,kvart,kvint,sekta,septima);
const interval_str : array[interval] of string =
          ('Секунда','Терция', 'Кварта','Квинта','Секста','Септима');
var n1,n2:nota; diff_interval:interval;

function interval_between(n1,n2:nota):interval;
  begin
    if n1<n2 then
      result := interval(ord(n2)-ord(n1)-1)
    else
      result := interval(ord(High(nota))-ord(n1)+ord(n2));
  end;

begin
  n1:= nota(combobox1.ItemIndex);
  n2:= nota(combobox2.ItemIndex);
  if n1=n2 then showmessage(' Ноты не могут быть выбраны одинаковые')
  else begin
    diff_interval := interval_between(n1,n2);
    Label1.Caption := ' Интервал: ' + interval_str[diff_interval];
 end;
end;

[SEXTANT]

Нам просто сказали обязательно через case ))

[Serge_Bliznykov]

Сообщение от SEXTANT

сказали обязательно через case )

ну, тогда так:

{вариант 3 - отображение через CASE}
procedure TForm1.Button1Click(Sender: TObject);
type nota=(doo,re,mi,fa,sol,lya,si);
     interval=(sek,ters,kvart,kvint,sekta,septima);
var n1,n2:nota;
    diff_interval:interval;

function interval_between(n1,n2:nota):interval;
  begin
    if n1<n2 then
      result := interval(ord(n2)-ord(n1)-1)
    else
      result := interval(ord(High(nota))-ord(n1)+ord(n2));
  end;

begin
  n1:= nota(combobox1.ItemIndex);
  n2:= nota(combobox2.ItemIndex);
  if n1=n2 then showmessage(' Ноты не могут быть выбраны одинаковые')
  else begin
    diff_interval := interval_between(n1,n2);
    case diff_interval of
      sek: Label1.Caption:= ' Интервал: Секунда ' ;
      ters: Label1.Caption:= ' Интервал: Терция ' ;
      kvart: Label1.Caption:= ' Интервал: Кварта '  ;
      kvint: Label1.Caption:= ' Интервал: Квинта '  ;
      sekta: Label1.Caption:= ' Интервал: Секста '  ;
      septima: Label1.Caption:= ' Интервал: Септима '  ;
    end;
 end;
end;