В даному курсовому проекті розроблено та описано програму отримання результатів розв’язку системи лінійних рівнянь методом Крамера. Програма відладжена з використанням набору текстових даних. Контрольний приклад розроблений вручну для перевірки роботоздатності програми та результат машинного експерименту повністю співпали. Тому можна використовувати дану програму на практиці.
Вибір алгоритмічної мови Паскаль для реалізації поставленої задачі повністю виправдав себе. В процесі розробки програмного забезпечення зроблено висновок про можливість оформлення функції обчислення визначника другого порядку у вигляді програмного модуля, оскільки задача обчислення визначників вищих порядків дуже часто зустрічається при розв’язуванні задач матричної алгебри і може бути зведена до багатократного обчислення визначника другого порядку.
Список використаної літератури
Turbo pascal(учебник) / С.А. Немнюгин – СПБ: Издательство “Питер”, 2000.
М.Я. Ляшенко, М.С. Головань. Чисельні методи. К.:”Либідь”, 1996 – 285 с.
Математика для техникумов – Алгебра и начала анализа.
Додаток 1
(*******************************************************)
(* *)
(* Програма: KRAMER *)
(* *)
(* Автор: Фiлоненко Сеpгiй *)
(* Copyrigth (c) 2003, S.Filonenko *)
(* Дата створення: беpезень 2003 *)
(* *)
(* Використовуванi процедури i функцii: *)
(* vvid *)
(* vyvid *)
(* *)
(********************************************************)
program kramer;
uses graph,crt,dos,zast;
label pt;
var rob:integer;
x1,x2,x3,x4,x5,x6,x7,x8,x9,a,b,c:integer;
d,dx,dy,dz,x,y,z:real;
q:char;
procedure vvid;
begin
closegraph;
clrscr;
textcolor(lightblue);
vid;
gotoxy(9,2); readln (x1);
gotoxy(26,2); readln(x2);
gotoxy(42,2); readln(x3);
gotoxy(57,2); readln(a);
gotoxy(9,4); readln(x4);
gotoxy(26,4); readln(x5);
gotoxy(42,4); readln(x6);
gotoxy(57,4); readln(b);
gotoxy(9,6); readln(x7);
gotoxy(26,6); readln(x8);
gotoxy(42,6); readln(x9);
gotoxy(57,6); readln(c);
end;
procedure vyvid;
begin
closegraph;
clrscr;
textcolor(yellow);
vivyd;
d:=x1*x5*x9+x2*x6*x7+x4*x8*x3-x3*x5*x7-x2*x4*x9-x8*x6*x1;
dx:=a*x5*x9+x2*x6*c+b*x8*x3-x3*x5*c-x2*b*x9-x8*x6*a;
dy:=x1*b*x9+a*x6*x7+x4*c*x3-x3*b*x7-a*x4*x9-c*x6*x1;
dz:=x1*x5*c+x2*b*x7+x4*x8*a-a*x5*x7-x2*x4*c-x8*b*x1;
x:=dx/d;
y:=dy/d;
z:=dz/d;
gotoxy(9,2); writeln (d);
gotoxy(9,4); writeln(dx);
gotoxy(9,6); writeln(dy);
gotoxy(9,8); writeln(dz);
gotoxy(9,10); writeln(x);
gotoxy(9,12); writeln(y);
gotoxy(9,14); writeln(z);
readln;
end;
begin
pt:
rob:=1;
ini;
zas;
while q<>'*' do begin
if keypressed then begin
q:=readkey;
case q of
#80: begin if rob>4 then rob:=1;if rob<4 then rob:=rob+1;end;
#72: begin if rob>1 then rob:=rob-1;if rob<1 then rob:=4; end;
#13: begin if rob=1 then begin about;goto pt;end;
if rob=2 then begin vvid; goto pt; end;
if rob=3 then begin vyvid; goto pt; end;
if rob=4 then halt;
end;
end;
case rob of
1:begin clear;punkt1;end;
2:begin clear;punkt2;end;
3:begin clear;punkt3;end;
4:begin clear;punkt4;end;
end;
end;
end;
end.
Додаток 2
| D | 1.6000000000E+01 |
| DX | 3.2000000000E+01 |
| DY | 4.8000000000E+01 |
| DZ | 1.6000000000E+01 |
| X | 2.0000000000E+00 |
| Y | 3.0000000000E+00 |
| Z | 1.0000000000E+00 |