Не совсем простая задача,но говорят что решить можно,если честно,то я даже не представляю с чего начать,если есть знающие люди,то пусть подскажут
Текст вписываем столбиками в матрицу,а затем матрицу переписываем по строкам в заданном порядке.
Пример:
1.ПРИА
2.РАРН
3.ОМОИ
4.ГМВЕ
Выписываем 3,2,4,1-ю строки: ОМОИРАРНГМВЕПРИА
Расшифровать и ответить на вопрос для следующего порядка выписки строк 2,4,5,3,1 в матрице 5х5:АОННПАИСЫДСЬЕТНОЫ?КНТАИТККАЕОВ.
Полная версия: Расшифровка матрицы
Ksander
Вообще-то 5х5=25, если я правильно помню ;) ... В строке же почему-то 30 символов... (Оказывается, задано 5 строк по 6 символов - в программе указаны изменения)... Задача решается так:
const
n = 5;
order: array[1 .. n] of byte =
(2, 4, 5, 3, 1);
var
matrix: array[1 .. n] of string;
i, j: byte;
const
s: string = 'АОННПАИСЫДСЬЕТНОЫ?КНТАИТККАЕОВ';
begin
for i := 1 to n do
begin
matrix[ order[i] ] := copy(s, 1, n+1); { Здесь должно быть N... }
delete(s, 1, n+1); { здесь тоже N... }
end;
for j := 1 to n+1 do { и здесь N... }
for i := 1 to n do
write(matrix[i][j]);
end.
На вопрос ответите сами...
Вообще-то 5х5=25, если я правильно помню ;) ... В строке же почему-то 30 символов... (Оказывается, задано 5 строк по 6 символов - в программе указаны изменения)... Задача решается так:
Код
const
n = 5;
order: array[1 .. n] of byte =
(2, 4, 5, 3, 1);
var
matrix: array[1 .. n] of string;
i, j: byte;
const
s: string = 'АОННПАИСЫДСЬЕТНОЫ?КНТАИТККАЕОВ';
begin
for i := 1 to n do
begin
matrix[ order[i] ] := copy(s, 1, n+1); { Здесь должно быть N... }
delete(s, 1, n+1); { здесь тоже N... }
end;
for j := 1 to n+1 do { и здесь N... }
for i := 1 to n do
write(matrix[i][j]);
end.
На вопрос ответите сами...
извините ошибся,матрица 5х6
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.