Program Prim2;

Var

a,b,r: real;

Begin

write('Введите два числа '); readln(a,b);

r: =a; {значение переменной а записывается в переменную r}

а: =b; {значение переменной b записывается в переменную а}

b:=r; {значение переменной r записывается в переменную b}

write ('а=' , а, 'b=' , b);

End.

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

Begin

<оператор 1>;

<оператор 2>;

…

<оператор N>

End;

Условный оператор if используется в программе для организации ветвлений в зависимости от выполнения некоторого условия. Структура оператора:

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

или

if <условие> then <оператор 1> else <оператор 2>;

Здесь<условие> это некоторое логическое выражение;

<оператор 1>, <оператор 2> простые или составные операторы.

Действие оператора: если<условие > выполняется (логическое выражение равноtrue) , то выполняется<оператор 1>, если <условие> не выполняется (логическое выражение равноfalse), то выполняется<оператор 2>.Если в структуре этого оператораelse отсутствует и<условие> не выполняется, то управление передастся оператору, следующему за операторомif.

Рассмотрим примеры использования условного оператораif.

Пример 1

if a>b then write (a) else write (b);еслиa>b;

то будет выполнена процедура вывода значения переменнойа, в противном случае - процедура вывода значения переменной b.

Пример 2

if (a>b) and (а>с) then write (a);

по этому оператору будет выполнена процедура вывода значения переменной а только в том случае, еслиа>b иа>с.

Пример 3

if а < 0 then

Begin

b:=2 * а;

Write(b);

End

Else

с: = sqr(a);

если значение переменной а меньше 0, то будет вычислено значение переменной b и выведено на экран, если значение переменной а больше либо равно 0, то будет вычислено значение переменной с.

Операторы цикла используются для организации повтора выполнения некоторой группы операторов в программе.

Структура оператора цикла с предусловием:

while< условие > do <оператор>;

Здесь

<условие> - некоторое логическое выражение;

<оператор>- простой или составной оператор внутри цикла (тело цикла).

Тело цикла будет выполняться до тех пор, пока <условие> имеет значение true, прекращает выполняться, если <условие> принимает значение false.

Структура оператора цикла с постусловием:

Repeat

< тело цикла >

until < условие>;

Здесь

<тело цикла> - может содержать любые допустимые операторы языка TURBO PASCAL, разделенные символом точка с запятой. Но этому оператору <тело цикла> выполняется до тех пор, пока не выполнится заданное < условие >.

Структура оператора цикла с параметром for

for i:=n to nk do <оператор>;

или

for і: =n downto nk do <оператор>;

Здесь

і - параметр цикла; n, nk- соответственно начальное и конечное значения параметра цикла. Шаг изменения параметра цикла равен 1 для первой формы оператора и равен минус 1 для второй формы оператора.

<оператор> - простой или составной оператор (тело цикла).

Оператор for применяют в тех случаях, когда число повторений цикла заранее известно.

Пример

Вычислить значение переменной у при заданном значении n.

program РгіmЗ;

Var

і,n:integer;

у:real;

Begin

writeln(¹ введите число n¹);