Программирование в Delphi алгоритмов, содержащих базовую алгоритмическую структуру «Ветвление»
Цель и содержание работы
В данной лабораторной работе изучаются составной и условный оператор языка Delphi.
Целью лабораторной работы является получение студентами навыков программирования разветвленных алгоритмов.
Общие сведения
Составной оператор
Составной оператор имеет синтаксическую структуру:
Begin
оператор
[; оператор; ... ]
End
Т. е. представляет собой группу операторов, разделенных друг от друга точкой с запятой и помещенную между служебными словами Begin и End.
Используется в том случае, если по логике алгоритма требуется записать несколько операторов, а синтаксис языка позволяет записать только один оператор.
Условный оператор
У
словный
оператор в языке Delphi предназначен для
реализации базовой алгоритмической
структуры «Ветвление» (рис.1).
Рис.1 Базовая алгоритмическая структура «Ветвление».
Синтаксическая структура условного оператора имеет следующий вид:
IF <выражение> THEN <оператор 1> ELSE <оператор 2> ;
<выражение> должно иметь значение логического типа.
После служебных слов THEN и ELSE можно записать только один оператор. Если по логике алгоритма необходимо записать несколько операторов, то необходимо использовать составной оператор.
Перед служебным словом ELSE нельзя ставить точку с запятой.
При записи <выражения> могут использоваться операции отношений:
>, >=, <, <=, =, <>
и логически операции:
Not, And, Or,
Приоритет операций:
Not
And
Or, Xor
>, >=, <, <=, =, <> .
Семантика условного оператора:
Вычисляется значение <выражения>, если полученное значение - True («истина»), то выполняется <оператор 1>, в противном случае (значение False – «ложь») выполняется <оператор 2>.
Пример 1:
X := 4; Y := 2; Z := 5;
If X >0 Then
Begin
Y : = l;
Z: = Y+2;
End
Else
Begin
Y := Z+2;
Z := 0;
End
Так как значение выражения X >0 будет ложно, то будет выполняться составной оператор, расположенный после служебного слова Then. Поэтому переменная Y получит значение 1, а переменная Z получит значение 4 .
Сокращенный условный оператор реализует сокращенную базовую алгоритмическую структуру «Ветвление», изображенную на рис. 3 и имеет следующую синтаксическую структуру:
IF <выражение> THEN оператор;
Рис. 2 Сокращенная базовая алгоритмическая структура «Ветвление».
Семантика сокращенного условного оператора:
Вычисляется значение <выражения>, если полученное значение - True («истина»), то выполняется <оператор>, в противном случае выполняется оператор, непосредственно следующий за сокращенным условным оператором.
Пример 2:
IF Y>0 THEN X := Sqrt( Y);
Пример программирования разветвленного алгоритма
Задание: Дано четырехзначное число. Определить, кратна ли трем сумма его цифр.
Разработка алгоритма
Входные данные: X-целое четырехзначное число.
Выходные данные: сообщение о кратности или не кратности суммы цифр исходного числа.
Промежуточные переменные:
a, b, c, d – цифры четырехзначного числа;
S – сумма цифр исходного числа
Схема алгоритма приведена на рис. 3.
Рис.3 Схема алгоритма.