Разветвляющиеся алгоритмы
Условный оператор IF
Задача 1. Определить является ли данное целое число R чётным. Дать словесный ответ.
USES Crt;
VAR
R: INTEGER;
BEGIN
ClrScr;
WriteLn('Введите число');
ReadLn(R); IF R MOD 2 = 0 Then WriteLn('Число чётное')
Else WriteLn('Число не чётное');
END.
Задача 2. Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3]
USES Crt;
VAR
X, Y, Z: INTEGER;
BEGIN
ClrScr;
WriteLn('Введите три целых числа');
ReadLn(X,Y,Z);
IF (X>=1) AND (X<=3) Then WriteLn('Первое число принадлежит заданному интервалу')
Else WriteLn('Первое число не принадлежит заданному интервалу');
IF (Y>=1) AND (Y<=3) Then WriteLn('Второе число принадлежит заданному интервалу')
Else WriteLn('Второе число не принадлежит заданному интервалу');
IF (Z>=1) AND (Z<=3) Then WriteLn('Третье число принадлежит заданному интервалу')
Else WriteLn('Третье число не принадлежит заданному интервалу');
END.
Задача 3. Даны положительные целые числа A, B, C. Выяснить существует ли треугольник с длинами сторон A, B, C.
USES Crt;
VAR
A, B, C: INTEGER;
BEGIN
ClrScr;
WriteLn('Введите три числа');
ReadLn(A,B,C);
IF (A+B>C) AND (A+C>B) AND (B+C>A) Then WriteLn('Треугольник построить можно')
Else WriteLn('Треугольник построить нельзя');
END.
.....................................................................................................................................
Практические задания
.....................................................................................................................................
- Заданы два числа X, Y. Меньшее из двух значений заменить на 0. Если же они равны - заменить нулями оба.
- Поменять местами значения целых переменных A, B, C таким образом, чтобы оказалось A >= B >= C.
- Заданы три числа X, Y, Z. Найти min(XYZ, X+Y+Z).
