Написать программу используя цикл с постусловием

@kisellll · Регистрация: 31.05.2013

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

Помогите решить задачу:
Определить S, вычислив первые n членов последовательности:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=2-\frac{1}{V-1}+\frac{1}{V-2}-\frac{1}{V-4}+\frac{1}{V-7}-\frac{1}{V-11}+\frac{1}{V-16}-\frac{1}{V-22}+...$
Вычисления прекратить, если разность между двумя членами последовательности не превышает ε=0,001.

@volvo · 27.02.2014, 19:28

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const eps = 0.001;
var
  s, V, prev, curr : real;
  i, n, t, delta, sign : integer;
begin
  V := StrToFloat(Edit1.Text); // В Edit1 - значение V
  n := StrToInt(Edit2.Text); // Edit2 - максимальное количество суммируемых членов последовательности
  t := 1;
  delta := 0;
  sign := -1;
  curr := 2; s := curr;
  repeat
    prev := curr;
    curr := sign / (V - t); sign := - sign;
    s := s + curr;
    inc(delta); inc(t, delta);
  until (delta = n) or (Abs(prev - curr) < eps);
 
  ShowMessage(Format('Сумма = %12.8f, количество элементов = %d', [s, delta]));
end;

@kisellll · 27.02.2014, 19:37 **[ТС]**

Там знак между каждым выражением меняется. Сначала +, потом -, потом + и т.д.

@volvo · 27.02.2014, 22:46

А sign я просто для красоты ввел, по-твоему?

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@kisellll 0 / 0 / 0 Регистрация: 31.05.2013 Сообщений: 14
		1
	Написать программу используя цикл с постусловием 27.02.2014, 18:37. Показов 902. Ответов 3 Метки нет (Все метки) Помогите решить задачу: Определить S, вычислив первые n членов последовательности: $https://www.cyberforum.ru/cgi-bin/latex.cgi?S=2-\frac{1}{V-1}+\frac{1}{V-2}-\frac{1}{V-4}+\frac{1}{V-7}-\frac{1}{V-11}+\frac{1}{V-16}-\frac{1}{V-22}+...$ Вычисления прекратить, если разность между двумя членами последовательности не превышает ε=0,001. 0

@kisellll 0 / 0 / 0 Регистрация: 31.05.2013 Сообщений: 14
	27.02.2014, 19:37 [ТС]	3
	Там знак между каждым выражением меняется. Сначала +, потом -, потом + и т.д. 0

@volvo Супер-модератор 33003 / 21306 / 8183 Регистрация: 22.10.2011 Сообщений: 36,609 Записей в блоге: 8
	27.02.2014, 22:46	4
	А sign я просто для красоты ввел, по-твоему? 0