Из-за чего возникает ошибка? [pascal]

@anfiska · Регистрация: 18.01.2009

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

Из-за чего возникает ошибка? [pascal]

Пишу на Паскале 7.0(Pascal)
Ошибка деления на ноль.
Devision by zero.

Задание: Решить СЛАУ(систему линейных уравнений) методом Гауса по схеме единственного деления.
Система уравнений 4x4. В программе записал расширенную матрицу.

Вот само задание и описание метода подробное:
http://disk.tom.ru/cpdtvue

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
program q;
uses crt;
const i=4;
 
a:array[1..i,1..i+1] of real =
((2, 1, -5.1, 1, 2.7),
(5.4, 5.5, 4, -8.5, 21.9),
(5.3, -1, 1, 5.2, -3.9),
(1, 5.2, 2.5, -1, 9.9));
{type b = array[1..i, 1..i+1] of double;
type x = array[1..i, 1..i+1] of double;}
var j: integer;
b:array[1..i, 1..i+1] of real;
x:array[1..i] of real;
a1:array[1..i, 1..i+1] of real;
b1:array[1..i, 1..i+1] of real;
a2:array[1..i, 1..i+1] of real;
b2:array[1..i, 1..i+1] of real;
a3:array[1..i, 1..i+1] of real;
begin
for j:=1 to i+1 do begin
b[1, i+1]:= a[1,i+1]/a[1, 1];
a1[i,i+1]:= a[i,j] - a[i,1]*b[1,i+1];
 
b1[2,j]:= a1[2,j]/a1[2,2];
a2[i,i+1]:= a1[i,j] - a1[i,2]*b1[2,i+1];
 
b2[3, i+1]:= a2[3, i+1]/a2[3, 3];
a3[4, i+1]:= a2[4, i+1] - a2[4,3]*b2[3, i+1];  end;
 
for j:=1 to i do begin
x[4]:= a3[4,5]/a3[4,4];
x[3]:= b2[3,5] - b2[3,4]*x[4];
x[2]:= b1[2,5] - b1[2,3]*x[3] - b1[2,4]*x[4];
x[1]:= b[1,5] - b[1,2]*x[2] - b[1,3]*x[3] - b[1,4]*x[4];
writeln('x=', x[i]);
end;
readln;
end.

@MegaDrive · 09.12.2009, 13:45

Да посмотреть как...все вроде правельно!

@Harlequin · 09.12.2009, 13:46

Ответ очевиден: программа делит на 0. А как учат классе в 3-м среднеобразовательной школы: на нуль делить нельзя.

@anfiska · 09.12.2009, 14:06 **[ТС]**

Harlequin, капитан очевидность. Без тебя это не видно было.

Почему она делит на ноль? почему она в первом элементе массива a[1,1] видит 0 и в других элементах?

@Harlequin · 09.12.2009, 14:51

судя по всему здесь проблема
b1[2,j]:= a1[2,j]/a1[2,2];
на первой итерации в a1[2,2] 0 лежит

Добавлено через 1 минуту
и вообще алгоритм неправильный
в некоторых местах i и j перепутаны

@anfiska · 09.12.2009, 15:10 **[ТС]**

мм. не понимаю в чем ошибка.
там впринципе ноль не может получиться.

Помогите,пожалуйста, полностью прогу поправить, если вы разобрались в чем ошибка.

@Puporev · 09.12.2009, 15:55

anfiska,
Выкиньте uses crt; Ваш компьютер с с этим модулем не хочет работать.
Да и не используется он у Вас никак.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@MegaDrive 0 / 0 / 0 Регистрация: 12.10.2009 Сообщений: 6
	09.12.2009, 13:45
	Да посмотреть как...все вроде правельно! 0

@Harlequin 42 / 42 / 7 Регистрация: 08.11.2009 Сообщений: 167
	09.12.2009, 13:46
	Ответ очевиден: программа делит на 0. А как учат классе в 3-м среднеобразовательной школы: на нуль делить нельзя. 0

@anfiska 0 / 0 / 0 Регистрация: 18.01.2009 Сообщений: 4
	09.12.2009, 14:06 [ТС]
	Harlequin, капитан очевидность. Без тебя это не видно было. Почему она делит на ноль? почему она в первом элементе массива a[1,1] видит 0 и в других элементах? 0

@Harlequin 42 / 42 / 7 Регистрация: 08.11.2009 Сообщений: 167
	09.12.2009, 14:51
	судя по всему здесь проблема b1[2,j]:= a1[2,j]/a1[2,2]; на первой итерации в a1[2,2] 0 лежит Добавлено через 1 минуту и вообще алгоритм неправильный в некоторых местах i и j перепутаны 0

@anfiska 0 / 0 / 0 Регистрация: 18.01.2009 Сообщений: 4
	09.12.2009, 15:10 [ТС]
	мм. не понимаю в чем ошибка. там впринципе ноль не может получиться. Помогите,пожалуйста, полностью прогу поправить, если вы разобрались в чем ошибка. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.12.2009, 15:55
	anfiska, Выкиньте uses crt; Ваш компьютер с с этим модулем не хочет работать. Да и не используется он у Вас никак. 0