Комментарии к программе

@jonawormo · Регистрация: 30.05.2019

Студворк — интернет-сервис помощи студентам

Очень срочно! Дана программа на языке паскаля АВС по решению слу методом гаусса. Нужно написать комментарии к алгоритму программы, т.е. что мы делаем в каждой строке. Буду заранее благодарна за помощь

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
procedure gay(n:integer; a:matrica; b:mass; var x:mass; var m:boolean);
var
i,j,p,h: integer;
f,max,r,s:real;
begin
m:=false;
for p:=1 to n do
begin
max:=abs(A[p,p]);
h:=p;
for i:=p+1 to n do
if abs(A[i,p])>max then
begin
max:=abs(A[i,p]);
h:=i;
end;
 
for j:=1 to n do
begin
r:=A[p,j];
A[p,j]:=A[h,j];
A[h,j]:=r;
end;
r:=B[p];
B[p]:=B[h];
B[h]:=r;
 
for i:=p+1 to n do
begin
F:=A[i,p] / A[p,p];
for j:=p to n do
A[i,j]:=A[i,j]-F*A[p,j];
B[i]:=B[i]-F*B[p];
end;
end;
if A[n,n]=0 then begin
if B[n]=0 then writeln('Бесконечно много решений')
else writeln('Решить невозможно')
end
else
begin
m:=true;
for i:=n downto 1 do
begin
s:=0;
for j:=i+1 to n do
begin
r:=A[i,j]*x[j];
s:=s+r;
end;
x[i]:=(B[i]-s)/ A[i,i];
end;
end;
end;

@Sun Serega · 30.05.2019, 16:13

Сообщение от jonawormo

паскаля АВС

А вы в разделе abc.net, это совсем другой язык.

@jonawormo · 30.05.2019, 17:01 **[ТС]**

Вроде на этом языке и написано

@ZX Spectrum-128 · 01.06.2019, 10:00

jonawormo, приведённая программа неполная.

@jonawormo · 03.06.2019, 00:56 **[ТС]**

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
const n=3;
 
type mass=array [1..5] of real;
matrica=array [1..5,1..5] of real;
 
procedure gay(n:integer; a:matrica; b:mass; var x:mass; var m:boolean);
var 
i,j,p,h: integer;      
f,max,r,s:real; 
begin
m:=false;
for p:=1 to n do
begin
max:=abs(A[p,p]);
h:=p;
for i:=p+1 to n do
if abs(A[i,p])>max then 
begin 
max:=abs(A[i,p]); 
h:=i; 
end;
 
for j:=1 to n do
begin
r:=A[p,j];
A[p,j]:=A[h,j];
A[h,j]:=r;
end;
r:=B[p]; 
B[p]:=B[h]; 
B[h]:=r;
 
for i:=p+1 to n do
begin
F:=A[i,p] / A[p,p];
for j:=p to n do
A[i,j]:=A[i,j]-F*A[p,j];
B[i]:=B[i]-F*B[p];
end;
end;
if A[n,n]=0 then begin
if B[n]=0 then writeln('Бесконечно много решений')
else writeln('Решить невозможно') 
end
else
begin
m:=true;
for i:=n downto 1 do
begin
s:=0;
for j:=i+1 to n do
begin
r:=A[i,j]*x[j];
s:=s+r;
end;
x[i]:=(B[i]-s)/ A[i,i];
end;
end;
end;
 
 
var i,j:integer; m:boolean;
A:matrica;
B,x:mass;
begin
for i:=1 to n do
for j:=1 to n do
read(A[i,j]);
writeln;
for i:=1 to n do
read(B[i]);
writeln('дана матриц A и массив В');
for i:=1 to n do
begin
for j:=1 to n do
write (A[i,j]:2);
writeln (B[i]:2);
end;
writeln('решение');
gay(n,A,B,x,m);
 
if m=true then
for i:=1 to n do
writeln ('x(',i,')=',x[i]);
 
end.

@Сергей Игнатьев · 03.06.2019, 05:40

jonawormo,
Программа работает, но рекомендую:
сменить название:
gay значит беспутный, гей ( пидарас)!
Надеюсь, что Вы назвали так случайно!

Добавлено через 1 час 34 минуты
jonawormo,
Я проверил программу на системе n=1000, матрицу заполнил случайными числами.
время решения 15 сек., максимальная погрешность 5*10-10!
Другие программы дают аналогичный результат!

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@jonawormo 0 / 0 / 0 Регистрация: 30.05.2019 Сообщений: 5
	30.05.2019, 17:01 [ТС]
	Вроде на этом языке и написано 0

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	01.06.2019, 10:00
	jonawormo, приведённая программа неполная. 0

@Сергей Игнатьев 222 / 57 / 18 Регистрация: 13.03.2017 Сообщений: 295
	03.06.2019, 05:40
	jonawormo, Программа работает, но рекомендую: сменить название: gay значит беспутный, гей ( пидарас)! Надеюсь, что Вы назвали так случайно! Добавлено через 1 час 34 минуты jonawormo, Я проверил программу на системе n=1000, матрицу заполнил случайными числами. время решения 15 сек., максимальная погрешность 5*10-10! Другие программы дают аналогичный результат! 0