Pascal. Даны координаты...

[Paul Oakenfold]

№1.
Даны координаты верхней левой и нижней правой вершин прямоугольника. Определить, вместится ли в него круг радиуса R.

№2.

Пусть даны три числа. Если они могут быть длинами сторон треугольника, определить его вид (прямоугольный, тупоугольный, остроугольный). Вычислить его периметр и площадь.

[capta1n]

1)

program pascall;
const
 x1 = 0; y1 = 3;
 x2 = 4; y2 = 0;
var
 R : real;
 l1,l2 : real;
 flag : boolean;
begin
 write ('Enter R= '); readln(R);
 l1:=sqrt(sqr(x1)+sqr(y1));
 l2:=sqrt(sqr(x2)+sqr(y2));
 if l1>l2 then
  if R>l2 then flag:=false
          else flag:=true
 else
  if R>l1 then flag:=false
          else flag:=true;
 if flag then writeln ('Yes')
         else writeln ('No');
 readln
end.

[capta1n]

2) http://programmersforum.ru/showthread.php?t=42050

[Paul Oakenfold]

P.S. Мерси, но во второй задачи нужно после определения треугольника найти его площадь и периметр... а не Найдите углы треугольника (теорема косинусов).

буду благодарен ещё за вторую)))

[capta1n]

если Вы хоть немного разбраетесь в программировании, тогда Вам формулы - периметр - у меня брат младший знает, как периметр найти p=сумма всех сторон что до площади, то площадь равна S=(1/2)*a*b*sin(fi), где fi - угол между сторонами a и b.

соответственно

p=a+b+c; S=(1/2)*a*b*sin(fi1)

вот и все