Тримай ось, прога сира, томущо робив її опів на третю ночі, але працює... program andles;
type
tab=array[1..3]of integer;
tab2=array[1..3]of real;
var
abcX, abcY : tab;
abc: tab2;
al, be, ga, cal, cbe, cga:real;
procedure inp;
var
sy:char;
x:byte;
begin
x:=1;
for sy:='a' to 'c' do begin
writeln('enter coordinates ', sy, ':');
write('X',sy,'=');
readln(abcX[x]);
write('Y',sy,'=');
readln(abcY[x]);
x:=x+1;
end;
end;
Procedure ind;
var
x:byte;
begin
for x:=1 to 3 do begin
if x<3 then
abc[x]:=sqrt(sqr(abcX[x+1]-abcX[x])+sqr(abcY[x+1]-abcY[x]))
else
abc[x]:=sqrt(sqr(abcX[x-2]-abcX[x])+sqr(abcY[x-2]-abcY[x]));
end;
x:=x+1;
end;
Procedure ind2;
begin
cal:=(sqr(abc[2])+sqr(abc[3])-sqr(abc[1]))/(2*abc[2]*abc[3]);
cbe:=(sqr(abc[1])+sqr(abc[3])-sqr(abc[2]))/(2*abc[1]*abc[3]);
cga:=(sqr(abc[1])+sqr(abc[2])-sqr(abc[3]))/(2*abc[1]*abc[2]);
al:=arctan(sqrt(1-sqr(cal))/cal);
be:=arctan(sqrt(1-sqr(cbe))/cbe);
ga:=arctan(sqrt(1-sqr(cga))/cga);
Writeln('alpha angle=',al,' radian');
Writeln('beta angle=',be,' radian');
Writeln('gamma angle=',ga,' radian');
end;
BEGIN
inp;
ind;
ind2;
readln;
end.
З.І.
скинь емейл свій і номер аськи в ЛС
