Презентация, доклад Операторы Turbo Pascal 7.0

операторов.
К ним относятся:

- оператор присваивания;
- оператор безусловного перехода GOTO;

Для этого используется знак присваивания := , слева от которого записывается имя переменной или функции, которой присваивается значение, а справа - выражение, значение которого вычисляется перед присваиванием.

Пример:

X := Y;
Z :=А + В;
Res := (I>0) and (I < 100);
I := Sqr(J) + I * К;

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

Метки, используемые в Turbo Pascal, могут быть двух типов:
- целым числом в пределах от 0 до 9999;
- обычным идентификатором.

Все используемые метки должны быть перечислены в разделе объявления меток, начинающемся зарезервированным словом label, например:
label 1, 2, Metka;

begin
…
goto Out; end;
…
Out:
…

К ним относятся:

- составной оператор;
- условный оператор IF;
- условный оператор CASE;
- оператор цикла REPEAT;
- оператор цикла WHILE;
- оператор цикла FOR;
- оператор над записями WITH.

операторные скобки begin и end:

begin
<оператор 1>;
<оператор 2>;
. . .
<оператор N>
end;

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

выполнения операторов в зависимости от истинности или ложности некоторого условия. Существует два варианта оператора:

if S then A
else В; {полная развилка}

if S then А; {укороченная развилка}
В этих операторах:
S - некоторое логическое выражение, истинность которого проверяется;
А - оператор, который выполняется, если выражение S истинно;
В - оператор, который выполняется, если выражение S ложно.

ни перед else точку с запятой ставить нельзя. Примеры использования оператора:

if X < 0 then X := -Y;

if X < 1.5 then Z := X + Y
else Z := 1.5;

Integer;
begin
…
Out:
… повторяющиеся действия
if X > Res then goto Out;
…
end.
if X < 1.5 then Z := X + Y
else Z := 1.5;

количества вариантов. Структура этого оператора в Turbo Pascal:


case S of
C1:Instruction1;
C2:Instruction2;
CN: InstructionN;
else Instruction
end;

C2, ..., CN - константы, с которыми сравнивается значение выражения S;

Instruction1, Instruction2, ..., InstructionN - операторы, из которых выполняется ТОТ, с константой которого совпадает значение выражения S;

Instruction - оператор, который выполняется, если значение выражения S не совпадает ни с одной из констант С1, ..., CN.

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

В отличие от оператора IF перед словом else точку с запятой можно ставить.

Если для нескольких констант нужно выполнять один и тот же оператор, их можно перечислить через запятую (или даже указать диапазон, если возможно), сопроводив их одним оператором.

1, 3, 5, 7, 9: WriteLn('Нечетная цифра');
10..100: WriteLn('Число от 10 до 100');
else
WriteLn('Отрицательное число или больше 100')
end;

содержит
4 операции: + - / *
3. Зациклить калькулятор с помощью GoTo, чтобы человек мог много раз вычислять.

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

Instruction;

В этой структуре:
S - логическое выражение, истинность которого проверяется в начале каждой итерации;
Instruction - выполняемый оператор цикла.

k:=k+1;
m:= m div 10;
end;

m:=9
while m <>0 do
m:=m-1;

Пример:

натуральное число n. Посчитать количество цифр в числе.

Вычислить наибольший общий делитель двух натуральных чисел А и В.

Определить, является ли число простым.

Задания:

числа операторов, с неизвестным заранее числом повторений.

Тело цикла выполняется хотя бы один раз.

Выход из цикла осуществляется при истинности некоторого логического выражения.

InstructionN
until S;
Instruction1, Instruction2, ..., InstructionN - выполняемые операторы, составляющие тело цикла;
S - логическое выражение, истинность которого проверяется в конце каждой итерации.

первого отрицательного числа.

Определить, является ли число симетричным. (25652, 1221)

Задания:

число раз. Существует два варианта оператора:

For Param:=Start to Finish do Instruction;
For Param:=Start downto Finish do Instruction;

Param - параметр цикла, являющийся переменной порядкового типа;
Start - выражение, определяющее начальное значение параметра цикла;
Finish - выражение, определяющее конечное значение параметра цикла;
Instruction - выполняемый оператор.

- Finish значения параметра цикла.

Далее параметру цикла Param присваивается начальное значение Start.

Далее, пока параметр цикла меньше или равен конечному значению, выполняется очередная итерация цикла; в противном случае происходит выход из цикла.

новые стандартные процедуры - Break и Continue.

Процедура Break позволяет досрочно выйти из цикла, не дожидаясь выполнения условия выхода.

Процедура Continue позволяет начать новую итерацию цикла, даже если предыдущая не завершена.

EXAMPLE8;
var i: Char;
begin
for i : = 'Z' downto 'A' do
Write(i);
WriteLn
end.

10 до 99 вывести те, сумма цифр которых равна S(0 < S < 18).

Дано натуральное число n (1000<=N<=9999). Определить, является ли оно палиндромом ("перевертышем"), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 1441.

Задания: