Все элементы последовательности, значение которых меньше двух, заменить на ноль

@Noncex · Регистрация: 11.01.2013

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

Добрый вечер!
Нужна ваша помощь, не могу решить пару задач:
1.Даны положительные действительные числа A,X,E. В последовательности y(1), y(2),... , обра-зованной по закону y(0)=A; y(i)=0.5 [y(i-1)+x/y(i-1)] , i=1,2,3,... , найти первый член y(n), для которого выполнено неравенство

2.Дано N действительных случайных чисел в диапазоне от 1 до 10. Все элементы последова-тельности, значение которых меньше двух, заменить на ноль, кроме того, получить сумму элемен-тов, находящихся в диапазоне от 3 до 6, а также подсчитать их количество
Спасибо!

@Серж_87 · 24.11.2013, 19:18

Noncex, не зная теории, которую вы сейчас проходите в вашем учебном заведении очень тяжело понять что нужно сделать. У меня математика в институте была 6 лет назад
Вот , если бы вы сформировали вопрос от себя, чтобы понятно было. Или что есть и что не получается (какой конкретно момент)

@Noncex · 24.11.2013, 19:22 **[ТС]**

К сожалению, мне ничего не понятно, вообще...
Не имею и малейшего представления как написать эти две задачки в vb

@Artain · 24.11.2013, 20:11

Задания легкие и их освоение не должно занять у вас много времени.
Первую задачу вы сформулировали некорректно (нет условия неравенства)
Вторая задача решается вот так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim N As Integer = InputBox("Введите длину")
        Dim A(N) As Double ' Массив действительных чисел, с длинной = введенному значению
        Dim R As New Random ' генератор случайных чисел (ГСЧ)
        For i = 0 To N - 1 ' Для всех элементов массива
            A(i) = R.NextDouble() * 10 ' случ число <0-1> * 10 = <0-10>
        Next
        Dim Sum_3_6 As Double ' Результат - сумма
        Dim Count_3_6 As Integer ' Результат - колво
        For i = 0 To N - 1
            If A(i) < 2 Then A(i) = 0 ' если число меньше двух - занулить
            If A(i) > 3 And A(i) < 6 Then ' если число от 3 до 6 то
                Sum_3_6 += A(i) ' Увеличить переменную суммы на значение этого числа
                Count_3_6 += 1 ' В каунте прибыло!
            End If
        Next
    End Sub

Вывод результатов на экран добавьте сами. (чтобы тут писанины лишней не было)

@Noncex · 24.11.2013, 20:38 **[ТС]**

Спасибо Artain!

@Noncex · 24.11.2013, 20:46 **[ТС]**

Не нашел как отредактировать сообщение, собственно вот неравенство к 1ой задачке:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Noncex 0 / 0 / 0 Регистрация: 11.01.2013 Сообщений: 9

	Все элементы последовательности, значение которых меньше двух, заменить на ноль 24.11.2013, 18:35. Показов 1209. Ответов 5 Метки нет (Все метки) Добрый вечер! Нужна ваша помощь, не могу решить пару задач: 1.Даны положительные действительные числа A,X,E. В последовательности y(1), y(2),... , обра-зованной по закону y(0)=A; y(i)=0.5 [y(i-1)+x/y(i-1)] , i=1,2,3,... , найти первый член y(n), для которого выполнено неравенство 2.Дано N действительных случайных чисел в диапазоне от 1 до 10. Все элементы последова-тельности, значение которых меньше двух, заменить на ноль, кроме того, получить сумму элемен-тов, находящихся в диапазоне от 3 до 6, а также подсчитать их количество Спасибо! 0

@Серж_87 1303 / 509 / 63 Регистрация: 09.08.2012 Сообщений: 2,056
	24.11.2013, 19:18
	Noncex, не зная теории, которую вы сейчас проходите в вашем учебном заведении очень тяжело понять что нужно сделать. У меня математика в институте была 6 лет назад Вот , если бы вы сформировали вопрос от себя, чтобы понятно было. Или что есть и что не получается (какой конкретно момент) 0

@Noncex 0 / 0 / 0 Регистрация: 11.01.2013 Сообщений: 9
	24.11.2013, 19:22 [ТС]
	К сожалению, мне ничего не понятно, вообще... Не имею и малейшего представления как написать эти две задачки в vb 0

@Noncex 0 / 0 / 0 Регистрация: 11.01.2013 Сообщений: 9
	24.11.2013, 20:38 [ТС]
	Спасибо Artain! 0

@Noncex 0 / 0 / 0 Регистрация: 11.01.2013 Сообщений: 9
	24.11.2013, 20:46 [ТС]
	Не нашел как отредактировать сообщение, собственно вот неравенство к 1ой задачке: Изображения 0