При записи составных логических условий следует помнить порядок выполнения операций.
Задача 3.
Даны числа X,Y,Z. Проверить, можно ли построить треугольник с данными сторонами.
Решение:
Program Vet3;
Var X,Y,Z:Integer;
Begin
Writeln(’Введите 3 числа’);
Readln(X,Y,Z);
If (X+Y>Z) and (X+Z>Y) and (Y+Z>X) Then
Writeln(’Треугольник существует.’)
Else
Writeln(’Треугольник не существует.’);
End.
Задачи
1. Даны числа А, В, С. Определить есть ли среди них отрицательные числа.
2. По введенной температуре определить здоров человек или болен.
3. Даны числа А, В, С. Определить какое из чисел лежит между двумя другими
4. Даны числа А, В, С. Вывести их на экран упорядоченными по возрастанию.
5. Дана точка M(X,Y). Определить, лежит ли данная точка внутри области D:
a) у б) у в) у г) у y=x
2
D 2 х -2 2 х -3 2 х х
D D -2 D
д) у у=х2 е) у ж) у з) у
2
D х 2 х -2 2 х х
D D -2 D
Оператор варианта
