матрицы в Delphi
Добрый день! помогите пожалуйста, мне нужно составить подпрограмму, которая в матрице Y(m,n) меняет местами 1-й и k-й столбец (1<m). C помощью подпрограммы поменять местами первый и последний столбцы матриц A(12,9), C(7,11), и третий и пятый столбц матрицы B(8,15). Исходные и преобразованные матрицы вывести на экран дисплея. Элементы входных матриц вычисляются по формулам:
A(c индексом i,j)=tg(j)+e^cos(i);
B(c индексом i,j)=sin(3.2j+4.2)+e^tg(1.5i);
C(c индексом i,j)=cos(12.4j+1).
спасибо!
A(c индексом i,j)=tg(j)+e^cos(i);
B(c индексом i,j)=sin(3.2j+4.2)+e^tg(1.5i);
C(c индексом i,j)=cos(12.4j+1).
спасибо!
Условие слегка противоречиво.
[highlight=Delphi]
type
TMatrix = array of array of Real;
procedure CollChange(var M : TMatrix; firstCol : Integer; kCol : Integer);
var
i : Integer;
x : Real;
begin
for i := 0 to Length(M) do begin
x := M[i,firstCol];
M[i,firstCol] := M[i,kCol];
M[i,kCol] := x;
end;
end;
var
A : TMatrix;
B : TMatrix;
C : TMatrix;
var
i : Integer;
j : Integer;
begin
SetLength(A,12);
for i := 0 to 11 do begin
SetLength(A,9);
for j := 0 to 8 do
M[i,j] := sin(j)/cos(j) + exp(cos(i));
end;
...
//Заполняем элементами остальные
//Выводим их
...
CollChange(A,1,11);
CollChange(A,1,10);
CollChange(A,2,4);
...
//Выводим преобраованные
...
end;
[/highlight]
[highlight=Delphi]
type
TMatrix = array of array of Real;
procedure CollChange(var M : TMatrix; firstCol : Integer; kCol : Integer);
var
i : Integer;
x : Real;
begin
for i := 0 to Length(M) do begin
x := M[i,firstCol];
M[i,firstCol] := M[i,kCol];
M[i,kCol] := x;
end;
end;
var
A : TMatrix;
B : TMatrix;
C : TMatrix;
var
i : Integer;
j : Integer;
begin
SetLength(A,12);
for i := 0 to 11 do begin
SetLength(A,9);
for j := 0 to 8 do
M[i,j] := sin(j)/cos(j) + exp(cos(i));
end;
...
//Заполняем элементами остальные
//Выводим их
...
CollChange(A,1,11);
CollChange(A,1,10);
CollChange(A,2,4);
...
//Выводим преобраованные
...
end;
[/highlight]
Прошу помощи. Задача: Нужно зашифровать(расшифровать) исходный текст методом СКИТАЛА. Я так понимаю исходный текст вставляем матрицу и там преобразовываем строки матрицы и обратно. как реализовать?