Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Социальные группы Поиск Сообщения за день Заказать работу  
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 04.06.2013
Сообщений: 15

Получить последовательность b1, b2, ... , bn, где при i =1,2,...,n значение bi = i!

04.06.2013, 15:38. Показов 2712. Ответов 5
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
в Visual Basic

Циклы
1.Дано натуральное n. Получить последовательность b1, b2, ... , bn, где при i =1,2,...,n значение bi = i!
0
Лучшие ответы (1)
Сообщение: #4670077
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 04.06.2013, 15:38
Ответы с готовыми решениями:

Получить последовательность b1,...,bn, где при i=1,2,...,n значение bi = 1+1/2+...+1/i
Дано натуральное число n, Получить последовательность b1,...,bn, где при i=1,2,...,n значение bi 1+1/2+...+1/i Если можно с помощью...

Дано натуральное число n. Получить последовательность b1, ..., bn, где при i = 1, 2, ..., n значение b i равно:
Дано натуральное число n. Получить последовательность b1, ..., bn, где при i = 1, 2, ..., n значение b i равно:

Дано натуральное число n. Получить последовательность b1, ., bn, где при i = 1, 2, ., n значение b i равно:
Дано натуральное число n. Получить последовательность b1, ..., bn, где при i = 1, 2, ..., n значение b i равно: 2^i + 3^(i+1)

5
321 / 289 / 104
Регистрация: 12.04.2011
Сообщений: 925
04.06.2013, 21:22
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Private Sub Command1_Click()
Form1.AutoRedraw = True
Dim i, n, m As Integer
Dim a() As Double
Cls
n = InputBox("Ââåäèòå êîëè÷åñòâî  ýëåìåíòîâ", "Ýëåìåíòû")
m = InputBox("Ââåäèòå êîëè÷åñòâî  ýëåìåíòîâ â ñòðîêå", "ÊÎëè÷åñâòî ýë-îâ â ñòðîêå")
 
ReDim a(1 To n)
For i = 1 To n
      a(i) = i
 
      Print a(i);
If a(i) Mod m = 0 Then Print
Next i
End Sub
Добавлено через 20 минут
15 строчка немного неверна, вот так правильно:
Visual Basic
1

If i Mod m = 0 Then Print
1
0 / 0 / 0
Регистрация: 04.06.2013
Сообщений: 15
05.06.2013, 12:51  [ТС]
он подчеркивает первую строку желтым" Private Sub Command1_Click()" при запуске и синим "Cls"
0
321 / 289 / 104
Регистрация: 12.04.2011
Сообщений: 925
05.06.2013, 13:28
Кнопка - 1-ая, может № кнопки не соответствует?

Добавлено через 1 минуту
Ага) Точно подмечено про 15 строчку)
0
0 / 0 / 0
Регистрация: 04.06.2013
Сообщений: 15
05.06.2013, 13:34  [ТС]
нет все соответствует.. он выдает ошибку "sub or function not defined"
0
321 / 289 / 104
Регистрация: 12.04.2011
Сообщений: 925
05.06.2013, 13:59
Не объявлен массив

Добавлено через 5 минут
Создал документ, скопировал код - всё работает!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 05.06.2013, 13:59
Помогаю со студенческими работами здесь

139 Дано натуральное число n. Получить последовательность b1, ., bn, где при i = 1, 2, ., n значение b i равно
139 Дано натуральное число n. Получить последовательность b1, ..., bn, где при i = 1, 2, ..., n значение b i равно:

Получить последовательность b[N] где значение b[i] равно i!
Получить последовательность b,...,b (при n=7), где значение b равно i! (n!=1*2...n; 0!=1). Не понимаю, что от меня тут хотят,...

Получить последовательность, где каждому элементу присвоить максимальное значение строки матрицы
Помогите!! Дана матрица А получить последовательность в1...в8, где каждому элементу присвоить максимальное значение строки матрицы !!...

Получить последовательность, где все нечетные члены удвоены
Даны целые числе a1,...,a50. Получить последовательность b1,...,b50, что отличается от исходной тем, что все нечетные члены удвоены. ...

Массив: Получить последовательность y1,y2..., которая образована по закону y1=y2=1, Y(i-2)+(Y(i-1))/i где i=3,4...
дано натуральное число n. последовательность y1,y2... образована по закону y1=y2=1, Y(i-2)+(Y(i-1))/i где i=3,4... вычислить y1+y2+...+yn


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
 SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru