Умова: визначити вид трикутника за градусною мірою двох його внутрішніх кутів. Словесний опис 1.Вводимо значення градусної міри двох його кутів А, В. 2.Обчислимо С = 180 – А – В. 3.Якщо А 0 або B 0 або C 0, то припиняємо виконання алгоритму після виведення фрази: Трикутник не існує. 4.Якщо A = 60 і B = 60 і C = 60, то виводимо повідомлення: Трикутник рівносторонній і припиняємо виконання алгоритму. 5.Якщо A = B або B = C або C = A, то виводимо повідомлення: Трикутник рівнобедрений інакше виводимо повідомлення: Трикутник різносторонній. 6.Якщо А > 90 або В > 90 або С > 90, то виводимо повідомлення: Трикутник тупокутний. 7.Якщо А = 90 або В = 90 або С = 90, то виводимо повідомлення: Трикутник прямокутний. 8.Якщо А < 90 і В < 90 і С < 90, то виводимо повідомлення: Трикутник гострокутний.

Блок-схема Початок Введення А, В C := 180 – A – B A 0 B 0 C 0 Виведення: Трикутник не існує

A = B B = C C = A Виведення: Трикутник різносторонній Виведення: Трикутник рівнобедрений A = 60 B = 60 C = 60 Виведення: Трикутник рівносторонній

A = 90 B = 90 C = 90 Виведення: Трикутник прямокутний Виведення: Трикутник тупокутний A > 90 B > 90 C > 90

Кінець Виведення: Трикутник гострокутний A < 90 B < 90 C < 90

Програма О.Рудика мовою Turbo Pascal 7.0 var a,b,c: real; begin write('З''ясуємо вид трикутника за градусною мірою двох ', 'кутів. Задайте їх значення '); readln(a,b); c:=180-a-b; write('Трикутник '); if (a<=0) or (b<=0) or (c<=0) then begin writeln('не існує.'); halt end; if (a=60) and (b=60) then begin writeln('рівносторонній.'); halt end; if (a=90) or (b=90) or (c=90) then write('прямокутний ') else if (a>90) or (b>90) or (c>90) then write('тупокутний ') else write('гострокутний '); if (a=b) or (a=c) or (b=c) then writeln('і рівнобедрений.') else writeln('і різносторонній.') end.

Демонстраційне розв'язання створила студентка групи ІНБ 1/07 КМПУ ім. Б. Д. Грінченка Поліщук Наталія