Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

    n, i: Integer;

    a: Matrix;

    b, x: Vector;

    e: Data;

Begin

      ClrScr;

      Writeln('Программа решения систем линейных уравнений по методу Зейделя');

      Writeln;

      Writeln('Введите порядок матрицы системы (макс. 10)');

      Repeat

             Write('>');

             Read(n);

      Until (n > 0) and (n ');

             Read(e);

      Until (e > 0) and (e < 1);

      Writeln;

      Writeln('Введите расширенную матрицу системы');

      ReadSystem(n, a, b);

      Writeln;

      { Предполагаем начальное приближение равным нулю }

      For i := 1 to n do

          x[i] := 0;

      If Seidel(n, a, b, x, e) then begin

         Writeln('Результат вычислений по методу Зейделя');

         WriteX(n, x);

Рекомендуем скачать другие рефераты по теме: бесплатные рефераты и курсовые, хозяйство реферат.



Предыдущая страница реферата | 5  6  7  8  9  10  11  12  13  14  15 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки