Операторы языка Turbo Pascal

Оператор цикла с предпроверкой условия: while … do …
Оператор while … do … применяется в тех случаях, когда количество повторения действий в цикле заранее не известно и зависит от выполнения какого-либо условия.
Общий вид оператора while … do …
Для завершения цикла необходимо, чтобы оператор или список операторов влияли на значение выражения условие.

Блок схема оператора цикла с предпроверкой условия: while … do …
Условие
оператор
да
нет

Пример:
Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39.
Program Demo1;
uses CRT;
var a : integer;
begin clrscr;
a:= 5000;
while a mod 39 <> 0 do a:=a-1;
write (‘ Искомое число = ’, a : 5);
readkey
end.

Задания:
Составить программу для вычисления значений функции F(x) на отрезке [a, b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции: