Простые операторы (примеры можно найти в комментариях и на форуме)

Простыми являются те операторы, которые не содержат в себе других операторов. К ним относятся:

• Оператор присваивания;
• Обращение к процедуре;
• Оператор безусловного перехода Goto.

Оператор присваивания

Формат:

   < Идентификатор>:=<выражение>;

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

Например:

Sort:=1;

Gen:=15.23;

NAZV:=’Модель’;

Rez:=sin(a)+cos(b);

Примеры решения задач

1. Даны две целые переменные A, B.  Составить  фрагмент программы, после исполнения которого, значения переменных поменялись бы местами (новое значение A равно старому значению B и наоборот). 

USES Crt;

VAR

   A, B, T : INTEGER;

BEGIN

  ClrScr;     { Чистка экрана }

  Write(‘ Введите два значения   ‘); 

  ReadLn(A,B);

  {Введем дополнительную целую переменную T}

  T := A;  A := B;  B := T;

  Write(A,B);

END.

2. Задан радиус  окружности. Найти площадь и длину окружности.

USES Crt;

VAR

   R : INTEGER;

   S,L: REAL;

BEGIN

  ClrScr;

  Write(‘ Введите радиус окружности   ‘);

  ReadLn(R);

  {Pi - зарезервированное значение}

  S:=Pi*R*R;    {Вычисление площади окружности}

  L:=2*Pi*R;     {Вычисление длины окружности}

  WriteLn(‘ Площадь окружности = ’,S:4:2);

  WriteLn(‘ Длина окружности = ‘,L:4:2);

END.

Примеры для самостоятельного решения:

1. Для двух данных чисел найти среднее арифметическое и среднее геометрическое модулей этих чисел.
2. Для данного числа А, не пользуясь никакими арифметическими операциями, кроме умножения, получить А⁸ за три операции и А¹⁰, А¹⁶, за четыре операции.
3. Мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки.
4. Даны две целые переменные A, B.  Составить  фрагмент программы, после исполнения которого, значения переменных поменялись бы местами (новое значение A равно старому значению B и наоборот),   не  используя дополнительных переменных.

Оператор безусловного перехода Goto

Формат:

  Goto <метка>;

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

Пример: Вывести четные числа до 30.

Label   Met1, Met2;

Var  I:Integer;

BEGIN

  I:=2;

  WriteLn(‘Четные числа’);

  Met1: 

  WriteLn(I);

  I:=I+2;

  If I>30 Then Goto Met2;

  Goto Met1;

  Met2:    WriteLn(‘До свидания’);

END.