Краткая форма условного оператора

Формат краткой формы условного оператора:

IF <лог_усл> THEN оператор1;

Если логическое условие истинно, то выполняется оператор1, если ложно, то выполняется оператор, следующий за оператором IF.

Пример 3.5. Запишем пример 1 при помощи краткой формы оператора IF.

IF X<0 THEN Y := X+1;

IF X>=0 THEN Y := SQRT(X);

Определение чётности и нечётности числа:

или

IF (X MOD 2 = 0)

THEN WRITRELN (‘чётное число’);

IF (X MOD 2 <> 0)

THEN WRITELN (‘нечётное число’);

Задача 3.1. Определить, принадлежит ли точка с координатами (x,y) прямоугольнику с координатами x1, x2, y1, y2.
Примечание. Точка принадлежит прямоугольнику, если x ≥ x1, x ≤ x2; y ≥ y1, y ≤ y2.

Листинг программы

PROGRAM PRIM1;

VAR X, X1, X2, Y, Y1, Y2 : REAL;

BEGIN

READ(X1, X2, Y1, Y2);

IF (X>=X1) AND (X<=X2) AND (Y<=Y1) AND (Y>=Y2)

THEN WRITE (‘точка принадлежит прямоугольнику’)

ELSE WRITE (‘точка не принадлежит прямоугольнику’);

END.

Задача 3.2. Вычислить значение функции Y, которая принимает 3 значения.

Листинг программы

PROGRAM FUN;

USES CRT;

VAR X, Y : REAL;

BEGIN

CLRSCR;

WRITE (‘X = ’);

READLN (X);

IF X<=0.5

THEN Y:=X-EXP(COS(X))

ELSE

BEGIN

IF X<=1 THEN Y:= X*SIN(PI*X)

ELSE Y:= ESP(-X);

END;

END.

Задача 3.3. Пусть значение Y зависит от X, график зависимости приведён на рисунке.
Программа вычисления значения Y по значению X:

{Использование полной формы условного оператора}

PROGRAM PRIM1;

VAR

Y, X : REAL;

BEGIN

IF X<2 THEN Y := X

ELSE

BEGIN

IF X<3 THEN Y:=2

ELSE Y:=-X+5;

END;

END.

{ Использование краткой формы условного оператора }

PROGRAM PRIM2;

VAR

Y, X : REAL;

BEGIN

IF X<2 THEN Y := X;

IF (X>=2) AND (X<3) THEN Y := 2;

IF (X>=3) Y := -X+5;

END.

Задача 3.4. Разработать алгоритм и составить текст программы.

Листинг программы

VAR

X, Y, Z: REAL;

BEGIN

CLRSCR;

READLN (X, Y);

IF X<0 THEN

BEGIN

IF X>Y THEN Z:=X ELSE Z:=Y;

END

ELSE

BEGIN

IF X<Y THEN Z:=X ELSE Z:=Y;

END;

WRITELN (‘Z = ’, Z:4:2);

END.

Задача 3.5. Ввести 3 числа и расположить их по возрастанию (алгоритм перестановки или сортировки методом пузырька).

Листинг программы

PROGRAM SORT;

USES CRT;

VAR

A, B, C, K: REAL;

BEGIN

CLRSCR;

READLN (A,B,C);

IF A>B THEN

BEGIN

K := A;

A := B;

B := K;

END;

IF A>C THEN

BEGIN

K := A;

A := C;

C := K;

END;

IF B>C THEN

BEGIN

K := B;

B := C;

C := K;

END;

WRITELN (‘A = ’,A:7:4);

WRITELN (‘B = ’, B:7:4);

WRITELN (‘C = ’,C:7:4);

WRITELN;

END.

Вопросы для самопроверки

1. В каком случае используется оператор условия?

2. Какие существуют виды оператора условия?

3. Какова структура краткой формы оператора условия?

4. Какова структура полной формы оператора условия?

Лабораторная работа №3

Организация ПРОГРАММ РАЗВЕТВЛЯЮЩИХСЯ
СТРУКТУР

Работа посвящена изучению управляющих конструкций языка программирования при помощи различных форм оператора условия.

Цель работы. Изучить управляющие структуры языка и получить навыки составления программ с разветвлениями.

Задание. Проверить попадание точки в заданную область.

Постановка задачи. Записать логическое выражение, соответствующее заданной области истинности.

Варианты заданий

1 у 1 -1 1 х -1	11 у 1 х -3 -1 1 3 -2	21 у 1 -1 1 х   -1
2 у 1 -2 2 х -1	12 у 3 -3 -2 2 3 х   -3	22 у 1 -1 1 х -1 -2
3 у 2 -1 1 х 0	13 у 1 -3 3 х -2	23 у 2 1 0 1 2 х
4 у 1 -2 1 2 х -1	14 у 2 -1 1 х -1	24 у 2 -2 -1 1 2 х -2

5 у 2 1 -2 -1 1 2 х 1	15 у 2 -2 1 2 3 х -2	25 у 2 r=2 -2 x 2
6 у 1 -1 1 х -1 ⇐ Предыдущая12345678910111213141516Следующая ⇒ Просмотров 730 Эта страница нарушает авторские права