Вычисление суммы двумя способами

@help me 888 · Регистрация: 16.12.2014

Author24 — интернет-сервис помощи студентам

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=-1+\frac{x^2}{2!}-\frac{x^4}{3!}+...$

@ZX Spectrum-128 · 21.12.2014, 11:47

Pascal

function fact(n:longint):longint;
var
  i,a:longint;
begin
  a:=1;
  for i:=1 to n do
    a:=a*i;
  fact:=a;
end;
 
var
  x,n,i:longint;
  sum,t:real;
begin
  sum:=0;
  write('Введите N (<=12): ');
  readln(n);
  write('Введите X: ');
  readln(x);
  for i:=1 to n do
    begin
      if odd(i) then
        t:=power(x,2*(i-1))*(-1)/fact(i)
      else
        t:=power(x,2*(i-1))/fact(i);
      sum:=sum+t;
    end;
  writeln(sum:0:8);
  readln;
end.

@help me 888 0 / 0 / 0 Регистрация: 16.12.2014 Сообщений: 30
		1
	Вычисление суммы двумя способами 16.12.2014, 14:20. Показов 1213. Ответов 1 Метки нет (Все метки) Вычисление суммы двумя способами. Необходимо составить структурную схему и написать программу на языке Паскаль. $https://www.cyberforum.ru/cgi-bin/latex.cgi?S=-1+\frac{x^2}{2!}-\frac{x^4}{3!}+...$ 0

	21.12.2014, 11:47

Вычисление суммы двумя способами

Решение