Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
ЛР_2_11.doc
Скачиваний:
0
Добавлен:
27.11.2019
Размер:
240.13 Кб
Скачать

Программирование алгоритмов разветвляющейся структуры на языке Турбо Паскаль

Продолжительность:

80 мин.

Цель:

Изучить процесс построения алгоритмов разветвляющейся структуры. Научиться программировать разветвляющиеся алгоритмы с помощью операторов IfThenElse и оператора CaseOf. Изучить составной оператор BeginEnd.

Результат обучения:

После успешного завершения занятия пользователь должен:

  • уметь составлять алгоритмы разветвляющейся структуры;

  • знать синтаксис операторов If…Then…Else и Case…Of;

  • уметь записывать алгоритмы разветвляющейся структуры на языке Турбо Паскаль;

  • уметь использовать составной оператор BeginEnd.

Используемые программы:

ИСР - TURBO PASCAL 7.0.

План занятия:

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

и записи программы с использованием оператора IfThenElse. 10 минут

Часть II. Изучение правил использования оператора Case..Of . 10 минут

Часть III. Самостоятельная работа 60 минут

ЗАПУСК ПРОГРАММЫ:

Предполагается, что требуемые программы уже инсталлированы на диске.

(См. «Инструкцию по установке программы на ПК»)

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

Рекомендуемое время

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.

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]