задача1. Решение Составим алгоритм решения программы Решение
Скачать 232 Kb.
|
Задание 1 Даны вещественные положительные числа a, b, c. Выяснить, существует ли треугольник со сторонами a, b, c. Решение Составим алгоритм решения программы Решение Входящим значениями являются параметры: стороны треугольника. Так как тип не указан, то будем считать значения вещественными. Треугольник существует только тогда, когда сумма двух его сторон больше третьей. Если это условие выполняется, то выводим на экран сообщение «Существует треугольник со сторонами a, b, c». Если условие не выполняется, то выводим сообщение «Не существует треугольник со сторонами a, b, c» Описание структуры программы Для решения задачи необходимы три вещественные значения переменных . Если выполнены все три условия , то такой треугольник существует, если не выполнено, то не существует. Для очистки экрана используется специальная процедура ClrScr из модуля CRT. Код программы: program pr1; uses crt; var a,b,c:real; begin clrscr; Writeln('Введите стороны треугольника a,b,c'); Readln(a,b,c); Writeln('a=',a,' b=',b,' c=',c); if((a elsewrite('Не существует треугольник со сторонами a, b, c') ; readln; end. Результаты работы программы: |