Пример 2. Постановка задачи:Написать программу для определения типа треугольника(равносторонний, прямоугольный

Постановка задачи: Написать программу для определения типа треугольника(равносторонний, прямоугольный, остроугольный, тупоугольный, равнобедренный) по заданным двум его углам.

Математическая формулировка задачи:

Задача решается через нахождение третьего угла треугольника

с=180⁰C-(a+b) и последовательную проверку значений углов.

Таблица внешних спецификаций:

	Имя переменной	Назначение переменной	Тип переменной	Единицы измерения
Входные данные	a b	Вводимый угол альфа Вводимый угол бетта	integer integer	0С 0С
Промежуточные вычисления	с	Угол гамма	integer	0C

Расчет контрольных примеров:

При a=60 ⁰C, b=60 ⁰C, вычисления с=180-(60+60)=60⁰С

a=60 и b=60 и с=60=> Треугольник равносторонний.

При a=25 ⁰C, b=90 ⁰C, вычисления с=180-(25+90)=65⁰С, a≠60 и b≠60 и с≠60 =>Треугольник не равносторонний,

a≠90,но b=90 => Треугольник прямоугольный.

Блок-схема:

Программная реализация:

program chisla;

uses

crt;

var

a,b,c: integer;

begin

clrscr;

writeln('Введите угол альфа в градусах');

readln(a);

writeln('Введите угол бетта в градусах');

readln(b);

if (a+b>=180) or (a<0) or (b<0) then

writeln('То что вы ввели не является углами треугольника')

else

begin

c:=180-(a+b);

if (a=60) and (b=60) and (c=60) then

writeln('Треугольник равносторонний')

else

if (a=b) or (b=c) or (a=c) then

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

else

if (a=90) or (b=90) or (c=90) then

writeln('Треугольник прямоугольный')

else

if (a<90) and (b<90) and (c<90) then

writeln('Треугольник остроугольный')

else

writeln('Треугольник тупоугольный');

end;

readln

end.

Протокол выполнения программы:

1) в процессе диалога с пользователем вводим значения углов a=60 ⁰C, b=60⁰C;

2) проверяем условия (a+b>=180) или (a<0) или (b<0) ни одно условия не выполнилось переходим к шагу 3

3) находим третий угол треугольника с=180-(а+b)=60⁰C

4)условие (a=60) и (b=60) и (c=60) выполняется переходим к шагу 5

5) печать ‘Треугольник равносторонний’

1) в процессе диалога с пользователем вводим значения b=25 ⁰C, b=90 ⁰C;

2) проверяем условия (a+b>=180) или (a<0) или (b<0) ни одно условия не выполнилось переходим к шагу 3

3) находим третий угол треугольника с=180-(а+b)=65⁰C

4) условие (a=60) и (b=60) и (c=60) не выполняется переходи к шагу 4.1

4.1) условие (a=b) или (b=c) или (a=c) не выполняется переходим к шагу 4.2

4.2) условие (а=90) или (b=90) или (c=90) выполняется переходим к шагу 5

5) печать ‘Треугольник прямоугольный’