Лабораторная работа №4
Вариант – 5
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{****************************************************}
{Программа:Treygolniс,Лаб.раб.#5,Вар.6 }
{Цель:проверка,является ли треугольник равносторонним}
{Описание параметров и переменных: }
{A,B,C-исходные числа }
{K,F-логические переменные }
{Программист:Юняев А.А.,гр.243 }
{Проверил:профессор Новичков В.С.,кафедра ВПМ }
{Дата написания:8.10.2002год }
{****************************************************}
Program Treygolnic;
Var a,b,c:Real;
k,f:Boolean;
Begin{Treygolnic}
Writeln('Введите числа a,b,c');
Read(a,b,c);
Writeln('Исходные данные');
Writeln('a=',a,',b=',b,',c=',c);
k:=(a>0)and(b>0)and(c>0)and(a+b>c)and(b+c>a)and(a+c>b);
f:=(a=b)and(b=c);
If k
Then If f
Then Writeln ('Треугольник равносторонний')
Else Writeln ('Треугольник не равносторонний')
Else Writeln ('Треугольник не существует')
End.{Treygolnic}
|