ПОЗНАВАТЕЛЬНОЕ

Оси и плоскости тела человека - Тело человека состоит из определенных топографических частей и участков, в которых расположены органы, мышцы, сосуды, нервы и т.д.

Отёска стен и прирубка косяков - Когда на доме не достаёт окон и дверей, красивое высокое крыльцо ещё только в воображении, приходится подниматься с улицы в дом по трапу.

Дифференциальные уравнения второго порядка (модель рынка с прогнозируемыми ценами) - В простых моделях рынка спрос и предложение обычно полагают зависящими только от текущей цены на товар.

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

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

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

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.

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

Минут

Алгоритм решения задачи, как правило, представляет собой совокупность стандартных алгоритмических структур. Одной из таких структур является развилка (полная и неполная). Разветвление применяется, когда в зависимости от условия нужно выполнить либо одно, либо другое действие.

Для программирования проверки условия и выбора действия в зависимости от условия используются условные операторы.

Условный оператор:

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 .

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

Минут

Если в алгоритме разветвляющейся структуры предполагается более двух вариантов (ветвей) расчета, а выбор варианта зависит от значения какой–либо одной переменной, то целесообразно использовать структуру «множественный выбор». Эта структура объединяет в себе несколько структур типа «развилка» и улучшает наглядность схемы алгоритма.

Решение задачи будет осуществляться по одной из ветвей алгоритма в зависимости от того, какое значение примет переменная 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. Самостоятельная работа

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

Минут

Задание:

Составить схему алгоритма, написать и отладить программу в соответствии с вариантом. Не забывайте о комментариях!

№ варианта	Задача
	1. Даны X, Y, Z. Получить минимальное из этих чисел. 2. По китайскому гороскопу каждому году соответствует животное: обезьяна, петух, собака, кабан, крыса, бык, тигр, кролик, дракон, змея, лошадь, овца. Определить животное, соответствующее введенному пользователем году. Примечание: номер года по китайскому гороскопу можно получить, если определить остаток от деления значения года на 12. Остаток 0 — год обезьяны.
	1. Даны три числа. Возвести в квадрат те из них, значения которых неотрицательны. 2. Составить программу для вычисления площади одной из трех фигур — квадрата, круга или равностороннего треугольника — по значению Х, интерпретируемому как сторона квадрата, радиус окружности или сторона треугольника.
	a. Заданы площади круга R и квадрата S. Определить, поместится ли квадрат в круге. b. Банк предлагает 3 вида срочных вкладов: на 3 месяца под р₁%, на 6 месяцев под р₂% и на год под р₃%. Определить доход вкладчика за год, выбравшего один из предлагаемых типов вклада. Примечание: Если вклад равен Х, доход за год составит: 4 * Х * р₁/100, 2 * Х * р₂/100, Х * р₃/100 соответственно.
	1. Определить, является возраст вступающего в брак подходящим для выбранной кандидатуры, используя следующее соображение: возраст девушки равен половине возраста мужчины плюс 7. 2. В киоске продаются газета стоимостью 3 рубля, журнал стоимостью 20 рублей и книга стоимостью 40 рублей. Составить программу, которая спрашивает о желании покупателя (газета, журнал, книга?), принимает деньги (сумма денег вводится с клавиатуры) и печатает причитающуюся сдачу.
	1. Если сумма трех попарно различных чисел X, Y, Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, в противном случае оставить числа неизменными. 2. Составить программу, реализующую эпизод сказки: спрашивает, куда предпочитает пойти герой (налево, направо или прямо) и печатает, что его ждет в каждом случае.
	1. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B. 2. Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения: f (x) = 2·sin(x), если x > 0, 6 − x, если x ≤ 0. 1.
	1. Даны три целых числа. Найти количество положительных чисел в исходном наборе. 2. Для данного целого x найти значение следующей функции f, принимающей значения целого типа: f (x) = 2·x, если x < −2 или x > 2, −3·x, в противном случае.
	1. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число. 2. Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения: −x, если x ≤ 0, f (x) = x2 , если 0 < x < 2, 4, если x ≥ 2.
	1. Даны два числа. Вывести порядковый номер меньшего из них. 2. Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.
	1. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим). 2. Дано целое число. Вывести его строку-описание вида «отрицательное четное число», «нулевое число», «положительное нечетное число» и т. д.
	1. Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка. 2. Дан номер года (положительное целое число). Определить количество дней в этом году, учитывая, что обычный год насчитывает 365 дней, а високосный — 366 дней. Високосным считается год, делящийся на 4, за исключением тех годов, которые делятся на 100 и не делятся на 400 (например, годы 300, 1300 и 1900 не являются високосными, а 1200 и 2000 — являются).