Текстовый документ «Задачи в Паскале на определение вида треугольника»

Задача1. Определить вид треугольника в зависимости от сторон.

(x+y<z) or (x+z<y) or (y+z<x) – треугольник не существует (1)

(x=y) and (x=z) and (y=z) - треугольник равносторонний     (2)

(x=y) or (x=z) or (y=z) - треугольник равнобедренный       (3)

Тест:

Ввод:	X= 5 Y= 7 Z= 15	X= 5 Y= 5 Z= 5	X= 5 Y= 5 Z= 7	X= 3 Y= 4 Z= 5
Вывод:	Не существует	Равносторон.	Равнобедр.	Разностор.

 

Program vid_tr1;

  var x, y, z: integer;

  begin

     write (‘x=’);

     readln (x);

     write (‘y=’);

     readln (y);

     write (‘z=’);

     readln (z);

     if (x+y<z) or (x+z<y) or (y+z<x)

        then writeln (‘треугольник  не существует’)

        else

           if (x=y) and (x=z) and (y=z)

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

             else

                if (x=y) or (x=z) or (y=z)

                  then writeln (‘треугольник равнобедренный)

                  else writeln (‘треугольник разносторонний)

    end.

Задача 2. Определить вид треугольника в зависимости от углов.

(x+y+z <>180)  – треугольник не существует (1)

(x<90) and (z<90) and (y<90) - треугольник остроугольный     (2)

(x>90) or (z>90) or (y>90) - треугольник тупоугольный       (3)

(x=90) or (z=90) or (y=90) - треугольник прямоугольный      

Тест:

Ввод:	X= 50 Y= 90 Z= 90	X= 60 Y= 60 Z= 60	X= 120 Y= 30 Z= 30	X= 90 Y= 60 Z= 30
Вывод:	Не существует	Остроугольный	Тупоугольный	Прямоугольный