O’zbekisтon respublikasi хalq тa’limi vazirligi

{ * determinantni Gauss usulida hisoblash * }

Dastur kodini umumiy ko`rinishga keltiramiz:

uses crt;

label 10;

var

z,i,n,k:integer;

d:real;

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

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

begin

clrscr;

write(‘ determinant o‘lchamini kriting N=’);

readln(n);

writeln(‘ determinant elementlarini kriting ‘);

for i:=1 to n do

for z:=1 to n do

begin

gotoxy(z*20,i+4);

write(‘a(‘,i,’;’,z,’)=’);readln(a[i,z]);

end;

k:=1;

10: for z:=k+1 to n do b[k,z]:=a[k,z]/a[k,k];

for i:=k+1 to n do

for z:=k+1 to n do a[i,z]:=a[i,z]-a[i,k]*b[k,z];

k:=k+1;

if k<=n then goto 10;

d:=1;

for i:=1 to n do

d:=d*a[i,i];

write(‘ determinantti qiymati d=’);writeln(d:6:2);

readln;

end.

Determinant o‘lchamini kriting N=3

determinant elementlarini kriting

=2 =7 =13

=3 =14 =12

=5 =25 =16

determinanti qiymati d= -3.00

2.