Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Определить массив первых 196 нечетных натуральных чисел https://www.cyberforum.ru/ turbo-pascal/ thread513453.html
1)определить массив первых 196 нечетных натурльных чисел и распечатиать его в виде матрицы 14*14. 2)Элементы главной диагонали ратыне трем выводить зеденым цветом 3)Задана матрица F(N,M) Найти в...
Turbo Pascal Нарисовать и раскрасить скворечник
Друзья помогите!!! Напишите только полностью задачу. Задача: Надо в Турбо паскале нарисовать и раскрасить скворечник.
Turbo Pascal Вычисление наибольшего общего делителя трех чисел https://www.cyberforum.ru/ turbo-pascal/ thread513437.html
Эту программу нужно написать двумя вариантами:1)C помощью Процедуры 2)С помощью Функции.Помогите пожалуйста.Заранее большое спасибо.
Turbo Pascal Поменять местами элементы массива, расположенный на главной и побочной диагоналях. 1)Заданы матрицы C(N,M) и K(N,M) .Вычислить сумму и число элементов матриц, находящихся над побочной диагональю и на ней. 2)Дан двухмерный массив целых чисел A ( n * n ). Поменять местами элементы... https://www.cyberforum.ru/ turbo-pascal/ thread513436.html
Turbo Pascal Определите массив кубов первых ста натуральных чисел
1)Определите массив кубов первых ста натуральных чисел и распечатать в виде матрицы 10X10. Элементы главной диагонали матрицы выводить красным цветом. 2)Дана матрица 5X10 .Найти минимальное...
Turbo Pascal Вывести номера рейсов самолётов, вылетающих в пункт, название которого совпало с введённым с клавиатуры Организовать файл записей AEROFLOT, содержащих следующие поля: название пункта назначения рейса, номер рейса, тип самолёта. Поместить сведения о нескольких рейсах, вывести на экран номера рейсов... https://www.cyberforum.ru/ turbo-pascal/ thread513410.html
Turbo Pascal Определить наличие одинаковых цифр в большом числе Думаю меня сочтут полным дураком, что не могу сделать такую программу. В общем нужна программа, которая определит наличие одинаковых цифр в большом числе. Например 1229 - да {есть 22} 1247 -... https://www.cyberforum.ru/ turbo-pascal/ thread513396.html Найти сумму ряда Turbo Pascal
помогите пожалуйста не догоняю как делать.спасибо Для матрицы а размерности nxm. Получить y=x1xn+x2xn-1+…+xnx1 где xi наименьший элемент в строке с номером I матрицы а Добавлено через 20 минут...
Turbo Pascal Вывести все слова, которые встречаются по одному разу https://www.cyberforum.ru/ turbo-pascal/ thread513337.html
Дана последовательность от 1 до 30 слов в каждом из которых от 1 до 5 строчных латинских букв, между словами - запятая, за последним словом - точка. Вывести все слова которые встречаются по одному...
Turbo Pascal Вычисление значений функции y на интервале [a,b] с шагом h. Написать программу на языке Паскаль для вычисления значений функции y на интервале с шагом h. Значения a,b и h ввести с клавиатуры. На экран вывести результат вычислений в виде таблицы. Помогите... https://www.cyberforum.ru/ turbo-pascal/ thread513286.html
Паскаль(программа реализующая треугольник паскаля) Turbo Pascal
помогите пожалуста. нужно написать программу реализующую треугольник паскаля 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 1 6 15 20 15 6 1 - при условии что значение R и N вводяться из...
Turbo Pascal Типизированные файлы. дозапись Помогите пожалуйста решить задачу на типизированные файлы, создание, дозапись и удаление. N спортсменов-многоборцев принимают участие в соревнованиях по M видам спорта. По каждому виду спорта... https://www.cyberforum.ru/ turbo-pascal/ thread513246.html
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 13
0

Обратная матрица - Turbo Pascal - Ответ 2765626

06.03.2012, 17:54. Показов 863. Ответов 1
Метки (Все метки)

Ребят помогите пожалуйста такое дело составить программу
Дана рандомная квадратная матрица из нее сделать обратную матрицу (A^-1) и сделать проверку тобишь
умножить начальную матрицу на полученую чтоб стала единичной матрицей тоесть на главной диогонали единицы а выше и ниже главной диогонали нули помогите пожалуйста написать очень надо

Добавлено через 4 минуты
да я тут вот пытался сделать но у меня чет не получаеться

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
const n=3;
type
Matr = array[1..n,1..n] of real;
Vect = array[1..n] of real;
procedure Zapoln(var a:Matr;var b:Vect);
var i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
a[i,j]:=random*500-250;
b[i]:=random*500-250;
end;
end;
 
procedure Vivod(const a:Matr;const b:Vect);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3:2,' ');
write('=');
writeln(b[i]:3:2,' ');
end;
writeln;
end;
procedure Gauss(a:Matr; b : Vect; var x : Vect);
var i,j,k:integer;
    r,g:real;
begin
for k:=1 to n do
begin
b[k]:=b[k]/a[k,k];
for j:=n downto k do a[k,j]:=a[k,j]/a[k,k];
for j:=k+1 to n do
begin
r:=a[j,k];
for i:=k to n do a[j,i]:=a[j,i]-r*a[k,i];
b[j]:=b[j]-r*b[k];
end;
end;
for k:=n downto 1 do
begin
r:=0;
for j:=k+1 to n do
begin
g:=a[k,j]*x[j];
r:=r+g;
end;
x[k]:=(b[k]-r)/a[k,k];
end;
end;
var a,a2:Matr;
b,x,d,b2,z:Vect;
i,j,m,k,p:integer;w,r,g,l,q,u:real;
begin
Zapoln(a,b);
for i:=1 to n do
begin
for j:=1 to n do
b[j]:=0;
b[i]:=1;
Gauss(a, b, x);
for j:=1 to n do
a2[j,i]:=x[j];
end;
vivod(a,b);
vivod(a2,b);
end.


Вернуться к обсуждению:
Обратная матрица Turbo Pascal
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2012, 17:54
Готовые ответы и решения:

Обратная матрица!!!
Ввести матрицу, вывести обратную. Заранее спасибо!

Обратная матрица
Рассчитать обратную матрицу.Размер задается пользователем от 2х2 до 10х10

Обратная матрица
написала программу, которая виполняет операции над матрицами и почему то обратную матрицу находит...

Обратная матрица
Здравствуйте... помогите пожалуйста написать программу... очень надо, срочно.. ...вот...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2012, 17:54

Обратная матрица
как можно найти обратную матрицу 10х10? помогите пожалуйста!!!

По-ите исправить ошипку!обратная матрица 4x4
function gcd (a,b:integer) :integer; var swapp:integer; begin clrscr; while b<>0 do begin...

обратная матрица
подскажите пожалуйста алгоритм определения обратной матрицы

Цифры, обратная матрица.
1)Дано число. Опеределить сколько в нем цифр. Исключить из него 0 и 5. 2)Дана матрица А(n n)....

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