Составить код по данному выражению, используя цикл

@Overdozing · Регистрация: 19.05.2016

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

Добрые люди, помогите пожалуйста с задачей.
Нужно реализовать с помощью цикла.
Не понимаю

Составить код по данному выражению, используя цикл

@Alex77755 · 20.05.2016, 05:29

Учиться не хочешь, соблюдать правила не желаешь!
Помочь просто не даёшь шансов! не показываешь что сделал!

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

@Infinity20_5 · 20.05.2016, 05:55

Не по теме:

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

Учиться не хочешь

Alex77755!
Вы ошибаетесь.
Он обращается не к Вам. Там же конкретно указаны адресаты: "Добрые люди".
Попробую в течение часа написать код. Подождите, самому интересно!

@Alex77755 · 20.05.2016, 06:28

Infinity20_5,

Не по теме:

ТС грубо попирает правила форума!
Ну вот: название темы, видимо модераторы, исправили.
Хотя согласно тех же правил аккаунт должен был быть заблокирован

Добавлено через 3 минуты

в течение часа написать код

ТС не просит написать код!
Он просит помочь! Но не сделать за него!
Я жду его попытки!
Будут попытки - будет помощь!
Зачем же тупо выполнять учебное задание за ленивого студента?!
А потом удивляетесь почему в стране бардак!
Вот такие горе-инженеры потом руководят предприятиями!

@Infinity20_5 · 20.05.2016, 07:03

Пока накропал на скорую руку такую примитивную схему, главное начать что-то делать.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Command1_Click()
Dim a As Integer, n As Integer
a = 3
Text1.Text = ""
For n = 2 To 5
Text1 = Text1 & n & " ) " & (a + (n * a + (3 * (n - 1) + (3 * n)) ^ 0.5) ^ 0.5) ^ 0.5 ^ 0.5 & vbCrLf
Next
 
End Sub

Она выдаёт результаты:

Visual Basic
1
2
3
4
2 ) 1,56508458007329
3 ) 1,60208904465836
4 ) 1,63075300119167
5 ) 1,65454510034718

С ужасом думаю, а вдруг: For n = 2 To 50? Где ограничения?

Shersh · 20.05.2016, 07:22

Visual Basic
1
2
3
4
n = 100500
For n = n To 1 Step -1
  s = Sqr(3 * n + s)
Next

@Alex77755 · 20.05.2016, 07:59

Где ограничения

В задании!

Нужно реализовать с помощью цикла.

правильно организованного! как у Shersh

@Infinity20_5 · 20.05.2016, 09:39

У меня с детства проблемы с математикой, а доверие к людям отняла сама жизнь. Всегда всё перепроверяю, иначе нельзя. Сапер ошибается раз в жизни…

(n=1) —> [3*(1– 1) + (3*1)^0.5]^0.5 = 1.316…
(n=2) —> (3*1 + [3*(2– 1) + (3*2)^0.5]^0.5)^0.5 = 2.3096…
(n=3) —> (3*1 + (3*2 + [3*(3– 1) + (3*3)^0.5]^0.5)^0.5)^0.5 = 2.449…
(n=4) —> (3*1 + (3*2 + (3*3 + [3*(4– 1) + (3*4)^0.5]^0.5)^0.5)^0.5)^0.5 = 2.467… http://m.wolframalpha.com/inpu... D+&x=4&y=4

Пишу честно, моего умишка не хватает понять вариант Shersh.
Почему у нас разные ряды? Объясните, пожалуйста, кто сможет.

Shersh · 20.05.2016, 10:30

(n=4) —> (3*1+(3*2+(3*3+(3*4)^0.5)^0.5)^0.5)^0.5 = 2,46721366157235
И не надо никому кланяться - VB и сам в состоянии считать (Ctrl+G)

@Infinity20_5 · 20.05.2016, 11:21

Shersh!
Чувствую — лопата по мне плачет, исстрадался без работы.
Многие вещи понимаю буквально, как написано: (n=2)—> Sqr(3 * 2 + 1.3162) = 2.7048…
(n=1)—> (3*(1 – 1) + (3*1)^0.5) ^0.5 = 3^0.25 = 1.3162…

Разве дальше не надо выводить общую формулу через прогрессию, чтобы можно было найти результат для любого — n? Например, как в задаче задача про100 гномов

Прошу объяснить мне Ваш код, у меня ничего не получается. Похоже на абстракцию. Где ошибка? Что должен найти в итоге?

Shersh · 20.05.2016, 11:34

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

Где ошибка?

В DIM n AS INTEGER

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

Integer Data Type
Integer variables are stored as 16-bit (2-byte) numbers ranging in value from -32768 to 32767

Long Data Type
Long (long integer) variables are stored as signed 32-bit (4-byte) numbers ranging in value from -2147483648 to 2147483647

@Infinity20_5 · 20.05.2016, 12:20

Shersh!
Будьте любезны, изъясняйтесь просторечным языком, но понятно.
Бегать на форум, переспрашивая каждую чепуху — нет сил и терпения.

Вот код — ниже. Чем он может помочь? Где ошибка? Что должен увидеть? Прошу внести поправки.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Private Sub Command1_Click()
Dim s As Double, n As Long
n = 100500
For n = n To 1 Step -1
   s = Sqr(3 * n + s)
  Next
 
End Sub

Shersh · 20.05.2016, 13:05

И откуда вы такие вспыльчивые выплыли?
Нет сил и терпения - бросьте это занятие, не ваше оно, видимо.

Что бы что-то увидеть, надо это что-то показать - в текстбокс, меседжбокс, окно дебуг...
А бегать сопли подтирать на каждый чих не собираюсь, адью.

@Infinity20_5 · 20.05.2016, 15:08

Не по теме:

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

А бегать сопли подтирать на каждый чих не собираюсь, адью.

Вот это по-нашенски — сразу видно Вам знания достались тяжким трудом, много горбатили.

Толи дело, Казанский или Байт, по-настоящему талантливые люди — щедро рассыпают свои знания как горох направо и налево, напропалую. Чего им жалеть-то — ведь всё даром получили от Бога.

@fever brain · 21.05.2016, 18:14

Infinity20_5,
Вы слишком много разговариваете )) и всё не в тему ))

@Infinity20_5 · 21.05.2016, 21:56

Не по теме:

Сообщение от fever brain

и всё не в тему

чиво пишиш? фсё фтему! сийчас вирнусь пакажу как нада писат код. пака сматри Вычислить: sqrt(3+sqrt(6+.+sqrt(3*(n-1)+sqrt(3*n).)

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@Overdozing 0 / 0 / 0 Регистрация: 19.05.2016 Сообщений: 3

	Составить код по данному выражению, используя цикл 19.05.2016, 22:15. Показов 1372. Ответов 15 Метки нет (Все метки) Добрые люди, помогите пожалуйста с задачей. Нужно реализовать с помощью цикла. Не понимаю 0

@Infinity20_5 Заблокирован
	20.05.2016, 09:39
	У меня с детства проблемы с математикой, а доверие к людям отняла сама жизнь. Всегда всё перепроверяю, иначе нельзя. Сапер ошибается раз в жизни… (n=1) —> [3(1– 1) + (31)^0.5]^0.5 = 1.316… (n=2) —> (31 + [3(2– 1) + (32)^0.5]^0.5)^0.5 = 2.3096… (n=3) —> (31 + (32 + [3(3– 1) + (33)^0.5]^0.5)^0.5)^0.5 = 2.449… (n=4) —> (31 + (32 + (33 + [3(4– 1) + (34)^0.5]^0.5)^0.5)^0.5)^0.5 = 2.467… http://m.wolframalpha.com/inpu... D+&x=4&y=4 Пишу честно, моего умишка не хватает понять вариант Shersh. Почему у нас разные ряды? Объясните, пожалуйста, кто сможет. Миниатюры 0

Shersh Заблокирован
	20.05.2016, 10:30
	(n=4) —> (31+(32+(33+(34)^0.5)^0.5)^0.5)^0.5 = 2,46721366157235 И не надо никому кланяться - VB и сам в состоянии считать (Ctrl+G) Миниатюры 1

@Infinity20_5 Заблокирован
	20.05.2016, 11:21
	Shersh! Чувствую — лопата по мне плачет, исстрадался без работы. Многие вещи понимаю буквально, как написано: (n=2)—> Sqr(3 * 2 + 1.3162) = 2.7048… (n=1)—> (3(1 – 1) + (31)^0.5) ^0.5 = 3^0.25 = 1.3162… Разве дальше не надо выводить общую формулу через прогрессию, чтобы можно было найти результат для любого — n? Например, как в задаче задача про100 гномов Прошу объяснить мне Ваш код, у меня ничего не получается. Похоже на абстракцию. Где ошибка? Что должен найти в итоге? Миниатюры 0

Shersh Заблокирован
	20.05.2016, 13:05
	И откуда вы такие вспыльчивые выплыли? Нет сил и терпения - бросьте это занятие, не ваше оно, видимо. Что бы что-то увидеть, надо это что-то показать - в текстбокс, меседжбокс, окно дебуг... А бегать сопли подтирать на каждый чих не собираюсь, адью. 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	21.05.2016, 18:14
	Infinity20_5, Вы слишком много разговариваете )) и всё не в тему )) 0

Составить код по данному выражению, используя цикл

Решение