Модифицировать программу так, чтобы элементы массива со значением больше 100 стали равны 100 - VB
Формулировка задачи:
Помогите пожалуйста, сам чего-то понаписал, но получалось полная ерунда, так что надеюсь на вашу помощь!!!!
2. Написать программы с использованием операторов цикла с неизвестным числом повторений (do while| until…loop)и создать блок схемы по заданиям:
- Найти j, при котором значение выражения (lgj+134j)/(j2-lnj+3) становится меньше при вводе с клавиатуры, если j увеличивается в ряду 1,2,3,4…
3. Написать программу с использованием операторов цикла с известным числом повторений (for i... to..next) и создать блок схему по заданию:
Модифицировать программу так, чтобы элементы массива со значением больше 100 стали равны 100.
Особенно интересно 3, тк с ним долго мучился и не смог решить. Очень срочно
Решение задачи: «Модифицировать программу так, чтобы элементы массива со значением больше 100 стали равны 100»
textual
Листинг программы
Sub Тони_Махони() Dim x() As Integer, i As Integer, n As Integer, s As String n = InputBox("Задайте целое число", "Размер массива", 10) ReDim x(n) Randomize s = "Исходный массив:" & vbCrLf For i = 0 To n x(i) = Int(Rnd * 200) s = s & x(i) & " " Next s = s & vbCrLf & "Результат:" & vbCrLf For i = 0 To n If x(i) > 100 Then x(i) = 100 s = s & x(i) & " " Next MsgBox s, , "He димка" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д