Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лекции по Паскалю.doc
Скачиваний:
61
Добавлен:
04.06.2015
Размер:
7.62 Mб
Скачать

Цепочка

Самой простой базовой структурой является цепочка– последовательность операторов присваивания.

Цепочку можно представить следующей схемой:

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

Алгоритм циклического обмена в этом случае будет выглядеть следующим образом:

Переменныеaиb обмениваются своими значениями через переменнуюx.

По этому алгоритму можно написать последовательность операторов на Паскале:

x := a;

a := b;

b := x;

Ветвления

Одним из достоинств компьютеров является их способность делать выбор пути решения задачи в зависимости от выполнения заданных условий.

Выбор пути решения осуществляется в алгоритмических языках ветвлениями, которые могут быть представлены в двух формах:

  • альтернатива,

  • переключатель.

Альтернатива

Альтернатива является простейшей формой ветвлений. Она предполагает выбор одного из двух путей решения задачи, причем этот выбор зависит от выполнения заданных условий:

истина (да)ложь (нет)

Альтернативу можно описать словесно:

ЕСЛИ (условие)

ТО цепочка-1

ИНАЧЕ цепочка-2

В альтернативе может отсутствовать часть (ветвь) ИНАЧЕ, тогда она приобретает видусеченнойальтернативы:

истина (да) ложь (нет)

ЕСЛИ (условие)

ТО цепочка-1

В альтернативе в качестве условия используется логическоевыражение, которое, как известно, может бытьистиннымилиложным.

Действие альтернативы:

  1. проверяется выполнение условия,

  2. если условие истинно, то выполняется следующая за нимцепочка-1, ацепочка-2, если она имеется, не выполняется,

  3. если условие ложно, то выполняетсяцепочка-2, если она имеется.

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

If (условие)

Then оператор-1

Else оператор-2;

где условие– это любое логическое выражение.

После ключевых слов ThenиElseв Паскале может следовать только один оператор языка, причем передElseточка с запятойне ставится.

Примеры:

1.определить значения переменнойzпосле выполнения операторов:

x := 1;

z := 3;

If (xz > 0) в данном случае условиеложно,поэтому

Then z := z – 1 будет выполняться ветвь Else, и, значит,

Else z := z + 1; z = 4

  1. определить наибольшую из двух переменныхa иb, присвоив ее значение переменнойс:

данет

Словесное описание алгоритма:

ЕСЛИ (a > b)

ТО c = a

ИНАЧЕ c = b;

Реализуем этот алгоритм на Паскале:

If (a > b)

Then c: = a

Else c: = b;

3.решить эту же задачу сокращенной альтернативой:

а)двумясокращенными альтернативами:

If (a > b)

Then c := a;

If (b > a)

Then c := b;

б)однойсокращенной альтернативой:

c := b;

If (a > b) Then c := a;

Реализация альтернативы усложняется, если в каждой ее ветви имеется не по одному оператору, а по цепочке операторов. В этом случае цепочки заключаются воператорныескобки:BEGINEND. Получаетсясоставнойоператор:

sin c,если c < 2,5

a =

cos c,если c ≥ 2,5

| c |,если c < 2,5

b =

1/c, если c ≥ 2,5

На Паскале:

If (c < 2.5) Внимание!Перед служебными словами

Then ThenиElse,а также после них точка с

Begin запятойне ставятся!

a:=Sin(c);

b:=Abs(c) Перед Endточкус запятой можно не ставить!

End

Else

Begin

a:=Cos(c);

b:=1.0/c

End;

В условном операторе Ifпосле словThenиElseмогут в свою очередь следовать новые операторыIf, что дает возможность использовать вложение операторовIfдо любого уровня:

Примеры:

1.определить наибольшую из трех переменныхx, y, zи присвоить ее значение переменнойs:

а)с использованиемполнойальтернативы:

ЕСЛИ (x > y) If (x > y)

ТО ЕСЛИ (x > z) Then If (x > z)

ТО s = x Then s:=x

ИНАЧЕ s = z Else s:=z

ИНАЧЕ ЕСЛИ (y > z) Else If (y > z)

ТО s = y Then s:=y

ИНАЧЕ s = z; Else s:=z;

Внимание!В этом вложенном операторе точка с запятой только одна – в конце всего оператора.

б)с использованиемусеченнойальтернативы:вариант 1

s = z; s := z;

ЕСЛИ (x > y) If (x > y)

ТО ЕСЛИ (x > z) Then If (x > z)

ТО s = x; Then s:=x;

ЕСЛИ (y > x) If (y >x)

ТО ЕСЛИ (y > z) Then If (y > z)

ТО s = y; Then s:=y