программа в Паскале

[vitekbest]

Уважаемые программисты, помогите, пожалуйста написать листинг двух программ:
1. доказать тождество(условие во вложенном файле);
2. написать программу для решения следующей задачи: по координатам трёх вершин некоторого трейгольника найти его площадь и периетр.
Заранее благодарен вам!

[Tayfun]

написать программу для решения следующей задачи: по координатам трёх вершин некоторого трейгольника найти его площадь и периетр.

Длина отрезка ноходиться по этой формуле: a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
периметр: p:=a+b+c;
Площадь: s:=sqrt((p/2)*(p/2-a)*(p/2-b)*(p/a-c));

[vitekbest]

спасибо большое!

[vitekbest]

помогите кто-нибудь решить первую прогу, пожалуйста! а то завтра сдавать уже надо! Мне бы полностью листинг проги и если можно ко второ тоже целиком решение, а то что то не получается!

[kommunist]

program zadacha2;
uses crt;
var 
     x1,x2,x3,y1,y2,y3;integer;
     a,b,c:integer;
     s:real;
     p:real;
begin
     clrscr;
     writeln('vvedite x1:');
     readln(x1);
       writeln('vvedite x2:');
     readln(x2);
  writeln('vvedite x3:');
     readln(x3);
     writeln('vvedite y1:');
     readln(y1);
      writeln('vvedite y2:');
     readln(y2);
       writeln('vvedite y3:');
     readln(y3);
    a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
    b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
    c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
    p:=a+b+c;
    s:=sqrt((p/2)*(p/2-a)*(p/2-b)*(p/a-c));
    write('s=',s);
   readln;
end.