Управляющие операторы языка Pascal. Тема 2.3

1.

Тема 2.3 Управляющие
операторы языка Pascal

2.

Управляющие операторы языка Pascal
бывают
Простые
Структурированные
Оператор присваивания
Составной оператор
Оператор вызова подпрограммы
Условный оператор If
Пустой оператор
Условный оператор Case
Оператор безусловного перехода
на метку Goto
Оператор цикла Repeat…until
Оператор цикла While
Оператор цикла For
Оператор над записями With

3.

Оператор присваивания предназначен
для
Изменения содержимого области памяти

4.

Синтаксис оператора
присваивания
<Переменная>:= <Значение>

5.

Примеры использования оператора
присваивания
A:=5:
B:=3.54;
i:=i+1;
C:=’+’;
F:=(5>3)and(2<10);
D:=cos(3*x)/4+exp(x);

6.

Оператор вызова
подпрограммы
Предназначен для вызова отдельно
написанной подпрограммы

7.

Синтаксис оператора
вызова подпрограммы
<имя подпрограммы>(<параметры>);
<имя подпрограммы>;

8.

Примеры использования оператора
вызова подпрограммы
Writeln(‘Hello, World!’);
Readln(a,b);
Clrscr;

9.

Пустой оператор
В программе ничего не делает и никак не
отображается. Используется для организации
ожидания

10.

Структурированные операторы

11.

Составной оператор
Предназначен для объединения
нескольких операторов в один

12.

Синтаксис составного
оператора
Begin
<оператор1>;
<оператор2>;
…
<оператор n>
End;

13.

Условный оператор
if…then…else
Предназначен для выбора одного
направления из двух

14.

Синтаксис оператора if
If S then A else B; //полное ветвление
If S then A;
// укороченное ветвление

15.

Задача
Составьте программу, определяющую,
является ли число A кратным числу B.
Program a1;
Var a, b,c: integer;
Begin
Writeln(‘введите числа А и В’);
Readln(a,b);
If a mod b =0 then
writeln(‘число А кратно числу В’)
Else
Begin
C:=a mod b;
writeln(‘число А не кратно числу В’)
end
End.

16.

Условный оператор Сase
(оператор выбора)
Предназначен для выбора одного
направления вычислений из
нескольких

17.

Синтаксис оператора Case
Case S of
C1: <оператор1>;
C2: <оператор2>;
…
Cn: <операторn>
Else
<оператор>
End;

18.

Задача
Определить, какое число введено : четная
цифра, нечетная цифра, двузначное число или
отрицательное, или большее 99
Program a1;
Var a: integer;
Begin
Writeln(‘введите число А’);
Readln(a);
Case a of
0,2,4,6,8: writeln(‘четная цифра’);
1,3,5,7,9: writeln(‘нечетная цифра’);
10..99 : writeln(‘двузначное чиcло’)
Else
writeln(‘число , большее 99 или отрицательное’);
End;
End.