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
|
Опции темы | |
Опции просмотра | |
|
|