Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Программирование алгоритмов разветвляющейся структуры на языке Турбо Паскаль
Продолжительность:
80 мин.
Цель:
Изучить процесс построения алгоритмов разветвляющейся структуры. Научиться программировать разветвляющиеся алгоритмы с помощью операторов 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.
Часть II. Изучение правил использования оператора Case…Of .
Рекомендуемое время
10 минут
Если в алгоритме разветвляющейся структуры предполагается более двух вариантов (ветвей) расчета, а выбор варианта зависит от значения какой–либо одной переменной, то целесообразно использовать структуру «множественный выбор». Эта структура объединяет в себе несколько структур типа «развилка» и улучшает наглядность схемы алгоритма.
Решение задачи будет осуществляться по одной из ветвей алгоритма в зависимости от того, какое значение примет переменная V.
В программах такая структура реализуется с помощью оператора Case … Of.
Синтаксис оператора:
Case <Выражение порядкового типа> Of <Список выбора> Else <Оператор> End;
Где <Список выбора> — это одна или более конструкций вида:
<Константа или перечень констант> : <Оператор>;
Константы должны иметь такой же тип, что и выражение, следующее за служебным словом Case. Константы могут представлять собой интервал или разделяться запятыми.
Пример записи оператора Case:
Case Ch Of
‘+’ : Z := X + Y;
‘-’ : Z := X - Y;
‘*’ : Z := X * Y;
‘/’ : Z := X / Y;
Else
Stop := True;
End;
Переменная Ch имеет символьный тип. «Список выбора» организуют символьные константы ‘+’, ‘-‘, ‘*’, ‘/’.
Часть Else может быть опущена.
Часть III. Самостоятельная работа
Рекомендуемое время
60 минут
Задание:
Составить схему алгоритма, написать и отладить программу в соответствии с вариантом. Не забывайте о комментариях!
|
№ варианта |
Задача |
|
1 |
Примечание: номер года по китайскому гороскопу можно получить, если определить остаток от деления значения года на 12. Остаток 0 — год обезьяны. |
|
2 |
|
|
3 |
Примечание: Если вклад равен Х, доход за год составит: 4 * Х * р1/100, 2 * Х * р2/100, Х * р3/100 соответственно. |
|
4 |
|
|
5 |
|
|
6 |
f (x) = 2·sin(x), если x > 0, 6 − x, если x ≤ 0. |
|
7 |
f (x) = 2·x, если x < −2 или x > 2, −3·x, в противном случае. |
|
8 |
−x, если x ≤ 0, f (x) = x2 , если 0 < x < 2, 4, если x ≥ 2. |
|
9 |
|
|
10 |
|
|
11 |
|