Bringer
1

Метод Гаусса

03.06.2012, 18:21. Показов 468. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
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
program Gauss;
const
N=4;
A:array[1..N,1..N] of real =
((2.0, -1.0, 3.0, 2.0),
(3.0, 3.0, 3.0, 2.0),
(3.0, -1.0, -1.0, -2.0));
B:array[1..N] of real = (4.0,
6.0,
6.0,
6.0);
type
matrtype=array[1..N,1..N+1] of real;
var
i,j:byte;
matr:matrtype;
procedure Gausse(var matr:matrtype; N:byte);
var i,j,k:byte;
begin
for i:=1 to N-1 do
for j:=i+1 to N do
for k:=N+1 downto i do
matr[j,k]:=matr[j,k]-matr[i,k]/matr[i,i]*matr[j,i];
for i:=N downto 1 do
begin
for j:=i+1 to N do
Matr[i,N+1]:=Matr[i,N+1]-Matr[i,j]*Matr[j,N+1];
Matr[i,N+1]:=Matr[i,N+1]/Matr[i,i];
end;
end;
begin
writeln('reshenie sistemi iz ',N,' linear yravnenii');
for i:=1 to N do
begin
writeln('vvodim yravnenie',i,':');
for j:=1 to N do
begin
write('A[',i
,',',j,']=');
read(A[i,j]);
end;
write('B[',i,']=');
readln(B[i]);
end;
writeln('Sistema linear yravnenii');
for i:=1 to N do
begin
for j:=1 to N do
write(A[i,j]:5:2);
writeln(B[i]:5:2);
end;
for i:=1 to N do
begin
for j:=1 to N do
matr[i,j]:=A[i,j];
matr[i,N+1]:=B[i];
end;
Gausse(matr,N);
writeln('reshenie sistemi yravnenii:');
for i:=1 to N do
writeln('X',i,'=',matr[i,N+1]:5:2);
end.
Помогите отредактировать программу. Чтобы программа брала матрицу из файла и выводила в файл результат.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2012, 18:21
Ответы с готовыми решениями:

Заменить прямой метод Гаусса
В общем сложность такая. Сделал я программу нахождение корней по Гауссу, но сказали её переделать...

Метод Гаусса для решения СЛАУ
Господа, начну с того, что у меня есть программа (основу, т.е. метод я брал здесь, моя работа...

Разрабоиать вычислительную программу, реализующую метод гаусса
Для системы линейных алгебраических уравнений ax=f: -разрабоиать вычислительную программу,...

Метод Гаусса с приведением исходной матрицы к нижнему треугольному виду
Помогите решить. Методом Гаусса с приведением исходной матрицы к нижнему треугольному виду

0
03.06.2012, 18:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2012, 18:21
Помогаю со студенческими работами здесь

Сортировка и Решение системы линейных алгебраических уравнений, Метод Гаусса
Программа должна выполнять сортировку данных смешанного типа, одной из следующих структур:...

Метод итераций Якоби и метод Гаусса-Зейделя
Подскажите что-нибудь,вот у мну лабораторная: РЕШЕНИЕ СИСТЕМ ЛИНЕЙНЫХ И НЕЛИНЕЙНЫХ УРАВНЕНИЙ 1....

Метод Гаусса
1. Нужно сделать вывод промежуточных матриц до вывода корней. uses crt; var a:arrayof real;...

Метод Гаусса
Надо написать программу по методу гаусса. матрицу надо вводить в вручную!!!!

Метод Гаусса
ПОМОГИТЕЕ пожалуйста разобраться с программой! Я новичок в этом деле. Нужно защитить программу в...

Метод Гаусса
Помогите плз, не знаю как решать задачи такого типа: Решить систему линейных алгебраических...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru