[Sphinx]

Отправил сообщение выше дважды Хз как удалить Вот решил накидать текст програмки

Код:

Program lab;

Var
T:Text;
a,b,c,S,P:real;
X1,Y1,X2,Y2,X3,Y3:real;

Begin
AssignFile(T,'input.txt');
Reset(T);
While Not(Eof(T)) do begin
Read(T,X1);
Read(T,Y1);
Read(T,X2);
Read(T,Y2);
Read(T,X3);
Read(T,Y3);
end;
CloseFile(T);
a:=Sqrt(Sqr(X2-X1)+sqr(Y2-Y1));
b:=Sqrt(Sqr(X3-X2)+sqr(Y3-Y2));
c:=Sqrt(Sqr(X1-X3)+sqr(Y1-Y3));
P:=(a+b+c)/2;
S:=SQRT(P*(P-a)*(p-b)*(p-c));
AssignFile(T,'output.txt');
Rewrite(T);
Writeln(T,S);
Write(T,P*2)
closeFile(T);
END.

Admin: Use Tags!