Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Alexandrev
0 / 0 / 0
Регистрация: 15.11.2015
Сообщений: 1
1

Программирование матричных операций

15.11.2015, 16:40. Просмотров 318. Ответов 1
Метки нет (Все метки)

Помогите, пожалуйста, гуманитарию написать программу
1) Рассчитать элементы квадратной матрицы A = (aij ), i,j = 1,2,...,n по заданной формуле;
2) Вычислить элементы вектора-столбца X = (xi), i = 1,2,...,n по заданному правилу;
3) Вычислить произведение матрицы А на столбец Х;
5) вычисления значения Y по заданной формуле.
Программирование матричных операций

1 пункт вот:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program LAB_5;
Var a:array[1..100, 1..100] of real;
n,i,j:integer;
begin
Write('Введите размер матрицы N:');
Readln(n);
for i:=1 to n do
 for j:=1 to n do
a[i,j]:=(n-1)*sin(i*j)/cos(i*j);
for i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:8:2);
Writeln();
end;
End.
А дальше как?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.11.2015, 16:40
Ответы с готовыми решениями:

Программирование матричных операций
Разработать программу решения четырех взаимосвязанных задач частой работы:...

Программирование матричных операций
1) расчета элементов квадратной матрицы A = (ai,j), i,j = 1,2,...,n по...

Программирование с использование основных операций с матрицей
Заданы матрицы А,В,С и вычислить матречное выражение (А*(С+В*А)+С)*А помогите...

Программирование с использованием основных операций с матрицами
определить значение матричного многочлена F(x)= A*A*A+3A*A-3A+5E ...

Программирование операций над строками и текстовыми файлами
Для тестирования программы требуется создать файл с текстом, в котором...

1
Puporev
Модератор
54994 / 42296 / 29207
Регистрация: 18.05.2008
Сообщений: 99,927
15.11.2015, 20:38 2
Пункты в тексте задания не совпадают с пунктами на фотографии ни по номерам, ни по содержанию.
Напишите точное задание.

Добавлено через 8 минут
По пунктам 1,2,3,5 в тексте
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
uses crt;
const nmax=10;{думаю хватит}
var a:array[1..nmax, 1..nmax] of real;{матрица}
    x,ax:array[1..nmax] of real;{векторы столбцы х и А*х}
    n,i,j,f:integer;
    min,y:real;
begin
clrscr;
write('Введите размер матрицы и вектора n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=(n-1)*sin(i*j)/cos(i*j);
f:=1;
for i:=1 to n do
 begin
  min:=a[i,1];
  f:=f*i;
  for j:=1 to n do
  if a[i,j]/f<min then min:=a[i,j]/f;
  x[i]:=min;
 end;
write('Матрица A');
writeln('Вектор X':n*7);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=(n-1)*sin(i*j)/cos(i*j);
    write(a[i,j]:7:2);
   end;
  writeln(x[i]:9: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;
writeln('Вектор A*X');
for i:=1 to n do
writeln(ax[i]:9:2);
y:=0;
for i:=1 to n do
y:=y+x[i]*x[n-i+1];
write('y=',y:0:2);
readln;
end.
Добавлено через 1 минуту
Если сделать n меньше, то можно матрицу А, вектор Хи вектор АХ вывести рядом.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.11.2015, 20:38

Программирование операций над строками и текстовыми файлами
В каждой строке текстового файла найти наиболее длинную последовательность...

Программирование операций над строками и текстовыми файлами...
Доброго времени суток, уважаемые! Необходимо написать програмку, которая...

Программирование операций над записями и типизированными файлами.
Описать структуру с именем AEROFLOT, содержащую следующие поля: - название...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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