Программирование алгоритмов разветвляющейся структуры на языке Турбо Паскаль
Продолжительность:
80 мин.
Цель:
Изучить процесс построения алгоритмов разветвляющейся структуры. Научиться программировать разветвляющиеся алгоритмы с помощью операторов If…Then…Else и оператора Case…Of. Изучить составной оператор Begin…End.
Результат обучения:
После успешного завершения занятия пользователь должен:
уметь составлять алгоритмы разветвляющейся структуры;
знать синтаксис операторов If…Then…Else и Case…Of;
уметь записывать алгоритмы разветвляющейся структуры на языке Турбо Паскаль;
уметь использовать составной оператор Begin … End.
Используемые программы:
ИСР - TURBO PASCAL 7.0.
План занятия:
Часть I. Изучение правил построения алгоритма разветвляющейся структуры
и записи программы с использованием оператора If…Then…Else. 10 минут
Часть II. Изучение правил использования оператора Case..Of . 10 минут
Часть III. Самостоятельная работа 60 минут
ЗАПУСК ПРОГРАММЫ:
Предполагается, что требуемые программы уже инсталлированы на диске.
(См. «Инструкцию по установке программы на ПК»)
Часть I. Изучение правил построения алгоритма разветвляющейся структуры и записи программы с использованием оператора If…Then…Else.
Рекомендуемое время
10 Минут
Алгоритм решения задачи, как правило, представляет собой совокупность стандартных алгоритмических структур. Одной из таких структур является развилка (полная и неполная). Разветвление применяется, когда в зависимости от условия нужно выполнить либо одно, либо другое действие.
Для программирования проверки условия и выбора действия в зависимости от условия используются условные операторы.
Условный оператор:
If <логическое выражение> Then <Действие 1> Else <Действие 2>;
Если логическое выражение имеет значение True, то выполняется <Действие 1>. Если логическое выражение имеет значение False, то выполняется <Действие 2>.
Под обозначением <Действие 1> и <Действие 2> понимается один любой оператор языка. Если в зависимости от условия потребуется выполнить несколько операторов, то такие операторы нужно заключить в операторные скобки Begin и End. В Турбо Паскале любая последовательность операторов, находящаяся между словами Begin и End, считается одним оператором, называемым составным оператором.
Условный оператор может использоваться без части Else. В этом случае реализуется структура «развилка неполная».
If <логическое выражение> Then <Действие>;
Если логическое выражение имеет значение True, то выполняется оператор, стоящий за служебным словом Then, иначе осуществляется переход к оператору, следующему за условным оператором.
Пример 1.
Условие задачи:
Даны числа X, Y, Z. Определить, что больше: сумма этих чисел или их произведение.
Схема алгоритма:
Программа:
Program Comparat;
Var x, y, z, S, P:Real;
Begin
Write(‘Введите X ’); Readln(x);
Write(‘Введите Y ’); Readln(y);
Write(‘Введите Z ’); Readln(z); {Ввод исходной информации}
S := x + y + z;
P := x * y * z;
If S > P Then WriteLn(‘Сумма больше, чем произведение X, Y, Z’)
{Оператор, исполняемый в случае,
если логическое выражение имеет значение True}
Else WriteLn(‘Произведение больше или равно сумме X, Y, Z’);
{Оператор, исполняемый в случае,
если логическое выражение имеет значение False}
End.
Пример 2.
Условие задачи:
Даны два числа X и Y. Вычислить квадратные корни данных чисел, если оба значения больше нуля, и оставить числа без изменения, если это не так.
Программа:
Program XY;
Var x, y: Real;
Begin
Write(‘Введите x и y ‘); Readln(x, y);
If (x>0) and (y>0) Then Begin {Если лог. выражение имеет значение True, то выполняется составной оператор}
X := Sqrt(x);
Y := Sqrt(y);
End; {Условный оператор закончился}
Writeln(‘x=’, x, ‘, y=’, y);
Readln;
End.