21.12.2010, 00:39
|
#1 (permalink) |
|
Новичок
Регистрация: 21.12.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задание подпрограммы
Найти длину вектора x=(x1,x2,x3), где x1 есть сумма элементов матрицы А, x2-сумма элементов матрицы В, x3 - сумма элементов матрицы С. Вычисление сумм оформить в виде подпрограммы. Матрица A2x2= 2,5 3,7 -4,6 0,4 2,3 7,8 1,1 В3x3= -6,7 1,2 2,1 -1,59 0,6 0,5 С2x2= 4,8 0,8 -3,6 0 пожалуйста помогите решить, просто времени нехватает,надо сдавать уже(((пожалуйста помогите |
|
|
|
21.12.2010, 00:39
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти темы ждут, пока вы их прочитаете Задание в Паскале Процедуры-подпрограммы-паскаль Задание по циклам Двумерные массивы и подпрограммы Подпрограммы и записи в паскаль |
|
21.12.2010, 10:52
|
#2 (permalink) | |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
TYPE AR=ARRAY[1..3,1..3] of REAL;
CONST
A:AR=((2.5,3.7,0),(-4.6,0.4,0),(0,0,0));
B:AR=((2.3,7.8,1.1),(-6.7,1.2,2.1),(-1.59,0.6,0.5));
C:AR=((4.8,0.8,0),(-3.6,0,0),(0,0,0));
Function S(M:AR):Real;
var
SS:Real;
i,j:Integer;
begin
SS:=0;
For i:=1 to 3 do
For j:=1 to 3 do
SS:=SS+M[i,j];
S:=SS;
end;
BEGIN
Writeln('Vector length is', SQRT(SQR(S(A))+SQR(S(B))+SQR(S(C))):5:2);
ReadLn;
END.
|
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
| Опции темы | |
| Опции просмотра | |
|
|
Линейный вид
