ПРАКТИЧЕСКОЕ ЗАНЯТИЕ

РАЗРАБОТКА ПРОГРАММ РАЗВЕТВЛЯЮЩЕЙСЯ СТРУКТУРЫ, УСЛОВНЫЕ ВЫРАЖЕНИЯ

1.   ЦЕЛЬ ЗАНЯТИЯ

Целью практического занятия является приобретение навыков использова- ния для организации ветвления условного оператора в языке программирования Pascal.

2.                                                                                                         ИНФОРМАЦИОННЫЙ БЛОК

УСЛОВНЫЙ ОПЕРАТОР

Условный оператор позволяет осуществить ветвление вычислительного процесса программы. Условный оператор в программе выглядит следующим образом:

If условие Then оператор1 Else оператор2;

Условный оператор в блок–схеме алгоритма представлен на рисунке 1.

  да                                                        нет  

Рисунок 1

Если условие - истинно, то выполняется оператор1, иначе выполняется

оператор2.

Разделитель Else может отсутствовать. Тогда условный оператор представ- ляется в виде:

If условие Then оператор1;

Условный оператор без разделителя Else в блок–схеме алгоритма пред- ставлен на рисунке 2.

  да                                                        нет  

Рисунок 2

Условие может быть простым и составным и может принимать два значе-

ния – True и False.

В условном операторе знак «;» ставится только в его конце, перед раздели- телями Then и Else он не допустим.

Условный оператор может быть вложенным. При этом разделитель Else

принадлежит ближайшему сверху оператору If. Например: If условие1

Then оператор1

Else

If условие2

Then оператор2

Else

If условие3

Then оператор3;

Здесь оператор3 выполнится в случае, если ложно условие1, ложно усло- вие2 и истинно условие3.

Если после разделителей Then или Else необходимо записать составной оператор, его заключают в операторные скобки Begin…End. Например:

If условие

Then

Begin

оператор1

… операторN End

Else

Begin

… End;

3.   ИСПОЛНИТЕЛЬНЫЙ БЛОК

Написать программу вычисления стоимости покупки с  учётом скидки.

Скидка в 10% предоставляется, если сумма покупки больше 1000 рублей.

Алгоритм решения задачи представлен ниже.

С клавиатуры запросить стоимость покупки. Если введённое значение больше 1000, то уменьшить её на 10 процентов, иначе сумму оставить без из- менений.

4.   КОНТРОЛЬНЫЕ ВОПРОСЫ

1)   Что необходимо предусмотреть для использования составного оператора внутри оператора If?

2)    Приведите пример оператора выбора с использованием составного опе-

ратора внутри.

3)   Назовите особенности использования разделителя Else для оператора If?

4)     В каком месте программы может находиться оператор Begin, а где не может?

5.   ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОГО ВЫПОЛНЕНИЯ

1)       Заданы площади круга и квадрата. Определить, поместится ли квадрат в круге.

2)       Даны две точки А(х₁,y₁) и В(х₂,y₂). Определить какая из точек находит- ся ближе к началу координат.

3)       Рассчитать надбавку к зарплате за стаж, если стаж от 2 до 5 лет, над- бавка составляет 2%, если стаж от 5 до 10 лет - 5%. Ввести с клавиатуры зар- плату и стаж, вывести надбавку и сумму к выплате.

4)       Дано натуральное число. Определить, является ли оно четным, или оканчивается цифрой 3.

5)       Ввести с клавиатуры координаты точки А(x,y). Определить, лежит ли данная точка в первой четверти. Ответ вывести в виде сообщения.

6)       Известны две скорости, одна в километрах в час, другая в метрах в се- кунду. Какая из них больше?

Ввести с клавиатуры значения трех сторон треугольника a, b и c и оп- ределить, является ли он равнобедренным. Ответ вывести в виде сообщения