Найти сумму членов бесконечно убывающей арифметической прогрессии - Turbo Pascal

  1. Найти сумму членов бесконечно убывающей арифметической прогрессии, если известны ее первый член a1 и знаменатель q. Сделал вот, так (преподаватель сказал переделать):


textual

Код к задаче: «Найти сумму членов бесконечно убывающей арифметической прогрессии - Turbo Pascal»

uses crt;
var
a1,q,s:double;
begin
write('a1 = ');
readln(a1);
write('q = ');
readln(q);
if (abs(q)<1) then
  begin
  s:=a1/(1-q);
  writeln('S = ',s:0:4);
  end
else writeln('Последовательность не убывающая');
readkey;
end.

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

13   голосов, оценка 3.692 из 5



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

  1. Найти сумму бесконечного ряда с заданной точностью E для всех X, изменяющихся от Xn до Xk с шагом H. Правильность вычисленного выражения проверить с помощью аналитического выражения ряда. Xn = 0.1, Xk = 0.9, H = 0.1, E = 0.001 Y = (1-x)^m = 1-mx+m(m-1)x^2/2!+...+(-1)^n*m(m+1)...((m+n-1)*x^n)/(n!) + ...Добавлено через 7 минут Ошибся в формуле Y = (1+x)^(-m) = 1-mx+m(m+1)x^2/2!+...+(-1)^n*m(m+1)...((m+n-1)*x^n)/(n!) + ...

  1. Составить программу вычисления суммы бесконечного ряда с точность EPS. Значение EPS вводится с клавиатуры.

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

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

  1. найдите сумму в первых членов последовательности:5,55,555,5555

  1. Последовательность задана рекуррентной формой и условием. . Разработать алгоритм и программу вычисления и вывода первых 15 членов последовательности и их суммы.

  1. Можеете полностью написать программу, прошу Найти сумму 10 членов ряда, в котором an = (n!) / n2

  1. Решить по этапам следующие задачи. Должны быть составлены две программы: Первая - с использованием цикла for, вторая - либо с циклом repeat, либо с циклом while. Вычислить n первых членов последовательности по формуле Ak=k-1/(k+1)^2, (k=1,*2,*…,*n)

  1. вычислить сумму бесконечного ряда с заданной точностью E=0.5e-6