Курсовая работа: Автоматизация решения систем линейных алгебраических уравнений

Рисунок В.4 Пример

Приложение Г

РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ

На рисунке Г.5 отображено окно решения матрицы на первом шаге. На рисунке Г.6 отображено окно решения матрицы на втором шаге и преобразованная матрица, а также вектор ответов.

Рисунок Г.5 Решение на первом шаге

Рисунок Г.6 Ответы

Приложение Д

ЛИСТИНГ ПРОГРАММЫ

uses Crt, graph;

Var ch: char;

const Nmax=100;

Procedure LoadFile (Name: string);

Var f: text; S: string; code: integer;

Begin

assign (f,Name);

{$I-}

reset (f);

code: =Ioresult;

if code<>0 then

writeln ('Ошибка. Файл не найден! ')

else begin {clrscr}

gotoxy (1,3);

textcolor (10);

TextBackground (0);

while not eof (f) do

begin

readln (f,S);

writeln (S);