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

Программа настроена на решение системы 3-х линейных уравнений с тремя неизвестными. Чтобы решить систему из 2-х уравнений с 2-мя неизвестными необходимо в программе изменить значение константы N с N=3 на N =2 (рис.4).

Рисунок 3.4. Фрагмент программы с описанием констант и переменных.

3.2 Блок-схема программы

Заключение

В данной курсовой работе рассмотрены математические методы решения систем линейных уравнений: матричный метод и метод Гаусса, приводятся основные конструкции языка Паскаль. Рассмотренные теоретические вопросы дают возможность создания программы на Паскале для решения систем линейных уравнений. В курсовой работе приводится текст данной программы, рассматривается структура программы, анализируются все подпрограммы. Данная программа может быть использована в различных областях, где требуется решение систем линейных уравнений.

Список используемых источников и литературы

1. А.В. Могилев, Н.И. Пак, Е.К. Хеннер "Информатика", Москва, ACADEMA, 2000 г.

2. " Турбо Паскаль 7.0", Киев, Торгово-издательское бюро BHV, 1997г.

3. С.А. Немнюгин, "Турбо ПАСКАЛЬ", Практикум, Питер, 2002г.

Приложение

Текст программы

"Решение систем линейных уравнений матричным способом и методом Гаусса"

Program Lin_yravneniya;

uses crt;

const N=3;

eps=0.00001; { all numbers less than eps are equal 0 }

type matr=array [1. n,1. n] of real;

mas=array [1. n] of real;

var

i,j: integer;

b,x: mas;

variant: byte;

a,c: matr;

dt: real;

imx,np: integer;

{*** печать исходной и обратной матрицы*** }

procedure PrintMatr2 (m,m1: matr; n,nz,nd: integer);

var i,j: integer;

begin