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

Question

Информатика

Христюха

17 мая, 01:02

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

+1

Ответы (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.