Базовые конструкции языка программирования Pascal

Базовые конструкции

• УСЛОВНЫЙ ОПЕРАТОР
• ЦИКЛ С ПРЕДУСЛОВИЕМ
• ЦИКЛ С ПОСТУСЛОВИЕМ
• ЦИКЛ С ПАРАМЕТРОМ
• ОПЕРАТОР ВАРИАНТА

10 then b:=7; Полный вариант: if условие then оператор else оператор ; if a10 then b:=7 else b:=10; Условный оператор — if — служит для организации хода задачи таким образом, при котором изменяется последовательность выполнения операторов в зависимости от какого-либо логического условия. Логическое условие может принимать одно из двух значений: либо true (истина), либо false (ложь), соответственно, оно может быть либо истинным, либо ложным. " width="640"

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

Сокращенный вариант:

if условие then оператор ;

if a10 then b:=7;

Полный вариант:

if условие then

оператор

else

оператор ;

if a10 then

b:=7

else

b:=10;

Условный оператор — if — служит для организации хода задачи таким образом, при котором изменяется последовательность выполнения операторов в зависимости от какого-либо логического условия. Логическое условие может принимать одно из двух значений: либо true (истина), либо false (ложь), соответственно, оно может быть либо истинным, либо ложным.

ЦИКЛ С ПРЕДУСЛОВИЕМ

Цикл while применяется для создания повторений с неизвестным заранее их числом . Повторения будут осуществляться, пока истинно некоторое условие .

• Здесь оператор, стоящий после служебного слова do, образует тело цикла и будет выполняться, пока значение "условия" равно true (истина).
• Если операторов должно быть несколько, тогда необходимо применять составной оператор.
• Условие пересчитывается каждый раз при входе в цикл.
• Непосредственно условием цикла while может быть переменная или логическое выражение.
• Операторы тела цикла while выполняться только в том случае, если условие будет истинно, если условие ложно — они игнорируются, и программа продолжается с тех операторов, которые стоят уже после конструкции. Таким образом, это существенное отличие цикла с предусловием от цикла с постусловием.

while условие do {Пока условие истинно выполняется оператор}

оператор ;

i:=0;

while i

b:=v+a;

inc(i);//i:=i+1;

end;

проверку условия цикла надо делать в конце цикла ( цикл с постусловием )!. repeat оператор 1 ; оператор 2 ; . . .; операторN until условие; {до тех пор, пока условие не станет истинным} i:=-1; repeat ShowMessage(‘Это выполнится в любом случае’); until i0 " width="640"

ЦИКЛ С ПОСТУСЛОВИЕМ

Один раз тело цикла надо сделать в любом случае = проверку условия цикла надо делать в конце цикла ( цикл с постусловием )!.

repeat

оператор 1 ;

оператор 2 ;

. . .;

операторN

until условие;

{до тех пор, пока условие не станет истинным}

i:=-1;

repeat

ShowMessage(‘Это выполнится в любом случае’);

until i0

ЦИКЛ С ПАРАМЕТРОМ

{при движении от меньшего значения к большему, например, от 1 до 10}

for счетчик := значение to конечное_значение do тело_цикла ;

for i:=0 to 10 do x:=x+5;

при движении от большего значения к меньшему, например, от 10 до 1}

for счетчик := значение downto конечное_значение do тело_цикла ;

for i:=10 downto 0 do x:=x+5;

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

//Пример программы на Pascal

ОПЕРАТОР ВАРИАНТА

var otmetka : integer ;

begin

writeln ( 'Отметка?' ) ;

readln ( otmetka ) ;

if ( otmetka = 1 ) or ( otmetka = 2 ) then

writeln ( 'кошмар!' )

else if otmetka = 3 then

writeln ( 'плохо' )

else if otmetka = 4 then

writeln ( 'неплохо' )

else if otmetka = 5 then

writeln ( 'отлично!' )

else writeln ( 'таких отметок не бывает' ) ;

end .

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

Если вариантов всего два, то можно обойтись и условным оператором IF, с которым мы уже знакомы. Но если их, к примеру, десять, то использовать конструкцию if then else в pascal становится совсем нецелесообразно. В этом случае оптимален оператор CASE варианта

//Пример программы на Pascal

var otmetka : integer ;

begin

writeln ( 'отметка?' ) ;

readln ( otmetka ) ;

case otmetka of

1 , 2 : writeln ( 'кошмар!' ) ;

3 : writeln ( 'плохо' ) ;

4 : writeln ( 'неплохо' ) ;

5 : writeln ( 'отлично!' ) ;

else writeln ( 'таких отметок не бывает' ) ;

end

end .