Системи лінійних рівнянь
МІНІСТЕРСТВО ОСВІТИ І НАУКИ, МОЛОДІ ТА СПОРТУ УКРАЇНИ
КИЇВСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ ТЕХНОЛОГІЙ ТА ДИЗАЙНУ
Звіт
про виконання самостійної роботи
з курсу «Спеціальна дисципліна за напрямом випускної роботи»
Виконала:
ст. гр. мгІТ1-14
Мироненко Тетяна
Київ
СИСТЕМИ ЛІНІЙНИХ РІВНЯНЬ
Знайду рішення системи рівнянь методом Крамера:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
strngrd1: TStringGrid;
btn1: TButton;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
procedure zapis;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a: array [1..4] of array [1..5] of real;
implementation
{$R *.dfm}
procedure TForm1.zapis;
var
i,j: integer;
begin
strngrd1.Cells[0,0]:='1';
strngrd1.Cells[1,0]:='2';
strngrd1.Cells[2,0]:='3';
strngrd1.Cells[3,0]:='1';
strngrd1.Cells[0,1]:='2';
strngrd1.Cells[1,1]:='3';
strngrd1.Cells[2,1]:='1';
strngrd1.Cells[3,1]:='0';
strngrd1.Cells[0,2]:='3';
strngrd1.Cells[1,2]:='1';
strngrd1.Cells[2,2]:='2';
strngrd1.Cells[3,2]:='0';
for i:=1 to 4 do
for j:=1 to 3 do
a[i,j]:=strtofloat(strngrd1.Cells[i-1,j-1]);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
x, y,z, vyzn1, vyzn2, vyzn3, vyzn: real;
begin
zapis;
vyzn1:= a[4,1]*a[2,2]*a[3,3]+a[2,1]*a[3,2]*a[4,3]+a[4,2]*a[2,3]*a[3,1]-a[3,1]*a[2,2]*a[4,3]-a[4,2]*a[2,1]*a[3,3]-a[2,3]*a[4,1]*a[3,2];
vyzn2:= a[1,1]*a[4,2]*a[3,3]+a[4,1]*a[3,2]*a[1,3]+a[1,2]*a[4,3]*a[3,1]-a[3,1]*a[4,2]*a[1,3]-a[1,2]*a[4,1]*a[3,3]-a[4,3]*a[1,1]*a[3,2];
vyzn3:= a[1,1]*a[2,2]*a[4,3]+a[2,1]*a[4,2]*a[1,3]+a[1,2]*a[2,3]*a[4,1]-a[4,1]*a[2,2]*a[1,3]-a[1,2]*a[2,1]*a[4,3]-a[2,3]*a[1,1]*a[4,2];
vyzn:= a[1,1]*a[2,2]*a[3,3]+a[2,1]*a[3,2]*a[1,3]+a[1,2]*a[2,3]*a[3,1]-a[3,1]*a[2,2]*a[1,3]-a[1,2]*a[2,1]*a[3,3]-a[2,3]*a[1,1]*a[3,2];
x:=vyzn1/vyzn;
y:=vyzn2/vyzn;
z:=vyzn3/vyzn;
edt1.text:=floattostr(x);
edt2.text:=floattostr(y);
edt3.text:=floattostr(z);
end;
end.
Дата добавления: 2015-12-21; просмотров: 89; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!