Помогите, пожалуйста, написать программу в Паскаль ABC.. Входящие данные - a,b,c - стороны треугольника. Найти:

+ 0 -

Caterina799

08 марта 2014 г., 2:41:55 (10 лет назад)

Программа, выполняющая задачи а, б и г:

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.

+ 0 -

OzernSM

08 марта 2014 г., 3:29:31 (10 лет назад)

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