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

Задача

 

Задача 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.

 

Тема

Циклы

Уровень

Простые задачи

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