Вычислить значение выражения

@CentSergey · Регистрация: 09.03.2013

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

помогите найти ошибку в программе S должно равняться Y

Pascal

const eps=0.0001;
var s,si,x,y:real;
n:integer;
begin
writeln('x = ');
readln(x);
s:=1;
y:=cos(x);
si:=1;
n:=1;
repeat
si:=si*(-1)*sqr(x)/2*n;
s:=s+si;
n:=n+1;
until abs(si)<eps;
writeln('s= ',s:0:4,', y= ',y:0:4);
end.

Добавлено через 23 минуты
выручайте

@CentSergey · 21.10.2013, 18:18 **[ТС]**

вот условие

@Ultim[a]te · 21.10.2013, 18:33

Держи

Pascal

var 
  denominator:real;
  numerator:real;
  i,j, fact:integer;
  series:real;
  epsilon:real;
  x:real;
  
begin
  writeln('Введите значение x и точность вычислений epsilon');
  readln(x, epsilon);
 
  fact := 2;
  numerator := x * x;
  denominator := fact;
  series := 1 - (numerator / denominator);
  i := 1;
 
  repeat
    numerator := numerator * numerator;
    denominator := denominator * (fact + 1) * (fact + 2);
    fact := fact + 2;
    series:= series + (i*((numerator / denominator)));
    i:=i*-1;
  until(abs((numerator / denominator)) <= abs(epsilon));
  
  writeln(series:0:5,'  ', cos(x):0:5);
 
end.

@CentSergey · 21.10.2013, 18:48 **[ТС]**

можешь изменить мою программу

Добавлено через 2 минуты
Ultim[a]te, можешь изменить мою программу

@Ultim[a]te · 21.10.2013, 18:49

Pascal

var 
  denominator:real;
  numerator:real;
  i,j, fact:integer;
  series:real;
  epsilon:real;
  x:real;
  
begin
  writeln('Введите значение x и точность вычислений epsilon');
  readln(x, epsilon);
 
  fact := 2;
  numerator := x * x;
  denominator := fact;
  series := 1 - (numerator / denominator);
  i := 1;
 
  while(abs((numerator / denominator)) >= abs(epsilon)) do
  begin
    numerator := numerator * numerator;
    denominator := denominator * (fact + 1) * (fact + 2);
    fact := fact + 2;
    series:= series + (i*((numerator / denominator)));
    i:=i*-1;
  end;
  
  writeln(series:0:5,'  ', cos(x):0:5);
 
end.

@CentSergey · 21.10.2013, 18:50 **[ТС]**

Ultim[a]te, я не могу понять как она работает и где в ней формула

@Ultim[a]te · 21.10.2013, 18:54

Вводишь x = [0..1] и вводишь точность вычисления, обычно от 0.1 и до 0.0000000000000000001 в общем пока не надоест, если нужна только точность, как в условие, то, просто убери epsilon с readln и задай нужное значение. Минут через 10 добавлю еще код с комментариями.

@CentSergey · 21.10.2013, 18:59 **[ТС]**

Ultim[a]te,а можешь свою программу привести к внешнему виду к моей

@Ultim[a]te · 21.10.2013, 19:09

Сообщение от CentSergey

Ultim[a]te,а можешь свою программу привести к внешнему виду к моей

Это как?) задал epsilon постоянным. И исправил ошибку с вычислением х. Комментарии эквивалентны для обоих программ.

Pascal

const epsilon = 0.0001;
 
var 
  denominator:real;
  numerator:real;
  i,j, fact:integer;
  series:real;
  x:real;
  
begin
  writeln('Введите значение x');
  readln(x);
  fact := 2;//базовое значение фаториала
  numerator := x * x;//базовое значение x(в формуле),это числитель в формуле
  denominator := fact;//знаменатель
  series := 1 - (numerator / denominator);//в итогу тут имеем 1-x^2/2!, ак и в формуле разложения cos.
  i := 1; //чередование сложения - вычитания последующего члена ряда
  
  //до тех пор, пока значение члена ряда >= точности
  while(abs((numerator / denominator)) >= abs(epsilon)) do
  begin
    numerator := numerator * (x * x);//читаем следующий x - это x^4, предыдущий был равен x^2, соответственной умножив его на себя еще раз получим x^4
    //x^4 * x^2 = x^6
    denominator := denominator * (fact + 1) * (fact + 2);//вычисляем значения факторияла ля следующего члена ряда это 2! *3 *4 = 4!, и т.д
    fact := fact + 2;//елаем приращение на два, для следующего цикла
    series:= series + (i*((numerator / denominator)));//сумируем ряд
    i:=i*-1;//меняем знак для следубщего члена ряда
  end;
  
  writeln(series:0:5,'  ', cos(x):0:5);
 
end.

Pascal

const epsilon = 0.00001;
var 
  denominator:real;
  numerator:real;
  i,j, fact:integer;
  series:real;
  x:real;
  
begin
  writeln('Введите значение x');
  readln(x);
 
  fact := 2;
  numerator := x * x;
  denominator := fact;
  series := 1 - (numerator / denominator);
  i := 1;
 
  repeat
    numerator := numerator * (x * x);
    denominator := denominator * (fact + 1) * (fact + 2);
    fact := fact + 2;
    series:= series + (i*((numerator / denominator)));
    i:=i*-1;
  until(abs((numerator / denominator)) <= abs(epsilon));
  
  writeln(series:0:5,'  ', cos(x):0:5);
 
end.

@CentSergey · 21.10.2013, 19:31 **[ТС]**

спасибо

Добавлено через 1 минуту
Ultim[a]te,

Pascal

program seven;
uses crt;
const eps=0.0001;
var s,si,x,y:real;
n:integer;
begin
clrscr;
writeln('Введите х');
readln(x);
s:=1;
y:=cos(x);
si:=1;
n:=1;
while abs(si)>eps do begin
si:=si*-1*exp(2*n*ln(x))/(2*n);
s:=s+si;
n:=n+1;
end;
writeln('s = ',s:0:4,', y=',y:0:4);
readkey; 
end.

где в этой программе ошибка почему s и y не совпадают?

@Ultim[a]te · 21.10.2013, 19:59

Pascal

uses crt;
const eps=0.0001;
var s,si,x,y:real;
n,znak:integer;
 
function fact(n:integer):integer;
begin
  if n=1 then fact:=1
  else fact:=fact(n-1)*n;
end;
 
function pow(x,n:real):real;
begin
  pow:=exp(n*ln(x));
end;
 
begin
clrscr;
writeln('Введите х');
readln(x);
s:=1;
y:=cos(x);
si:=1;
n:=1;
znak:=-1;
while abs(si)>eps do begin
si:=znak*pow(x,2*n)/fact(2*n);
s:=s+si;
n:=n+1;
znak:=znak*-1;
end;
writeln('s = ',s:0:4,', y=',y:0:4);
readkey; 
end.

@CentSergey · 21.10.2013, 20:04 **[ТС]**

а можно как-нибудь попроще

@CentSergey 0 / 0 / 2 Регистрация: 09.03.2013 Сообщений: 43
	21.10.2013, 20:04 [ТС]	12
	а можно как-нибудь попроще 0

Вычислить значение выражения

Решение

Решение

Решение

Решение

@CentSergey 0 / 0 / 2 Регистрация: 09.03.2013 Сообщений: 43
	21.10.2013, 18:18 [ТС]	2
	вот условие Миниатюры 0

@CentSergey 0 / 0 / 2 Регистрация: 09.03.2013 Сообщений: 43
	21.10.2013, 18:48 [ТС]	4
	можешь изменить мою программу Добавлено через 2 минуты Ultim[a]te, можешь изменить мою программу 0

@CentSergey 0 / 0 / 2 Регистрация: 09.03.2013 Сообщений: 43
	21.10.2013, 18:50 [ТС]	6
	Ultim[a]te, я не могу понять как она работает и где в ней формула 0

@Ultim[a]te 24 / 24 / 30 Регистрация: 31.03.2011 Сообщений: 46
	21.10.2013, 18:54	7
	Вводишь x = [0..1] и вводишь точность вычисления, обычно от 0.1 и до 0.0000000000000000001 в общем пока не надоест, если нужна только точность, как в условие, то, просто убери epsilon с readln и задай нужное значение. Минут через 10 добавлю еще код с комментариями. 1

@CentSergey 0 / 0 / 2 Регистрация: 09.03.2013 Сообщений: 43
	21.10.2013, 18:59 [ТС]	8
	Ultim[a]te,а можешь свою программу привести к внешнему виду к моей 0