Var a, b, dop: integer;

Begin

{Ввод исходных данных}

Write ('Введите а -> '); Readln (a);

Write ('Введите b -> '); Readln (b);

{Обмен значениями}

Dop:=A;

A:=B;

B:=Dop;

{Вывод результата работы}

Writeln ('a =^',a);

Writeln ('b = ',b);

End.

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

Комментарии удобно применять при разработке боль­ших программ или программных продуктов, а так же при работе в группе программистов.

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

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

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

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

Для программной реализации этого типа алгоритмов в языке программирования Pascal можно использовать три оператора:

1. Условный оператор (оператор условного перехода).

2. Оператор выбора (оператор варианта).

3. Оператор безусловного перехода.

Рассмотрим вначале оператор безусловного перехода и условный оператор подробнее.

Оператор безусловного перехода имеет вид: GOTO <метка>

GOTO — зарезервированное слово (перейти на метку) <метка> — метка

Метка в Турбо Паскале — это произвольный идентифи­катор, позволяющий именовать некоторый оператор программы и таким образом ссылаться на него. В качестве меток допускается использовать целые числа без знака.

Метка располагается непосредственно перед помечае­мым оператором и отделяется от него двоеточием.

Перед тем как использовать метку в программе, она должна быть описана. Описание меток состоит из заре­зервированного слова LABEL (метка), за которым следует список меток:

Label loop,lb1;

begin

…

goto lb1;

…

loop: …

…

lb1: …

…

goto loop;

…

end.

Действие оператора GOTO состоит в передаче управле­ния соответствующему меченному оператору.

Правила использования меток:

• метка, на которую ссылается оператор GOTO, должна быть описана в разделе описаний;

• метки, описанные в процедуре (функции) локализуют­ся в ней.

Условный оператор. Условный оператор позволяет проверить некоторое условие и в зависимости от резуль­татов проверки выполнить то или иное действие.

Структура условного оператора:

IF <условие> THEN <оператор 1> ELSE <оператор 2>;

IF, THEN, ELSE — зарезервированные слова (если, то, иначе)

<условие> — выражение логического типа

<оператор 1>,<оператор 2> — операторы языка Турбо Паскаль.

Часть ELSE <оператор 2> условного оператора может быть опущена.

Рис. 1. Алгоритм разветвляющейся структуры

Тогда при значении true (истина) выражения, стоящего в усло­вии, выполняется <оператор 1>, в противном случае этот оператор пропускается.

Пример.

Написать программу расчета функции:

Решение:

Program wetw;