Вычислить сумму первых n членов ряда нечетных чисел (цикл for)

@Rick43 · Регистрация: 02.11.2018

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

Нужно написать программу, которая вычисляет сумму первых п членов ряда 1, 3, 5, 7,
.... Количество суммируемых членов ряда задается во время работы программы.

@JuriiMW · 02.11.2018, 04:46

Pascal
1
2
3
begin
  1.to(ReadInteger).Select(x->x*2-1).Sum.Print;
end.

@Rick43 · 03.11.2018, 00:02 **[ТС]**

Вы не использовали for!

@JuriiMW · 03.11.2018, 08:08

А зачем?
Если такая задача решается одним оператором?

Pascal
1
2
3
begin
  WriteLn(16);
end.

Ну, на крайний случай, используя формулу:

Pascal
1
2
3
4
5
6
7
const
  first = 1;
  last = 7;
  count = 4;
begin
  WriteLn((first+last) div 2*count);
end.

Но цикл — это уже лишнее!
Тем более for…

@Rick43 · 03.11.2018, 14:08 **[ТС]**

Вы не поняли!!! Это задача с дисциплины программирования! Я учусь в университете и решил задачу как и вы. Но мне нужно используя именно Цикл For...

@JuriiMW · 03.11.2018, 14:17

Я то понял!
Это вы не поняли!
Для написания такой программы учащемуся в университете достаточно прочесть главу посвящённую циклам любого „букваря“ по ЯП!
https://bash.im/quote/402378

@Puporev · 03.11.2018, 14:19

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

Я учусь в университете

Идите учиться в 7-8 класс школы.

@Sun Serega · 03.11.2018, 15:59

Попробую объяснить мысль последних 2 сообщение не_издевательским языком: цикл for это база для всего, его нужно знать даже если вы используете функциональное программирование и ООП на всю.

Вот к примеру, я сейчас заканчиваю 1 простенький скриптовый язык, вот в оптимизаторе у меня написано так:

Pascal
1
2
3
4
5
6
7
8
9
10
        if Negative.Any then raise new CannotSubStringExprException(self, Negative);
        
        var res := new OptSOPlusExpr;
        res.Positive := self.Positive.ConvertAll(
          oe->
          oe is IOptLiteralExpr?
          new OptSLiteralExpr(ObjToStr(oe.GetRes)) as OptExprBase:
          oe
        );
        Result := res.Optimize;//Тут оптимизации не провели, только изменили тип

Но при этом в считающем методе всё же через for:

Pascal
1
2
3
4
5
6
7
        if Negative.Any then raise new CannotSubStringExprException(self, Negative);
        var sb := new StringBuilder;
        
        for var i := 0 to Positive.Count-1 do
          sb += ObjToStr(Positive[i].GetRes);
        
        res := sb.ToString;

Потому что не важно сколько времени будет работать оптимизация (если всё равно меньше 1 сек) но во время выполнения - нужно максимум скорости, минимум памяти и т.п.

for всегда во всём превосходит любой сахар, кроме удобства написания. + Даже если не уметь писать на ассемблере - понимать IL код и какие конструкции во что разворачивается - очень часто помогает. Так же и с for и его заменами в ООП. И не только что касается оптимизации.

Поэтому надо всё же знать как он работает. И это не сложно, вот хотя бы откройте справку в IDE и наберите for в указателе.

Новичок · 04.11.2018, 06:14

Без циклов, без рекурсии, без LINQ.

Pascal
1
2
3
begin
   Writeln(Power(ReadInteger, 2));
end.

@Sun Serega · 04.11.2018, 11:27

Pascal
1
Print(ReadInteger ** 2)

Если уж...

Новичок · 04.11.2018, 15:29

Sun Serega, тоже хотел так написать, но потом стал вспоминать есть ли в PABC.NET оператор **(вроде раньше в Free Pascal такое было а в PABC.NET не было). Пошел читать доку и почему-то не нашел там такой операции.

@kotAV · 04.11.2018, 15:35

Не по теме:

Новичок, ** добавили в 3.3 (в январе этого года, насколько я помню)

@JuriiMW · 04.11.2018, 16:03

Не по теме:

kotAV, есть то он есть…
Вот только возвращает он действительное значение, а не целое ;–(

@Sun Serega · 04.11.2018, 16:47

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

Вот только возвращает он действительное значение, а не целое ;–(

Если надо целое:

Pascal
1
1 shl ReadlnInteget

Но тут вообще и такое сойдёт... Вывод то всё равно в виде строки, а она такая же.

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@Rick43 0 / 0 / 0 Регистрация: 02.11.2018 Сообщений: 15

	Вычислить сумму первых n членов ряда нечетных чисел (цикл for) 02.11.2018, 02:48. Показов 3057. Ответов 13 Метки .net, abc pascal, for-do (Все метки) Нужно написать программу, которая вычисляет сумму первых п членов ряда 1, 3, 5, 7, .... Количество суммируемых членов ряда задается во время работы программы. 0

@Rick43 0 / 0 / 0 Регистрация: 02.11.2018 Сообщений: 15
	03.11.2018, 00:02 [ТС]
	Вы не использовали for! 0

@Rick43 0 / 0 / 0 Регистрация: 02.11.2018 Сообщений: 15
	03.11.2018, 14:08 [ТС]
	Вы не поняли!!! Это задача с дисциплины программирования! Я учусь в университете и решил задачу как и вы. Но мне нужно используя именно Цикл For... 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	03.11.2018, 14:17
	Я то понял! Это вы не поняли! Для написания такой программы учащемуся в университете достаточно прочесть главу посвящённую циклам любого „букваря“ по ЯП! https://bash.im/quote/402378 0

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,361
	04.11.2018, 15:29
	Sun Serega, тоже хотел так написать, но потом стал вспоминать есть ли в PABC.NET оператор **(вроде раньше в Free Pascal такое было а в PABC.NET не было). Пошел читать доку и почему-то не нашел там такой операции. 0

@kotAV
	04.11.2018, 15:35
	Не по теме: Новичок, ** добавили в 3.3 (в январе этого года, насколько я помню) 0

@JuriiMW
	04.11.2018, 16:03
	Не по теме: kotAV, есть то он есть… Вот только возвращает он действительное значение, а не целое ;–( 0