Цитата:
Сообщение от noo123
что я сделал не так( помогите пожалуйста.
|
К величайшему моему сожалению на "Сях" не пишу, поэтому для отладки перегнал Ваш код в Паскаль. Вот что у меня получилось после отладки:
Код:
Const
S:String[49] = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ***********************';
Sym:String[50] = 'ZAWITA';
Var
M:Array[0..6,0..6] of Char;
i,j,k,KS: Integer;
Sif:Array[0..100] of Integer;
Begin
k:=0;
for i:=0 to 6 do
for j:=0 to 6 do
begin
M[i][j]:=S[k+1];
Inc(k);
end;
for i:=0 to 6 do
begin
for j:=0 to 6 do write(M[i][j]+' ');
writeln;
end;
Writeln;
KS:=0;
for k:=0 to 49 do
for i:=0 to 6 do
for j:=0 to 6 do
if Sym[k+1]=M[i][j] then
begin
Sif[KS]:=i;
Sif[KS+1]:=j;
Inc(KS,2);
end;
Dec(KS,2);
Writeln(Sym+' letter coordinates - ');
for i:=0 to (KS div 2) do
writeln(Sif[2*i],'; ',Sif[2*i+1]);
Readln
End.
А вот результат работы программы:
Оно?
Теперь по поводу ошибок.
1. Символьный массив S должен содержать 49 элементов (считая с 1), или 48, если счет начинать с 0. У Вас - маловато. Ну или можно 36 элементов (от 0 до 35), но тогда массив М должен быть M[5][5] с соответствующей поправкой границ циклов.
2. Несколько ошибок в тройном цикле сопоставления символов пробного слова с символами матрицы:
а) первую фигурную скобку нужно сместить на 2 строки вниз, т.е. она должна стоять перед Sif[KS];
б) "else" тут ни к селу, ни к городу, его нужно просто убрать;
в) в конце цикла величину KS следует увеличивать не на 1, а на 2.
Ну вот как-то так...