Операторы языка Pascal

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

данных и систем.
Обозначения условные и правила выполнения
В стандарте определены

в программе.
2) Схема программы состоит из:
символов процесса, указывающих фактические операции

определен
Процесс
Символ отображает функцию обработки данных любого вида
Предопределенный процесс
Символ отображает предопределенный

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

типа, имеющую один вход и ряд альтернативных выходов, один и

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

Линия
Символ отображает поток данных или управления.
При необходимости или для повышения удобочитаемости могут быть добавлены стрелки-указатели

и вход из другой части этой схемы и используется для

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

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

схемах показываются линиями. Направление потока слева направо и сверху вниз

В случаях, когда необходимо внести большую ясность в схему (например, при соединениях), на линиях используются стрелки.

Если поток имеет направление, отличное от стандартного, стрелки должны указывать это направление.

Пересекающиеся линии не имеют логической связи между собой, поэтому изменения

Две или более входящие линии могут объединяться в одну исходящую линию. Если две или более линии объединяются в одну линию, место объединения должно быть смещено.

Линии в схемах должны подходить к символу либо слева, либо сверху, а исходить либо справа, либо снизу. Линии должны быть направлены к центру символа

несколькими линиями от данного символа к другим символам;
2) одной линией

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

направо и сверху вниз независимо от направления потока.

=1.5a

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

данных на экран:
Write()*;
Writeln()*;
Readln;
Writeln;
* Вводит значения с клавиатуры
**

* Выводит значения
** Выводит значения и осуществляет переход на новую строку

b: real;
begin
readln(a,b);
writeln(a);

Вариант ввода 1:

1 10.12
1
10.12

Вариант ввода 2:

11
12.1
11
12.1

числа
Write(x:5); // под вывод числа отводится 5 символов,
// не хватает

Write(x:5:2); // под число – 5 символов,
// под дробную часть – 2 символа

integer;
begin
x:=12345.1537; y := 10;
write(y); write(x); writeln;
writeln(y,x); writeln(y,'-',x);
writeln('Переменная y=',y,', переменная x=',x);
writeln(y,x:12);
writeln(x:2:3);

Результат:
1012345.1537
1012345.1537
10-12345.1537
Переменная y=10, переменная x=12345.1537
10 12345.1537
12345.154
12345.1537
12345.15

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

операторов программы, заключенная в операторные скобки – зарезервированные слова BEGIN

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

THEN ELSE
где IF, THEN, ELSE – зарезервированные слова

THEN

значений x, y, max}
if x>max then //Полная форма условного оператора

var
x, y, max: real;
begin
... {ввод значений x, y, max}
y := x;
if y>max then //Краткая форма условного оператора
y := max;
...
end.

a>b then
if b>c then
max := a
else

var
a, b, c, max: integer;
begin
...
max := a;
if b>max then
max := b;
if c>max then
max := c;
wirteln(‘Max = ‘, max);
end.

Пример. Отыскание наибольшего из трех чисел

из трех чисел

ли значение введенной переменной в отрезок [10; 20]
var
a:integer;
begin

var
a:integer;
begin
writeln('Введите значение переменной');
readln(a);
if (a >= 10) and (a<=20) then
writeln('Значение "a" попадает в отрезок [10; 20]')
else
writeln('Значение "a" не попадает в отрезок [10; 20]');
end.

ОШИБКА:
Операция '>=' не применима к типам integer и boolean

Верно

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

выбора N>: ; else  end;

Здесь CASE, OF, ELSE, END – зарезервированные слова (случай,

char; {знак операции}
stop: boolean; {признак ошибочной операции и

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

же действий
Тело цикла – последовательность действий, которая повторяется в цикле
Шаг

Параметры цикла – переменные, которые изменяются внутри цикла и влияют на его окончания

ВАЖНО:
– цикл всегда должен закончиться, содержимое тела должно обязательно влиять на его окончание
– условие выхода из цикла должно состоять из корректных выражений и значений, определенных еще до первого выполнения тела цикла

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

знач.> TO DO ;
FOR :=

i, N, fact: integer;
begin
write(‘Введите N:’);
readln(N);
fact := 1;

var
i, N, fact: integer;
begin
write(‘Введите N:’);
readln(N);
fact := 1;
for i := N downto 1 do
fact := fact*i;
writeln(‘N!=’,fact);
end.

for i := 1 to 3 do writeln('счетчик ',i);
writeln('цикл

var
i: integer;
begin
writeln('начало цикла');
for i := 10 downto 8 do writeln('счетчик ',i);
writeln('цикл завершился');
end.

начало цикла
счетчик 1
счетчик 2
счетчик 3
цикл завершился

начало цикла
счетчик 10
счетчик 9
счетчик 8
цикл завершился

for i := 5 to 2 do writeln('счетчик ',i);
writeln('цикл

var
i: integer;
begin
writeln('начало цикла');
for i := 10 downto 11 do writeln('счетчик ',i);
writeln('цикл завершился');
end.

начало цикла
цикл завершился

начало цикла
цикл завершился

x := 1;
for i := 1 to 5 do

начало цикла
счетчик 1 x=3
счетчик 2 x=5
счетчик 3 x=7
счетчик 4 x=9
счетчик 5 x=11
цикл завершился

for i := 1 to 5 do ;

начало цикла
счетчик 5
цикл завершился

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

DO – зарезервированные слова (пока [выполняется условие], делать)
– произвольное

integer;
begin
run := true;
x := 0;
while run do

в цикле x=0
в цикле x=1
в цикле x=2
после цикла x=3

begin
f:=exp(x*ln(5))-6*x-3;
end;
var
a, b, e, c, x: real;
begin

Пример. Отделение корня на отрезке методом половинного деления.

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

REPEAT, UNTIL – зарезервированные слова (повторять до тех пор, пока

char;
begin
repeat
readln(ch);
writeln(‘Код символа ’’’, ch,

Пример. Вывод ASCII-кода символа.

1
Код символа '1' – 49

Код символа ' ' – 32
r
Код символа 'r' – 114
R
Код символа 'R' – 82

Код символа '
' – 13

real;
begin
writeln('введите параметры отрезка [a,b], h');
write('a=');readln(a);
write('b=');readln(b);
write('h=');readln(h);
x

Рассчитать значение функции f(x)=2x+3 на отрезке [a;b] с шагом h

При помощи цикла for

real;
begin
writeln('введите параметры отрезка [a,b], h');
write('a=');readln(a);
write('b=');readln(b);
write('h=');readln(h);
x

Рассчитать значение функции f(x)=2x+3 на отрезке [a;b] с шагом h

При помощи цикла while

real;
begin
writeln('введите параметры отрезка [a,b], h');
write('a=');readln(a);
write('b=');readln(b);
write('h=');readln(h);
x

Рассчитать значение функции f(x)=2x+3 на отрезке [a;b] с шагом h

При помощи цикла repeat..until

отрезка [a,b], h
a=-3
b=4
h=2
y(-3)=-3
y(-1)=1
y(1)=5
y(3)=9
При помощи цикла while
введите параметры отрезка [a,b], h
a=-3
b=4
h=2
y(-3)=-3
y(-1)=1
y(1)=5
y(3)=9
При

введите параметры отрезка [a,b], h
a=-3
b=4
h=2
y(-3)=-3
y(-1)=1
y(1)=5
y(3)=9

цикла for
Оператор цикла while
Оператор цикла repeat..until
Операторы передачи управления

порядок выполнения команд:

BREAK - осуществляет немедленный выход из циклов

halt;
writeln('строка 3');
writeln('строка 4');
end.
строка 1
строка 2
var i : integer;
begin

До цикла
итерация 1
итерация 2
После цикла

writeln('До цикла');
for i := 1 to 3 do

До цикла
итерация i=1 j=1
итерация i=1 j=2
итерация i=1 j=3
итерация i=2 j=1
итерация i=3 j=1
итерация i=3 j=2
итерация i=3 j=3
После цикла