Даны 3 числа. определить, существует ли треугольник с такими сторонами - Pascal

Узнай цену своей работы

Формулировка задачи:

даны 3 числа. определить, существует ли треугольник с такими сторонами

Решение задачи: «Даны 3 числа. определить, существует ли треугольник с такими сторонами»

textual
Листинг программы
program dark_side;
uses crt;
var a,b,c:integer:
begin
clrscr;
writeln('enter numbers');
readln(a);
readln(b);
readln(c);
if (a>=b+c)or(b>=a+c)or(c>=a+b) then
writeln('there is no such triangle')
else
writeln('this triangle exists');
readln;
end.

Объяснение кода листинга программы

В данном коде на языке Pascal происходит следующее:

  1. Создается программа под названием dark_side.
  2. Включается библиотека crt.
  3. Объявляются три переменные типа integer: a, b и c.
  4. Выводится сообщение enter numbers (введите числа).
  5. С помощью функции readln считываются три числа с консоли.
  6. Проверяется условие: если a больше или равно b+c, или b больше или равно a+c, или c больше или равно a+b. Если хотя бы одно из этих условий выполняется, то выводится сообщение there is no such triangle (нет такого треугольника).
  7. Если ни одно из условий не выполняется, то выводится сообщение this triangle exists (существует такой треугольник).
  8. Выводится символ новой строки с помощью функции readln.

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы