Цикл с предусловием - Turbo Pascal (247649)

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

И снова доброго времени суток, товарищи! Прошу вашей скорейшей помощи с выполнением следующих заданий в TurboPascal: - Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0.001. Значение аргумента выбрать самостоятельно. (с использованием оператора while - do),

Спасибо большое за внимание, задача была решена! Позже прикреплю решение.

Решение задачи: «Цикл с предусловием»

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

{$N+}
Program cycle_wpre; {Цикл с предусловием}
 
Const 
 pog=0.001; 
Var
 sum,x,a,fn:real; 
 n:integer;
 
Function fl(n:double):double; 
  begin 
   if (n=1) or (n=0) then fl:=1 
   else fl:=n*fl(n-1); 
  end; 
 
Begin 
 write('Введите значение агрумента x:');readln(x); 
 fn:= cos(x); 
 sum:=1;
 a:=1;
 n:=0; 
   While abs(a)>=pog do
    begin
    n:=n+1; 
    a:=power(-1,n)*power(x,2*n)/fl(2*n); 
    sum:=sum+a;
    end;
    
 writeln('Сos(x)=',fn ); 
 writeln('Сумма ряда=',sum); 
 writeln('Нажмите Enter для завершения'); readln; 
End.

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

Программа cycle_wpre написана на языке Turbo Pascal.
В программе используется цикл с предусловием.
Константа pog равна 0.001.
В программе объявлены следующие переменные:
- sum (результат) типа real;
- x (аргумент функции) типа real;
- a (значение ряда) типа real;
- fn (функция) типа real;
- n (номер члена ряда) типа integer.
Функция fl вычисляет члены геометрического ряда.
В начале программы пользователю предлагается ввести значение аргумента x.
Значение функции cos(x) сохраняется в переменной fn.
Инициализируются переменные sum, a и n со значениями 1, 1 и 0 соответственно.
В цикле с предусловием выполняются следующие действия:
- Увеличивается значение переменной n на 1.
- Вычисляется значение члена ряда a на основе функции fl.
- Значение a добавляется к сумме sum.
- Пока значение a больше или равно pog, цикл продолжается.
После выполнения цикла выводятся значения функции cos(x) и суммы ряда.
Для завершения программы пользователю предлагается нажать Enter.