Решение СЛАУ методом простой итерации на QBasic
Формулировка задачи:
я написала программу, но там где-то ошибка.эту строчку я выделила красным.кто в этом понимает, найдите ошибку.
REM Reshenie SLAY metodom prostoy iteracii
CLS
INPUT "E="; E
FOR I = 1 TO 4
FOR J = 1 TO 4
PRINT "A"; I; J; "=";
INPUT A(I, J)
NEXT J
NEXT I
FOR I = 1 TO 4
PRINT "B"; I; "=";
INPUT B(I)
NEXT I
FOR I = 1 TO 4
PRINT "x"; I; "=";
INPUT x(I)
NEXT I
DO
FOR I = 1 TO 4
S = 0
FOR J = 1 TO 4
S = S + A(I, J) * x(J)
NEXT J
r(I) = B(I) - S
NEXT I
FOR I = 1 TO 4
x(I) = (x(I) - r(I)) / A(I, I)
NEXT I
max = r(1)
FOR I = 2 TO 4
IF ABS(max) < r(I) THEN max = r(I)
NEXT I
LOOP WHILE ABS(max) > E
FOR I = 1 TO 4
PRINT "x"; I; "="; x(I)
NEXT I
END
P.S.Это матрица размером 4х4
Решение задачи: «Решение СЛАУ методом простой итерации на QBasic»
textual
Листинг программы
dim a(4,4),b(4),x(4),r(4)
Объяснение кода листинга программы
- Объявляются массивы a(4,4), b(4), x(4), r(4) размером 4x4.
- Задаются начальные значения для переменных a, b, x, r.
- Запускается цикл for i%=1 to 4, который будет выполняться 4 раза.
- Внутри цикла выполняется присваивание элементам массива a значения элемента массива b, умноженного на элемент массива x.
- Выполняется присваивание элементам массива r значения элемента массива a.
- Завершается цикл for i%=1 to 4.
- Код завершается.