procedure TForm1.Button1Click(Sender: TObject);
type nota=(doo,re,mi,fa,sol,lya,si);
interval=(sek,ters,kvart,kvint,sekt,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;
begin
end.