Начал писать прогу по выводу табов аккорда...
program tabs;
uses crt;
var
x:array [1..6] of integer;
akk:string[4];
prov:string;
pr:byte;
c:char;
begin
clrscr;
repeat
writeln ('vvedite nazvanie akkorda');
readln(akk);
prov:='ambmcmdmemfmgmhmAmBmCmDmEmFmGmHm';
pr:=pos(akk,prov);
writeln(' ');
if pr=0 then begin
writeln ('vveden nesushestv.akkord');
end
else
if (akk='Am') or (akk='am') then begin
x[1]:=0;
x[2]:=1;
x[3]:=2;
x[4]:=2;
x[5]:=0;
x[6]:=0;
writeln('tsiframi pokazani ladi, kotorie nado zajimat na gitare');
writeln(' ');
writeln(#195,x[6],#180);
writeln(#195,x[5],#180);
writeln(#195,x[4],#180);
writeln(#195,x[3],#180);
writeln(#195,x[2],#180);
writeln(#195,x[1],#180);
end
else
writeln('net takogo akkorda v base');
writeln(' ');
writeln(' ');
writeln('najmite ESC dlya vixoda ili lyubuyu klavishu dlya prodoljeniya',c);
c:= readkey;
if c=#0 then begin
c:=readkey;
readln;
end;
until c=#27;
end.
Это мой код
Затруднение вызвали след.проблемы:
Во-первых, хз как (кроме if else) проверять, какой аккорд введен. Незнаю, с помощью чего проверять
во-вторых, нужно аккорд выводить по-другому, т.е. не как у меня, один столбец и выводит номер лада, который нужно зажимать, а вывести три лада (либо графикой, либо псевдографикой) и точками помечать, что нужно зажимать.... Я пока новичёк и не могу построить алгоритм решения.... Нужна помощь.. Хоть какая-нибудь.
