Найдите сумму и количество элементов последовательности, которые по модулю больше 0,001 - Turbo Pascal

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


textual

Код к задаче: «Найдите сумму и количество элементов последовательности, которые по модулю больше 0,001 - Turbo Pascal»

uses crt;
 
const
  e = 0.001;
  
var
  i, k: integer;
  S, a: real;
  
begin
  S := 0;
  k := 1;
  i := 1;
  a := 1 / 2;
  while abs(a) > e do begin
    S := S + a;
    inc(i);
    k := k * 2;
    if odd(i) then a := i / k
    else a := -i / k;
  end;
  writeln;
  writeln('Сумма S = ', S);
  writeln('Количество элементов: ', i - 1);
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.667 из 5



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

  1. Дан произвольный одномерный массив (элементы вводятся с клавиатуры). Формирование элементов массива, обработку и если нужно вывод массива оформить отдельными подпрограммами. Вычислить сумму нечетных элементов, а все остальнве удвоить.

  1. 1. В прямоугольной матрице размером Т*М, имеющей имя МАТР содержаться целые числа. Т - число строк, М - число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму элементов в каждой строке. Определить строку с максимальным значением этой суммы и вывести ее номер на экран.

  1. Решите, пожалуйста. Задан одномерный массив A. Найти сумму квадратов всех его ненулевых элементов. Размерность массива 20. Заполнение массива осуществить случайными числами от -25 до 25

  1. Здравствуйте. Пожалуйста, помогите решить задачу. Точность А вводится с клавиатуры вручную. Задание:

  1. Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0.001. Значение аргумента выбрать самостоятельно.

  1. Как это возможно сделать на паскале через цикл repeat until?