Даны два вектора b = (b1, b2, ..., bn), x =
Даны два вектора b = (b1, b2, ..., bn), x = (x1,x2, ..., xn) и матрица А(nxn). Написать программку вычисления длины вектора Ах + b.
Задать свой вопрос1 ответ
Евгения Ажакина
Const
N = 4;
Var
A:array[1..N,1..N] of real;
B,X,AX:array[1..N] of real;
i,j:integer;
S:real;
Begin
Randomize;
Write('B(',N,'):');
For i:= 1 to N do
Begin
B[i]:=random(721)-360;
Write(' ',B[i]:4)
End;
WriteLn;
Write('X(',N,'):');
For i:= 1 to N do
Begin
X[i]:=random(721)-360;
Write(' ',X[i]:4)
End;
WriteLn;
WriteLn('A(',N,',',N,'):');
For i:= 1 to N do
Begin
Write(' ');
For j:= 1 to N do
Begin
A[i,j]:=random(721)-360;
Write(' ',A[i,j]:4)
End;
WriteLn;
End;
WriteLn;
Write('AX:');
For i:= 1 to N do
Begin
AX[i]:=0;
For j:= 1 to N do
Begin
AX[i]:=AX[i]+A[i,j]*X[j];
End;
Write(' ',AX[i])
End;
WriteLn;
Write('AX+B:');
For i:= 1 to N do
Begin
X[i]:=AX[i]+B[i];
Write(' ',X[i])
End;
WriteLn;
Write('Ax+b = ');
S:=0;
For i:= 1 to N do
Begin
S:=S+X[i]*X[i];
End;
WriteLn(Sqrt(S))
End.
Пример:
B(4): -51 179 276 -273
X(4): -272 -261 -57 304
A(4,4):
-169 -94 245 -346
-351 -176 280 1
-193 -330 219 -54
338 -57 -44 -328
AX: -48647 125752 109727 -174263
AX+B: -48698 125931 110003 -174536
Ax+b = 246563.556248688
N = 4;
Var
A:array[1..N,1..N] of real;
B,X,AX:array[1..N] of real;
i,j:integer;
S:real;
Begin
Randomize;
Write('B(',N,'):');
For i:= 1 to N do
Begin
B[i]:=random(721)-360;
Write(' ',B[i]:4)
End;
WriteLn;
Write('X(',N,'):');
For i:= 1 to N do
Begin
X[i]:=random(721)-360;
Write(' ',X[i]:4)
End;
WriteLn;
WriteLn('A(',N,',',N,'):');
For i:= 1 to N do
Begin
Write(' ');
For j:= 1 to N do
Begin
A[i,j]:=random(721)-360;
Write(' ',A[i,j]:4)
End;
WriteLn;
End;
WriteLn;
Write('AX:');
For i:= 1 to N do
Begin
AX[i]:=0;
For j:= 1 to N do
Begin
AX[i]:=AX[i]+A[i,j]*X[j];
End;
Write(' ',AX[i])
End;
WriteLn;
Write('AX+B:');
For i:= 1 to N do
Begin
X[i]:=AX[i]+B[i];
Write(' ',X[i])
End;
WriteLn;
Write('Ax+b = ');
S:=0;
For i:= 1 to N do
Begin
S:=S+X[i]*X[i];
End;
WriteLn(Sqrt(S))
End.
Пример:
B(4): -51 179 276 -273
X(4): -272 -261 -57 304
A(4,4):
-169 -94 245 -346
-351 -176 280 1
-193 -330 219 -54
338 -57 -44 -328
AX: -48647 125752 109727 -174263
AX+B: -48698 125931 110003 -174536
Ax+b = 246563.556248688
Анжелика Корнусова
Спасибо! Как сделать чтоб числа были целые?
Аля Шаблевич
Типы данных вы на первом или втором уроке проходили. Но целый тип при возведении в квадрат - практически в самом конце программки - даёт отрицательные числа, из-за выхода за границу диапазона. Очень уж числа большие получаются.
Slavik Lominoga
Просто значения рандома получаются не очень благовидные
Илюша Курпатенков
Так выставьте другой спектр, раз Для вас этот не нравится.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов