Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 13 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

12
2. Укороченная развилка:
IF <ЛОГИЧ. УСЛОВИЕ> THEN <ОПЕРАТОР 1>;
Так как условный оператор IF является единым предложением, то ни перед
THEN, ни перед ELSE точку с запятой ставить нельзя.
Если в одной из ветвей развилки необходимо выполнить несколько опера-
торов, то их следует заключать в операторные скобки BEGIN – END.
Пример 1. Составить программу, которая по содержанию углерода в
желе-
зе выдавала бы название сплава (Fe-C).
PROGRAM Fe_C;
USES CRT;
VAR X:REAL;
BEGIN
CLRSCR;
WRITELN (‘ВВЕДИТЕ СОДЕРЖАНИЕ УГЛЕРОДА В %:’);
READLN (X);
IF (X<=2.14) THEN WRITELN (‘ЭТО – СТАЛЬ’);
ELSE WRITELN (‘ЭТО – ЧУГУН’);
READKEY
END.
Многоальтернативный выбор можно осуществить также при помощи не-
скольких операторов IF:
IF <УСЛОВИЕ 1> THEN <ОПЕРАТОР 1>;
IF <УСЛОВИЕ 2> THEN <ОПЕРАТОР 2>;
……………………………………………….
IF <УСЛОВИЕ N THEN <ОПЕРАТОР N>;
Пример 2. Реализовать программу из примера 1 при помощи укороченных
развилок IF.
PROGRAM Fe_C;
USES CRT;
VAR X:REAL;
BEGIN
CLRSCR;
WRITELN (‘ВВЕДИТЕ СОДЕРЖАНИЕ УГЛЕРОДА
В %:’);
READLN (X);
IF (X<=2.14) THEN WRITELN (‘ЭТО – СТАЛЬ’);
IF (X>2.14) THEN WRITELN (‘ЭТО – ЧУГУН’);
READKEY
END.

Страницы