Найти сумму ряда - Turbo Pascal (33798)

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

Задание

Найти сумму Y=F1(x)/F2(x) при F1(x)=4x+1/tg(x),F2(x)=0.5/2sin(4x). Где a<=x<=b.а,b,c ввести с клавиатуры. x меняется с шагом,h=c. Сделать два варианта программы с использованием циклов while & repeat. Заранее спасибо)

Решение задачи: «Найти сумму ряда»

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

var
    Y,F1,F2,x,h,a,b,c: real;
begin
       Write('a,b,c'); Readln(a,b,c);
       h:=c;
       x:=a;
       While x<=b do begin
               if (sin(x)/cos(x)<>0) and (2*sin(4*x)<>0)
               then begin
               F1:=4x+1/sin(x)/cos(x);
               F2:=0.5/2*sin(4*x);
               end
               else Writeln('На ноль делить нельзя');
               if F2<>0 then 
               Y:=F1/F2
               else Writeln('На ноль делить нельзя');
               Writeln('x=',x,' ','Y=',Y);
               x:=x+h;
       end;
Readln;
end.

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

Объявляются переменные Y, F1, F2, x, h, a, b, c типа real.
Выводится запрос на ввод значений переменных a, b, c.
Значение переменной h присваивается значению переменной c.
Значение переменной x присваивается значению переменной a.
Задается условие для цикла While: x <= b.
В цикле While выполняется проверка условия (sin(x)/cos(x) <> 0) and (2sin(4x) <> 0).
Если условие истинно, то вычисляются значения F1 и F2 по формулам 4x + 1/sin(x)/cos(x) и 0.5/2sin(4x) соответственно.
Если F2 не равно нулю, то значение Y присваивается результату деления F1 на F2.
Если F2 равно нулю, выводится сообщение На ноль делить нельзя.
Значение переменной x увеличивается на h.
Цикл While заканчивается, если x превышает b.
Выводится сообщение с текущими значениями переменных x и Y.
Программа завершается вызовом функции Readln.