bySum := 20;

byCount := bySum + iSum;

Look := bySum + byCount + iSum; End.

2.4.8Основные единицы программирования

Основными единицами программирования являются цикл и действие при условии. На этом строится все программирование, и суть мышления программиста заключается в умении представления своих идей на языке: «Сделать при условии», «Сделать многократно» и их сочетаниях. «Сделать» - означает выполнение какого-либо оператора.

2.4.8.1 Условие

Как уже было сказано выше, действие при условии является основным методом программирования, на нем строится математическая логика. Общая структура:

Если «условие» тогда «действие» в противном случае «действие»

В Паскале это реализуется следующими способа-

ми:

1. If “условие” then “действие” else “действие”, где «условие» – выражение, значением которого является булевская величина.

«действие» - оператор (простой или составной). В данной конструкции else «действие» является не обязательной.

20

If iSum>15 then Begin

xPos := iSum-2; yPos := iSum+2;

End

Else

iSum := 8;

2. case «переменная» of Значение1: Действие1;

..........

ЗначениеN: ДействиеN Else действиеN+1;

End;

Здесь else “действиеN+1” так же является необязательным.

21

ДействиеN

Case iX of

1: iY := 2;

2..15: iY := 3;

16,18,25: iY := 8;

Else iY := 0;

End;

2.4.8.2 Циклы

Цикл – еще один основной метод программирования. Суть – Многократное повторение какого-либо оператора (простого либо составного). Pascal предусматривает три типа циклов: цикл с параметром, цикл с предусловием, цикл с постусловием.

1.For “переменная”:=”значение1” to ”значение2” do “действие”;

Что означает, для всех целых значений переменной начиная от “значения1” до “значения2”, выполнять

22

“действие”. Причём “значение1” и “значение2” - целые числа.

Перемнная=значение1.. значение2

действие

Данная конструкция цикла является удобной в тех случаях, когда мы знаем точно сколько раз будет проведено действие. При этом происходит наращение переменной от значения1 до значения 2. Если же требуется наоборот, уменьшение переменной – вместо to используется downto

iP := 1;

For byCount1 := 1 to 100 do Begin

iX := 0;

For byCount2 := 100 Downto 1 do iX := iX + byCount2 + byCount1;

iP := iP*iX; End;

В цикле с параметром нельзя искусственно изменять параметр, иначе компилятор сообщит об ошибке.

2.While “условие” do “действие”;

Что означает, до тех пор, пока выполняется “условие”, выполнять “действие”.

23

нет да

условие

действие

{приближённое вычисление суммы бесконечно убывающей прогрессии с первым членом 100 и со знаме-

нателем 1/2}

rQ := 0.5; rB := 100;

While rB>0.0001 do Begin

rS := rS + rB; rB := rB*rQ;

End;

3.Repeat “блок действий” until “условие”; Что означает, выполнение “блока действий” до тех

пор пока не выполнится “условие”.

24