Найти сумму вида 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, вообще мой пост предназначался ТС, а под цитату попали Вы.

Новые блоги и статьи Все статьи Все блоги /
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026

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

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

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

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

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

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

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