2 школьныные задачки

[Komuro]

Распишите задачи от
Program Zadacha1;
до
End.

[ZX Spectrum-128]

По 2-й:
Нужны формулы нахождения длины отрезка по координатам, формула нахождения площади трегольника по трем его сторонам.

[newerow1989]

На счет 1 задачи все элементарно:

Program Zadacha1;
var a,b,c,P,S:real;
begin
   c:=Sqrt(a*a+b*b);
   P:=a+b+c;
   S:=(a+b)/2;
   Writeln('P = ',P:5:5);
   Writeln('S = ',S:5:5);
   Readln;
end.

На счет 2-й тут нужны формулы.

[Serge_Bliznykov]

 S:=(a+b)/2;

опечатались...
Разумеется, нужно произведение брать:

 S:=(a * b)/2;

[newerow1989]

Бывает ...

[apromix]

По второй задаче как то так:

var 
  x1, x2, x3, y1, y2, y3, h, d1, d2, d3, P, S: real;
Begin
  readln (x1, y1, x2, y2, x3, y3);
  d1 := sqrt (sqr(x2-x1) + sqr (y2-y1));
  d2 := sqrt (sqr(x3-x2) + sqr (y3-y2));
  d3 := sqrt (sqr(x1-x3) + sqr (y1-y3));
  P := d1 + d2 + d3; // Периметр
  h := P / 2;
  S:= sqrt(h*(h-d1)*(h-d2)*(h-d3)); // Площадь
end.