Лабы и курсовая для АТП / Курсовая Pset 1

Pset 1

program pset;

uses crt;

const n=5;

var

a: array [1..n,1..3] of real;

i,j,k: integer;

z,p1,p2,p3,q1,q2,q3,r1,r2,r3:real;

function det(a11,a12,a13,a21,a22,a23,a31,a32,a33:real):real;

begin

det:=a11*a22*a33+a12*a23*a31+a13*a21*a32-a13*a22*a31-a12*a21*a33-a11*a23*a32;

end;

begin

clrscr;

randomize;

for i:=1 to n do

begin

for j:=1 to 3 do

begin

a[i,j]:=i;

write(a[i,j]:10:2)

end;

writeln;

writeln;

end;

q1:=a[2,1]-a[1,1];

q2:=a[2,2]-a[1,2];

q3:=a[2,3]-a[1,3];

r1:=a[3,1]-a[1,1];

r2:=a[3,2]-a[1,2];

r3:=a[3,3]-a[1,3];

k:=0;

for i:=4 to n do

begin

p1:=a[i,1]-a[1,1];

p2:=a[i,2]-a[1,2];

p3:=a[i,3]-a[1,3];

z:=det(p1,p2,p3,q1,q2,q3,r1,r2,r3);

if z<>0 then k:=k+1

end;

if k<>0 then writeln(‘’)

else writeln (‘’);

repeat until keypressed;

end.