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

Задача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

Вывод:

Не существует

Равносторон.

Равнобедр.

Разностор.

начало

Вывод

'разност.'

(3)

Вывод

'не сущ.'

Ввод

x, y, z

Нет

Да

(1)

Нет

Да

(2)

Нет

Да

Вывод

'равност.'

Вывод

'равноб.'

конец

Program vid_tr1;

var x, y, z: integer;

begin

write ('x=');

readln (x);

write ('y=');

readln (y);

write ('z=');

readln (z);

if (x+yor (x+zor (y+z

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

Вывод:

Не существует

Остроугольный

Тупоугольный

Прямоугольный