Даны три положительных числа. Если они могут быть длинами сторон остроугольного треугольника, то вычислить его площадь и определить вид треугольника (равносторонний, равнобедренный или разносторонний), иначе выдать соответсвующее сообщение.

Question

Информатика

Парфений

10 апреля, 20:22

Даны три положительных числа. Если они могут быть длинами сторон остроугольного треугольника, то вычислить его площадь и определить вид треугольника (равносторонний, равнобедренный или разносторонний), иначе выдать соответсвующее сообщение.

+3

Ответы (1)

Знаешь ответ?

Акакий · Answer 1

uses crt;

var a, b, c, mn, mx, sr, p, s:real;

begin

clrscr;

writeln ('Введите 3 числа:');

readln (a, b, c);

if (a=b+c) then

write ('Это не треугольник!') else

begin

mn:=a;

if b
if c
mx:=a;

if b>mx then mx:=b;

if c>mx then mx:=c;

sr:=a+b+c-mn-mx;

if (a=b) and (b=c) then writeln ('Это равносторонний треугольник')

else if ((a=b) and (bc)) or ((a=c) and (bc)) or ((b=c) and (ab)) then

writeln ('Это равнобедренный треугольник')

else writeln ('Это разноcторонний треугольник');

p: = (a+b+c) / 2;

s:=sqrt (p * (p-a) * (p-b) * (p-c));

writeln ('его площадь=', s:0:2);

write ('Стороны в порядке убывания: ', mx:0:2,' ', sr:0:2,' ', mn:0:2);

end;

readln

end.