Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Максим_макс
1 / 1 / 2
Регистрация: 12.03.2013
Сообщений: 164
1

Определите u=Ax+By-Cz+Bx

11.05.2013, 13:00. Просмотров 853. Ответов 2
Метки нет (Все метки)

Заданы матрицы А, В, С размера( n x n) и векторы x, y, z в n-мерном пространстве.
Определите u=Ax+By-Cz+Bx.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2013, 13:00
Ответы с готовыми решениями:

Определите индекс максимального элемента массива. Затем определите указатель на массив
Напишите программу: определите массив из 10 чисел типа float , введите их с клавиатуры, и...

Определите, сколько слов в заданном тексте, определите длину каждого слова и запишите эти числа в массив
2)Определите, сколько слов в заданном тексте, определите длину каждого слова и запишите эти числа в...

Определите коэффициент усиления по току КI, по напряжению КU и мощности КP, определите входное сопротивление Rвх, выходное сопротивление Rвых.
Здравствуйте! помогите пожалуйста решить задачу: Транзистор, включенный в схему ОК, имеет...

Определите сумму всех отрицательны чисел массива, определите макс. и мин. элемент массива и их местоположение
Дан массив одномерный -1,0,-5,-3,4,8,1 Найти сумму всех отрицательных чисел массива Определить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
11.05.2013, 14:28 2
Умножение матрицы на вектор
Результат умножения матрицы на вектор будет вектор.
Сложение матриц
Сумма векторов
ну разницу доделать будет несложно, знак плюс на минус заменить думаю проблемы не составит.

А так увы, писать лень, за вас.
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
14.05.2013, 21:20 3
Лучший ответ Сообщение было отмечено Максим_макс как решение

Решение

Вроде так....
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of real;
     vkt=array[1..nmax] of real;
var n:byte;
procedure vv_mtr(var a:mtr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=9*random
end;
procedure vv_vek(var x:vkt);
var i:byte;
begin
for i:=1 to n do
x[i]:=9*random
end;
procedure um_mt_vk(a:mtr;x:vkt;var ax:vkt;cm,cv:string);
var i,j:byte;
begin
writeln('Матрица ',cm);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5:2);
  writeln;
 end;
gotoXY(n*5+2,1+n div 2);
write('x');
gotoXY(n*5+3,1);
writeln('Вектор ',cv);
for i:=1 to n do
 begin
  gotoXY(n*5+4,1+i);
  write(x[i]:5:2);
 end;
for i:=1 to n do
 begin
  ax[i]:=0;
  for j:=1 to n do
  ax[i]:=ax[i]+a[i,j]*x[j];
 end;
gotoXY(n*5+11,1+n div 2);
write('=');
gotoXY(n*5+14,1);
writeln(cm,'*',cv);
for i:=1 to n do
 begin
  gotoXY(n*5+13,1+i);
  write(ax[i]:5:2);
 end;
gotoXY(1,n+2);
writeln('Нажмите Enter');
readln;
clrscr
end;
var a,b,c:mtr;
    x,y,z,ax,by,cz,bx,u:vkt;
    i:byte;
begin
clrscr;
randomize;
repeat
write('Размер матриц и векторов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
vv_mtr(a);
vv_mtr(b);
vv_mtr(c);
vv_vek(x);
vv_vek(y);
vv_vek(z);
clrscr;
um_mt_vk(a,x,ax,'A','x');
um_mt_vk(b,y,by,'B','y');
um_mt_vk(c,z,cz,'C','z');
um_mt_vk(b,x,bx,'B','x');
writeln('  u  ');
for i:=1 to n do
 begin
  u[i]:=ax[i]+by[i]-cz[i]+bx[i];
  writeln(u[i]:5:2);
 end;
readln
end.
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru