Помогите, пожалуйста, написать программу в Паскаль ABC..

Входящие данные - a,b,c - стороны треугольника. Найти:
a) Тип треугольника, который получается при построении по хаданным сторонам треугольника;
б) Найти периметр и площадь (с этим более менее разобралась) ;
в) Найти биссектрису, медиану, высоту из каждой вершины;
г) По теореме Пифагора найти угол каждой из сторон.
Заранее огромное спасибо, никак не могу понять все это: (

1
Это всё надо вместить в одну программу?

Ответы и объяснения

2014-01-11T14:47:09+04:00
Программа, выполняющая задачи а, б и г:

var
a,b,c:integer;
p2: real;
cosa,cosb,cosc:real;
begin
write('Введите строну a = ');
readln(a);
write('Введите строну b = ');
readln(b);
write('Введите строну c = ');
readln(c);
cosa:=(sqr(b)+sqr(c)-sqr(a))/(2*b*c);
cosb:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);
cosc:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
writeln;Write('ТРЕУГОЛЬНИК: ');
If c-b-a>=0 Then begin writeln('НЕ СУЩЕСТВУЕТ'); readln; exit end;
If b-c-a>=0 Then begin writeln('НЕ СУЩЕСТВУЕТ'); readln; exit end;
If a-b-c>=0 Then begin writeln('НЕ СУЩЕСТВУЕТ'); readln; exit end;
    If a-b=0 then if c-0=a then write('РАВНОСТРОННИЙ ');
if a-b=0 then if c-0-a<>0 then write('РАВНОБЕДРЕННЫЙ ');
if a-c=0 then if b-0-a<>0 then write('РАВНОБЕДРЕННЫЙ ');
if c-b=0 then if a-0-c<>0 then write('РАВНОБЕДРЕННЫЙ ');
    if a<>b then if a<>c then if b<>c then  write('РАЗНОСТОРОННИЙ ');
if cosa>0 then if cosb>0 then if cosc>0 then Writeln('ОСТРОУГОЛЬНЫЙ');
if cosa=0 then writeln('ПРЯМОУГОЛЬНЫЙ');
if cosb=0 then writeln('ПРЯМОУГОЛЬНЫЙ');
if cosc=0 then Writeln('ПРЯМОУГОЛЬНЫЙ');
if cosa<0 then writeln('ТУПОУГОЛЬНЫЙ');
if cosb<0 then writeln('ТУПОУГОЛЬНЫЙ');
if cosc<0 then writeln('ТУПОУГОЛЬНЫЙ');
writeln('Периметр треугольника равен ',a+b+c);
p2:=(a+b+c)/2;
writeln('Площадь треугольника равна ',sqrt(p2*(p2-a)*(p2-b)*(p2-c)));
writeln('Угол, лежащий напротив стороны a равен ',arccos(cosa):0:4,' радиан');
writeln('Угол, лежащий напротив стороны b равен ',arccos(cosb):0:4,' радиан');
writeln('Угол, лежащий напротив стороны c равен ',arccos(cosc):0:4,' радиан');
readln;
end.