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

WHILE <условие> DO<операторы>,

где WHILE, DO — зарезервированные слова ( пока выполняется условие, делать);

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

<операторы> — операторы языка ТР.

Пока значение выражения <условие> равно TRUE, выполняются <операторы>. Если условие FALSE, то выполнение оператора заканчивается.

Здесь оператор выполняется до тех пор, пока логическое выражение TRUE. Для того чтобы цикл завершился, оператор в теле цикла должен в некоторый момент изменить значение логического условия. Оператор может быть любым оператором Паскаля, в том числе оператором цикла. В последнем случае цикл называется вложенным. Если тело цикла содержит более одного оператора, то он оформляется как составной оператор.

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

REPEAT <тело цикла> UNTIL <условие>,

где REPEAT, UNTIL — зарезервированные слова ( повторять до тех пор, пока не будет выполнено условие);

<тело цикла> — операторы языка ТР;

<условие> — выражение логического типа.

Оператор выполняется хотя бы один раз. Затем проверяется условие. Если его значение FALSE, то <тело цикла> повторяется, иначе оператор заканчивает работу.

Здесь оператор выполняется до тех пор, пока логическое выражение FALSE. В теле цикла можно указывать несколько любых операторов Паскаля без дополнительных операторных скобок. Для выхода из цикла необходимо, чтобы операторы тела цикла изменили значение логического условия на TRUE. Тело цикла этого оператора выполняется хотя бы один раз.

Оператор выбора

CASE <кл_выб> OF <сп_выб> ELSE <оператор> END, где CASE, OF, ELSE, END — зарезервированные слова (случай, из, иначе, конец);

<кл_выб> — ключ выбора (выражение любого порядкового типа);

<оператор> — оператор языка ТР;

<сп_выб> — список выбора: одна или несколько конструкций вида:

<константа_выбора>: <оператор>;

<константа_ выбора> — константа того же типа, что и <кл_выб>;

<оператор> — произвольный оператор языка ТР.

Часть ELSE может отсутствовать. Оператор начинается с вычисления значения <кл_выб>. Затем в списке выбора отыскивается значение константы, равное вычисленному значению. Если поиск удачен, то выполняются соответствующие операторы, после чего оператор завершает работу. Если в результате поиска нужное значение не было найдено, то выполняется оператор после слова ELSE. В случае отсутствия части ELSE, оператор ничего не выполняет и заканчивает работу.

Постановка задачи.

Найти сумму целых положительных четных чисел,

меньших 100. Результат напечатать.

Решение.

Текст программы № 4

program lab4 {вариант 2};

var s,a:real;

begin

a:=0;

s:=0;

while a<100 do

begin

s:=s+a;

a:=a+2;

end;

writeln(s);

end.

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

Программы №4

2450

Лабораторная работа №5

Решение нелинейных уравнений

Вариант №2

Постановка задачи.

Найти корень уравнения: с точностью =10^-4, корень уравнения находится на отрезке (0;2), используя методов Ньютона. На печать вывести вычисленное значение корня и для сравнения точное значение корня, точное значение корня x=1.0001.

Значения :

(a, b) – отрезок на котором находится корень уравнения,

Xо – примерное значение корня,

 - точность нахождения корня,

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