Другие языки программирования и технологии

Ребят, помогите написать программу для Паскаля!

Даны три натуральных числа - длины сторон треугольника. Определите, существует ли треугольник с такими сторонами, и если он существует, то определите его тип(остроугольный, тупоугольный, прямоугольный). На вход программе подаются 3 натуральных числа, не превосходящих 10000. Выведите тип треугольника или сообщение, что такого треугольника не существует. Желательно привести наиболее рациональное решение. В тетради должна быть блок-схема
Хроник Риддик
Хроник Риддик
554
var a, b, c : Word;
begin
Write('Введите три натуральных числа: '); ReadLn(a, b, c);
if (a = 0) or (b = 0) or (c = 0) then begin WriteLn('Натуральное число больше 0!'); Halt; end;
if a > b then begin a := a + b; b := a - b; a := a - b; end;
if b > c then begin b := b + c; c := b - c; b := b - c; end;
if a > b then begin a := a + b; b := a - b; a := a - b; end;
if a+b < c then WriteLn('Такого треугольника не существует. ')
else if a+b = c then WriteLn('Треугольник вырожден в прямую. ')
else if a*a+b*b = c*c then WriteLn('Прямоугольный треугольник. ')
else if a*a+b*b < c*c then WriteLn('Тупоугольный треугольник. ')
else WriteLn('Остроугольный треугольник. ')
end.
ВГ
Вадим Горин
53 571
Лучший ответ
Хроник Риддик Спасибо огромное))
var x,y,z:real;
begin
writeln ('Сторона 1 = ');
readln (x);
writeln ('Сторона 2 = ');
readln (y);
writeln ('Сторона 3 = ');
readln (z);
if (x+y > z) and (x+z > y) and (y+z > x) then
begin
writeln ('Треугольник существует')
if sqr(x) + sqr(y) - sqr(z) > 0 then writeln ('Остроугольный')
else if sqr(x) + sqr(y) -sqr(z) = 0 then writeln ('Прямоугольный')
else if sqr(x) + sqr(y) - sqr(z) < 0 then writeln ('Тупоугольный')
end;
else writeln ('Треугольник не существует');
end.
PB
Paul Brown(Зф)
7 165
Вадим Горин Даны три натуральных числа...
А у тебя Real
Вадим Горин Даны три натуральных числа...
А у тебя Real
Хроник Риддик Спасибо огромное)
Николаи Павлов От балды написал??

Похожие вопросы