Главная

Сумма элементов различных рядов

вс, 10/30/2011 - 12:52 — tech
Задача: 

Задача 1. Найти сумму n-го количества элементов ряда 1, -0.5, 0.25, -0.125, …

Задача 2. Найти сумму и количество элементов последовательности, которые по модулю больше 0.001. Последовательность:
S = 1/2 - 2/4 + 3/8 - 4/16 + ... - ...

Программа на языке Паскаль: 

Задача 1.

var
    a,sum: real;
    n,i:integer;
begin
    write('Количество элементов ряда: ');
    readln(n);
    a:=1;
    sum:=0;
    for i:=1 to n do begin
        sum:=sum+a;
        a:=-a/2
    end;
    writeln(sum:4:3);
readln
end.

Задача 2.

var
        a, b, sign, n: integer;
        sum: real;
begin
        a := 1;
        b := 2;
        sign := 1;
        sum := 0;
        n := 0;
 
        while a/b > 0.001 do begin
                sum := sum + sign * (a/b);
                n := n + 1;
                sign := -sign;
                a := a + 1;
                b := b * 2;
        end;
 
        writeln('Sum: ', sum:5:3);
        writeln('Qty: ', n);
readln;
end.

  • Добавить комментарий

Комментарии

ср, 01/11/2012 - 10:36 — Гость

Найти сумму ряда S=1+ дробь в

Найти сумму ряда S=1+ дробь в числителе которой 1*3+1*3*5+...+1*2*3* в знаменателе 1+3+ 1+3+5...1+3+5 и тд

  • ответить
Втр, 12/13/2011 - 15:01 — Гость

Найти сумму ряда

Найти сумму ряда S=1+3+5+7+9+11+13+15.

  • ответить
ср, 12/14/2011 - 22:34 — tech

var n: integer;

var
    n: integer; {количество элементов ряда}
    i, sum: integer;
 
begin
    write('n=');
    readln(n);
 
    if n > 0 then {считаем первый элемент отдельно}
        sum := 1
    else
        sum := 0;
 
    for i := 2 to n do {­ начинаем со второго элемента }
        sum := sum + 2;
 
    writeln('Sum=',sum);
readln;
end.

  • ответить
чт, 10/18/2012 - 05:28 — Гость

Написать программу суммы ряда

Написать программу суммы ряда s=1/1+1/3+1/6+1/10+..+, eps=0.2

  • ответить
пт, 09/28/2012 - 17:43 — Гость

найти сумму ряда

найти сумму ряда и представить ее в виде
y=∑ (-1)^k*(k+1)/(2k+1)!

  • ответить