Цикл с постусловием

Оператор повтора WHILE аналогичен оператору REPEAT, но проверка условия выполнения цикла производится в начале оператора.

WHILE <условие> DO <тело цикла>;

<условие> - булевское выражение, <тело цикла>- простой или составной оператор. Перед каждым выполнением тела цикла вычисляется значение выражения условия. Если результат равен True, то тело цикла выполняется и снова вычисляется выражение условия, если результат равен False, происходит выход из цикла и переход к первому после WHILE оператору.

Пример вычисления суммы гармонического ряда h = 1 + 1/2 + 1/3 + … + 1/n.

Program primer;

Var n ; integer; h ; real;

Begin Readln(n);

H := 0;

While n >0 do Begin

H := h + 1/n; g := n-1;

End;

Write(‘n=’, n, ‘h=’, h);

End.

Оператор WITH

Для обращения к полям записи используется оператор WITH (с) который имеет формат:

WITH <переменная типа запись> DO <оператор>;

Указав переменную типа запись можно работать как с обычной переменной Turbo Pascal. Пример:

With RV do begin name:=‘ Сидоров В.С.’;

data:=‘ 15.11.78’;

End;

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

Пример программы, позволяющую работать с комплексными переменными.