Oliy matematika va axborot texnologiyalari

Kramer formulalari bo’yicha sistema yechimini topamiz:

Tekshirish:

Javob: .
Ayni paytda, zamonaviy texnologiyar jadal ravishda rivojlanmoqda. Aynan shu sababga ko’ra endilikda biz, misol tariqasida zamonaviy kompyuter dasturlari yordamida tajriba ishlarini amalga oshirish usullarini ko’rib chiqamiz.
Misol:


Kramer usuliga turbo paskalda tuzilgan dastur.
uses crt;

LABEL 1,2;

var a:array[1..4,1..4] of real;

e:array[1..4,1..4] of real;

c:array[1..4,1..4] of real; b:array[1..4] of real;

det:array[1..4] of real; d:array[1..4] of real;

x:array[1..3] of real;

i,j,k,t1,t2,m,h:integer;

f1,f2,dd,t3:real;

begin

ClrScr;

Writeln('Kramer usuli');

begin

for i:=1 to 3 do begin

for j:=1 to 3 do begin

write('A[',i,',',j,']= ');

readln(a[i,j]);

end;

end;

for i:=1 to 3 do begin

write('B[',i,']= '); readln(b[i]); end;

begin

f1:=a[1,1]*a[2,2]*a[3,3]+a[1,2]*a[2,3]*a[3,1]+a[1,3]*a[2,1]*a[3,2];

f2:=-a[3,1]*a[2,2]*a[1,3]-a[2,1]*a[1,2]*a[3,3]-a[3,2]*a[2,3]*a[1,1];

dd:=f1+f2;

end;

begin

f1:=b[1]*a[2,2]*a[3,3]+a[1,2]*a[2,3]*b[3]+a[1,3]*b[2]*a[3,2];

f2:=-b[3]*a[2,2]*a[1,3]-b[2]*a[1,2]*a[3,3]-a[3,2]*a[2,3]*b[1];

det[1]:=f1+f2;

end;

begin

f1:=a[1,1]*b[2]*a[3,3]+b[1]*a[2,3]*a[3,1]+a[1,3]*a[2,1]*b[3];

f2:=-a[3,1]*b[2]*a[1,3]-a[2,1]*b[1]*a[3,3]-b[3]*a[2,3]*a[1,1];

det[2]:=f1+f2;

end;

begin

f1:=a[1,1]*a[2,2]*b[3]+a[1,2]*b[2]*a[3,1]+b[1]*a[2,1]*a[3,2];

f2:=-a[3,1]*a[2,2]*b[1]-a[2,1]*a[1,2]*b[3]-a[3,2]*b[2]*a[1,1];

det[3]:=f1+f2;

end;

begin

for i:=1 to 3 do begin

x[i]:=det[i]/dd;

writeln('x',i,'=','',x[i]:4:2);

end;

end;

readln;

end;

end.
Endi ushbu misolni mahsus tuzilgan dastur yordamida hisoblab ko’ramiz.

Qiymatlarni dasturni “play” tugmachasi bilan ishga tushirib kiritamiz.



Barcha qiymatlarni kiritgandan so’ng, “enter” tumachasini bosib, olingan natijalarni solishtiramiz.
Javob: .
Ko’rib turganingizdek javoblar qoniqarli.