Вычисление суммы при заданной точности

@Tiaa · Регистрация: 27.01.2014

Студворк — интернет-сервис помощи студентам

Доброго времени суток всем. Можете ли вы мне помочь. Мне нужно было составить программу которая вычислить значение суммы с заданной точностью е=10-6.
Программу составил но там где то ошибся я. Прошу вас указать в какой именно строчке не обязательно даже говорить как ее исправить сам додумать попытаюсь)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program lab2;
uses crt;
const e=0.000001;
var
a,x,S,p,b,c,d,f:real;
k:integer;
begin
writeln ('Введите "x"');
readln(x); 
S:=0;
k:=1;
p:=1;
repeat
if (k+1) mod 2=0 then a:=exp((k+1)*ln(1)) else
if (k+1) mod 2=1 then a:=-exp((k+1)*ln(1));
p:=p*k;
b:=(2*k+1)*p;
d:=x/3;
f:=4*k+3;
c:=exp(f*ln(d));
S:=((a/b)*c);
until s<e;
writeln ('S=',s);
end.

@Tiaa · 27.01.2014, 19:25 **[ТС]**

Спасибо за внимание

@Cyborg Drone · 27.01.2014, 20:13

Как запостить тему, чтобы не получить ответ

Добавлено через 24 минуты
Ошибок много. Проще заново сделать. Итак.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?a[1]=\frac{1}{3!}\cdot \left(\frac{x}{3} \right)^7=\frac{1}{6}\cdot \left(\frac{x}{3} \right)^7$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?a[n + 1]=a[n]\cdot \frac{-1}{(2n+1)(2n+2)}\cdot \left(\frac{x}{3} \right)^4$

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var a, x, s: real;
    k: integer;
 
begin
  write('x = ');
  readln(x);
  a := 1 / 6;
  for k := 1 to 7 do a := a * x / 3;
  s := 0;
  k := 1;
  repeat
    s := s + a;
    inc(k);
    a := -1 * a * x * x * x * x / 81 /(2 * k + 1) / (2 * k + 2)
  until abs(a) < eps;
  writeln('S = ', s);
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Tiaa 0 / 0 / 0 Регистрация: 27.01.2014 Сообщений: 23
	27.01.2014, 19:25 [ТС]
	Спасибо за внимание 0