|
Member
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Формирование матрицы с помощью функции как параметра процедуры, Паскаль
Доброго времени суток.
Помогите пожалуйста с программой:
Условие задания – головного модуля — предполагает обязательное использование разработанной процедуры П1 с функцией (f или f1, f2) в качестве параметра. В качестве исходного данного в большинстве заданий используется квадратная матрица А.
Используя в качестве f1 синус, а в качестве f2 косинус, сформировать матрицу Е из А по правилу: первая строка матрицы Е формируется с помощью процедуры из двух первых столбцов матрицы А, вторая строка - из следующей пары столбцов и т.д.
Как я понял, из матрицы А:
1 2 3 4 5 6
4 7 1 8 9 5
2 8 4 1 3 7
должна получиться матрица Е:
1 4 2 2 7 8
3 1 4 4 8 1
5 9 3 6 5 7
Вот я написал программу, но без процедур и функций:
PHP код:
Program MatrixForm;
Const n=3; m=6;
Type
Matr = array[1..n,1..m] of Real;
Const
A: matr = ( ( 1, 2, 3, 4, 5, 6 ),
( 4, 7, 1, 8, 9, 5 ),
( 2, 8, 4, 1, 3, 7 )
);
Var i,j:byte;
E:matr;
Begin
for i:=1 to n do
begin
for j:=1 to m do
Begin
E[1,1]:=A[1,1]; E[1,2]:=A[2,1]; E[1,3]:=A[3,1]; E[1,4]:=A[1,2]; E[1,5]:=A[2,2]; E[1,6]:=A[3,2];
E[2,1]:=A[1,3]; E[2,2]:=A[2,3]; E[2,3]:=A[3,3]; E[2,4]:=A[1,4]; E[2,5]:=A[2,4]; E[2,6]:=A[3,4];
E[3,1]:=A[1,5]; E[3,2]:=A[2,5]; E[3,3]:=A[3,5]; E[3,4]:=A[1,6]; E[3,5]:=A[2,6]; E[3,6]:=A[3,6];
Write(E[i,j]:4);
end;
writeln;
end;
End.
Не могу понять зачем нужны синусы и косинусы, сомневаюсь что верно понял условие...
Заранее спасибо!
|