290 End //Конец программы Решение системы линейных уравнений методом Зейделя
1. Цель: найти решение системы уравнений
2. Решение производиться поэтапным
вычислением корней
3. Используются циклы и массивы.
4. Код программы:
10 INPUT " N=";
N //Определение количества
уравнений (размерности массива)
20 DIM A(N,
N+1), X(N)
//Определение массивов А и Х
30 FOR I=1 TO N: PRINT "VVOD STROKI ";I
// Ввод данных
в строки
40 FOR J=1 TO N+1: INPUT A(I,J): NEXT J: NEXT
I //Ввод данных
в следующую
строку
50 FOR P=1 TO
N: X(P)
= 0: NEXT P
//Заполнение нулями значений
массива Х
60 FOR I=1 TO N: FOR J=1 TO N+1: PRINT A(I,J):
NEXT J: NEXT I //Вывод всех
значений массива
70 INPUT "NUMBER
OF ITER= ";M
//Ввод количества итераций
80 FOR K=1 TO
M
//Цикл для перебора значений
90 FOR I=1
TO N: S=A(I,N+1)
//Цикл для перебора
строки и её вычисления
100 FOR J =
I TO N:
S=S-A(I,J)*X(J):
NEXT J
//Цикл для перебора и вычисления следующей
строки
110 S=S/A(I,I):X(I)
= X(I) +S
//Вычисление получившихся
значений
120 NEXT I
//Переход на следующий шаг
130 NEXT K
//Переход на следующий шаг
140 FOR I=1 TO
N: PRINT X(I):
NEXT I
//Вывод результата с помощью цикла
150 End //Конец программы
