fps uzduotis

Pagrindiniai muzikos garsai yra do, re, mi, fa, sol, la, si. Dviejų garsų aukščio santykis vadinamas intervalu. Intervalas gali būti prima, sekunda, tercija, kvarta, kvinta, seksta, septima. Prima - tai intervalas tarp dviejų to paties aukščio garsų, sekunda - tarp dviejų.

labai mazai laiko reputacijos taska pridesiu:)

Pagrindiniai muzikos garsai yra do, re, mi, fa, sol, la, si. Dviejų garsų aukščio santykis vadinamas intervalu. Intervalas gali būti prima, sekunda, tercija, kvarta, kvinta, seksta, septima. Prima - tai intervalas tarp dviejų to paties aukščio garsų, sekunda - tarp dviejų.

Pagrindiniai muzikos garsai yra do, re, mi, fa, sol, la, si. Dviejų garsų aukščio santykis vadinamas intervalu. Intervalas gali būti prima, sekunda, tercija, kvarta, kvinta, seksta, septima. Prima - tai intervalas tarp dviejų to paties aukščio garsų, sekunda - tarp dviejų

gretimų garsų (pavyzdžiui, fa ir sol), tercija - tarp dviejų garsų, nutolusių vienas nuo kito per vieną garsą (pavyzdžiui, fa ir la), ir toliau analogiškai. Atkreipiame dėmesį, kad po garso si vėl eina do, toliau re, mi ir t.t.

Sudarykite funkciją, kuri nustatytų intervalą tarp dviejų nurodytų garsų

:DDD apsizioplinau....

edit: greičiau parašė ;)

Neomidi, spėju klausimas įvedus garsus pasakyti kaip vadinsis intervalas?

program natos;
var pirmas, antras: string;

function skaicius(nata: string): integer;
begin
	 if nata = 'do' then skaicius := 1
else if nata = 're' then skaicius := 2
else if nata = 'mi' then skaicius := 3
else if nata = 'fa' then skaicius := 4
else if nata = 'sol' then skaicius := 5
else if nata = 'la' then skaicius := 6
else if nata = 'si' then skaicius := 7;
end;

function zodis(skaic: integer): string;
begin
case skaic of
	0: zodis := 'prima';
	1: zodis := 'sekunda';
	2: zodis := 'tercija';
	3: zodis := 'kvarta';
	4: zodis := 'kvinta';
	5: zodis := 'seksta';
	6: zodis := 'septima';
end;
end;

begin
readln(pirmas);
readln(antras);
WriteLn(zodis(abs(skaicius(pirmas)-skaicius(antras))));
Readln;
end.

aciu labai