Произвести табулирование функции в 10 точках

@dvpvitas · Регистрация: 12.03.2015

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{i=1}^{\infty }\frac{{-1}^{i-1}}{{i}^{i}}<br />$

При приближенном вычислении суммы ряда расчет выполнять с точностью E. Использовать цикл с предусловием и цикл с постусловием.

@dvpvitas · 14.06.2015, 09:33 **[ТС]**

Вот попытки когда i = 1,2 знак минус, когда далее не четное минус, а четное плюс, помогите...

Pascal

program dv_3_2;
uses crt;
var a,e,y:real;
i:integer;
begin
clrscr;
write('Введите точность:');
readln(e);
y:=0;
i:=1;
a:=((exp((i-1)*ln(abs(-1)))))/(exp(i*ln(i)));
writeln('i=',i:5,'y=',a*-1:6:4);
i:=2;
a:=((exp((i-1)*ln(abs(-1)))))/(exp(i*ln(i)));
writeln('i=',i:5,'y=',a*-1:6:4);
while a >=e do
begin
y:=y+a;
i:=i+1;
if oll(i) then
a:=((exp((i-1)*ln(abs(-1)))))/(exp(i*ln(i)));
writeln('i=',i:5,'y=',y:6:4);
end;
readln;
end.

ФедосеевПавел · 14.06.2015, 09:53

Без экспонент и логарифмов

Pascal

  if odd(i) then
    y:=y+a
  else
    y:=y-a;

~~но окончание цикла по абсолютному значению abs(a)>=e.~~Глупость

@dvpvitas · 14.06.2015, 11:43 **[ТС]**

Pascal

program pr_dv3_2;
uses crt;
var i:integer;
    s,ds,e:real;
begin
writeln('Введите точность');
readln(e);
   i:=0;
   s:=0;
   Repeat
   s:=s+ds;
      i:=i+1;
      ds:=-((exp((i-1)*ln(abs(-1)))))/(exp(i*ln(i)));
      Writeln(ds:5:12);
   Until Abs(ds)<e;
   Writeln(s:5:12);
   i:=1;
   ds:= -((exp((i-1)*ln(abs(-1)))))/(exp(i*ln(i)));
   readln;
   readln;
   Writeln(ds:5:12);
   s:=0;
   While Abs(ds)>=e do
   begin
   s:=s+ds;
      i:=i+1;
      ds:=-((exp((i-1)*ln(abs(-1)))))/(exp(i*ln(i)));
      Writeln(ds:5:12);
   end;
   Writeln(s:5:12);
   Readln;
end.

я изменил не много... Спасибо

ФедосеевПавел · 14.06.2015, 13:03

И я тогда свой вариант покажу

Pascal

const
  Eps = 0.0001;
var
  i: integer;
  y, a: real;
begin
  i := 1;
  y := 0;
  repeat
    a := 1 / exp(i * ln(i));
    if not odd(i) then
      a := -a;
    y := y + a;
    Inc(i);
  until abs(a) < Eps;
  writeln(y);
end.

Произвести табулирование функции в 10 точках

Решение

Решение

@dvpvitas 2 / 2 / 2 Регистрация: 12.03.2015 Сообщений: 51
		1
	Произвести табулирование функции в 10 точках 13.06.2015, 08:23. Показов 1358. Ответов 4 Метки нет (Все метки) $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{i=1}^{\infty }\frac{{-1}^{i-1}}{{i}^{i}}<br />$ При приближенном вычислении суммы ряда расчет выполнять с точностью E. Использовать цикл с предусловием и цикл с постусловием. 0

	14.06.2015, 13:03