Вычислить сумму ряда - Turbo Pascal

  1. Написал исходник скорее всего с ошибками не выводит сумму s.В чем может быть проблема?Программу надо сделать используя цикл while.


textual

Код к задаче: «Вычислить сумму ряда - Turbo Pascal»

program summa;
 
var
  s, sl, x: real;
  m, i: integer;
 
function fact(i: integer): integer;
begin
  if i <= 1 then fact := 1
  else fact := i * fact(i - 1);
end;
 
begin
  writeln('ââåäèòå m: ');
  readln(m);
  s := 0;
  i := 1;
  x := -0.8;
  sl := ln((x * x + 1) / fact(i)) / ln(10);
  while i < m do
  begin
    s := s + sl;
    i := i + 1;
    x := -1 + 0.2 * i;
    sl := ln((x * x + 1) / fact(i)) / ln(10);
  end;
  writeln('ñóììГ*: ', s);
end.

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

14   голосов, оценка 3.857 из 5



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

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

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

  1. Вычислить С при любых значениях x, а, b:

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

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

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

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.