Найти сумму вида 1+1/2+1/4+1/6+.+1/n. N вводится с клавиатуры

@Nikitasa · Регистрация: 14.10.2022

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

Найти сумму вида 1+1/2+1/4+1/6+..+1/n. N вводится с клавиатуры.

@Elijah Tomcat · 30.10.2023, 19:27

На Delphi 6 всё нормально работает.

@Constcat · 30.10.2023, 19:56

Сообщение от Elijah Tomcat

На Delphi 6 всё нормально работает.

Покаж скриншот скомпилированного кода.
На Delphi 6 оно работает, а в Delphi 7 злобный Borland step назло всем выпилил, да?

@AzAtom · 30.10.2023, 20:08

Сообщение от Elijah Tomcat

На Delphi 6 всё нормально работает.

Нет.

Сообщение от Elijah Tomcat

https://delphi-hlp.ru/blog/delphi-tsikl-s-shagom.php

Смотрел видео по своей ссылке? Как он там сделал цикл с шагом?

@Constcat · 30.10.2023, 20:13

Сообщение от Elijah Tomcat

На Delphi 6 всё нормально работает.

Мне хватит занудства скачать Delphi 6, установить и проверить:

Найти сумму вида 1+1/2+1/4+1/6+.+1/n. N вводится с клавиатуры

Твой ход.

@AzAtom · 30.10.2023, 20:16

Сообщение от Constcat

Твой ход.

Это секретная инфа.

@AzAtom · 30.10.2023, 20:17

Комментарий модератора

Elijah Tomcat, на этом заканчивайте вводить людей в заблуждение.

@Elijah Tomcat · 30.10.2023, 20:36

https://magenta-online.ru/Tuto... najushhih/

@Constcat · 30.10.2023, 21:54

Сообщение от Elijah Tomcat

https://magenta-online.ru/Tuto... najushhih/

Давай так.
С твоей стороны:
1. Ты кидаешь ссылки на какие-то помойки, где предлагается непроверенный код.
2. Сам ты его не проверяешь.

С нашей стороны:
1. Есть официальный хелп от Borland:
A for statement, unlike a repeat or while statement, requires you to specify explicitly the number of iterations you want the loop to go through. The syntax of a for statement is

for counter := initialValue to finalValue do statement

or

for counter := initialValue downto finalValue do statement

where

counter is a local variable (declared in the block containing the for statement) of ordinal type, without any qualifiers.
initialValue and finalValue are expressions that are assignment-compatible with counter.
statement is a simple or structured statement that does not change the value of counter.

The for statement assigns the value of initialValue to counter, then executes statement repeatedly, incrementing or decrementing counter after each iteration. (The for...to syntax increments counter, while the for...downto syntax decrements it.) When counter returns the same value as finalValue, statement is executed once more and the for statement terminates. In other words, statement is executed once for every value in the range from initialValue to finalValue. If initialValue is equal to finalValue, statement is executed exactly once. If initialValue is greater than finalValue in a for...to statement, or less than finalValue in a for...downto statement, then statement is never executed. After the for statement terminates (provided this was not forced by a break or an exit procedure), the value of counter is undefined.
где отлично видно, что никакого step в for нет.
2. Есть опыт работы на реальном коде, а не "по мотивам интерната".
3. Мы лично проверили на Delphi 6/Delphi 7 и продемострировали, что step в for отсутствует.

Вопрос тебе:
Почему ты больше склонен доверять непроверенной инфе в инете, чем форуму, где есть реальные люди, которые вот прямо здесь и сейчас все проверили и показали?

@Cyborg Drone · 30.10.2023, 23:54

Вообще, в одном из паскалей (паскалей ли?) есть for..to/downto..step. Elijah Tomcat, Вы часом Delphi c Pascal ABC.NET не путаете?

@Constcat · 30.10.2023, 23:58

Сообщение от Cyborg Drone

Вообще, в одном из паскалей (паскалей ли?) есть for..to/downto..step. Elijah Tomcat, Вы часом Delphi c Pascal ABC.NET не путаете?

Как можно? В Святом Интернете было черным по русски написано, что это именно в Delphi!

@D1973 · 31.10.2023, 05:55

Не по теме:

Сообщение от Cyborg Drone

в одном из паскалей ... Pascal ABC.NET ...

меня давно терзают смутные сомнения, что данный продукт вообще имеет отношение к Паскалю - совершенно другой язык, только имя позорит!
Нет, на самом деле он хороший, мощный, функциональный... Но он - не Pascal!

@Cyborg Drone · 31.10.2023, 08:57

Не по теме:

D1973, всё верно, это уже не паскаль. Это .NET-язык, основанный на паскале.

@Constcat · 31.10.2023, 12:09

Не по теме:

Сообщение от Cyborg Drone

D1973, всё верно, это уже не паскаль. Это .NET-язык, основанный на паскале.

Только в тех источниках, которые приводились в качестве доказательства, указано, что это - Delphi.

@D1973 · 31.10.2023, 12:50

Не по теме:

Сообщение от Constcat

указано, что это - Delphi

Да, я читал ~~текст~~бред по ссылкам... Но про этот вброс, как и про ТС-а, уже все забыли, начали говорить именно за Pascal ABC.NET... Правда, надо завязывать с офтопом...

@Cyborg Drone · 31.10.2023, 22:48

Elijah Tomcat, может, скажете чего-нибудь? А то как-то неловко получается: Вы тут такой профессионал, а мы тут на печи у Пронькиных... Итак?

@Constcat · 31.10.2023, 22:52

Сообщение от Cyborg Drone

Elijah Tomcat, может, скажете чего-нибудь?

Не скажет.
Он выступил с таким апломбом, порекомендовал нам матчасть изучать.
А тут такой облом.
Проще сделать вид, что ничего не видел/не слышал.

@Cyborg Drone · 31.10.2023, 23:36

Constcat, ну что Вы. Я в него верю. Нормальный человек всегда признает свою неправоту. Любой может ошибиться, ничего зазорного в этом нет.

Но, однако, посмотрим: может быть, я и не прав, и Elijah Tomcat побрезгует извиняться перед нами, поскольку мы по сравнению с его гением - унтерменьши.

@droider · 02.11.2023, 17:01

Не по теме:

Сообщение от Constcat

Я нашел источник этого step 2

В первую очередь автору этой статьи и Вам не советую пользоваться интернетом. А то мало ли...

@Constcat · 02.11.2023, 17:29

Не по теме:

Сообщение от droider

В первую очередь автору этой статьи и Вам не советую пользоваться интернетом. А то мало ли...

Как-нибудь разберемся без посторонних советов, чем и как пользоваться, ок?

@droider · 07.11.2023, 13:42

Не по теме:

Constcat, вообще мой пост предназначался ТС, а под цитату попали Вы.

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@Nikitasa 0 / 0 / 0 Регистрация: 14.10.2022 Сообщений: 68

	Найти сумму вида 1+1/2+1/4+1/6+.+1/n. N вводится с клавиатуры 28.10.2023, 15:55. Показов 3018. Ответов 60 Метки нет (Все метки) Найти сумму вида 1+1/2+1/4+1/6+..+1/n. N вводится с клавиатуры. 0

@Elijah Tomcat 8 / 12 / 3 Регистрация: 21.10.2023 Сообщений: 217
	30.10.2023, 19:27
	На Delphi 6 всё нормально работает. 0

@Elijah Tomcat 8 / 12 / 3 Регистрация: 21.10.2023 Сообщений: 217
	30.10.2023, 20:36
	https://magenta-online.ru/Tuto... najushhih/ 0

@Cyborg Drone Модератор 10477 / 5772 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	30.10.2023, 23:54
	Вообще, в одном из паскалей (паскалей ли?) есть for..to/downto..step. Elijah Tomcat, Вы часом Delphi c Pascal ABC.NET не путаете? 0

@Cyborg Drone
	31.10.2023, 08:57
	Не по теме: D1973, всё верно, это уже не паскаль. Это .NET-язык, основанный на паскале. 0

@Cyborg Drone Модератор 10477 / 5772 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	31.10.2023, 22:48
	Elijah Tomcat, может, скажете чего-нибудь? А то как-то неловко получается: Вы тут такой профессионал, а мы тут на печи у Пронькиных... Итак? 0

@Cyborg Drone Модератор 10477 / 5772 / 3412 Регистрация: 17.08.2012 Сообщений: 17,532
	31.10.2023, 23:36
	Constcat, ну что Вы. Я в него верю. Нормальный человек всегда признает свою неправоту. Любой может ошибиться, ничего зазорного в этом нет. Но, однако, посмотрим: может быть, я и не прав, и Elijah Tomcat побрезгует извиняться перед нами, поскольку мы по сравнению с его гением - унтерменьши. 0

@droider
	07.11.2023, 13:42
	Не по теме: Constcat, вообще мой пост предназначался ТС, а под цитату попали Вы. 0