Модульное программирование. Организация личных библиотек. - Pascal ABC

Формулировка задачи:

Вычислить значения функции *формула, с заданной точностью E=0,001 для каждого x=1, 3, 4. Считать. что требуемая точность достигнута, если вычислена сумма нескольких первых слагаемых и очередное слагаемое оказалось по модулю меньше, чем E (это и все последующие слагаемые можно не учитывать). Заранее спс=))

Решение задачи: «Модульное программирование. Организация личных библиотек.»

Листинг программы

uses crt,modul;
var x:integer;
begin
clrscr;
for x:=1 to 4 do
if x<>2 then
writeln('x=',x,' F(',x,')=',F(x):0:4);
readln
end.

Объяснение кода листинга программы

Установка начального значения переменной x равным 1.
Использование цикла for для выполнения повторяющихся операций.
Условие цикла проверяет, является ли значение переменной x равным 2.
Если условие ложно (т.е. значение переменной x не равно 2), то выполняется блок кода внутри цикла.
В блоке кода выводится значение переменной x и значение функции F с аргументом равным x.
Значение функции F форматируется с точностью до 4 знаков после запятой.
Значения переменной x изменяется на следующую итерацию цикла.
Цикл выполняется 4 раза.
Программа завершается после выполнения цикла.