[закрыть]

Регистрация на сайте

Если вы уже зарегистрированы, пожалуйста войдите на сайт!
Email:
Имя (ник):
Пароль:
Повторите пароль:
  
Защита от роботов:

Плохо видно


Помогите сделать блок схемы для 2 заданий:

1.Заполнить массивы целых чисел {ai}, { bi} случайными числами в диапазоне [15, 31], i = 1, 2,...n. Вычислить S = (а1+bn)(а2+bn-1)...(аn+b1). 2. Заполнить массив целых чисел а1 , а2 ,..аn случайными числами в диапазоне [-25, 18]. Заменить отрицательные числа их квадратами и вывести новый массив.



Знаю верный ответ Найти ответ на вопрос



Ключевые слова: помогите сделать блок-схему, команды по блок-схемам i=1,n, помогите сделать блок схему,

1 ответ к вопросу “Помогите сделать блок схемы для 2 заданий:”

  • ответ #0 / ответил: Служба поддержки

    • ответ #1 / ответил: t1975453
      Полезный ответ? Да (0) / Нет (0)


      Фельдшером
      Источник: www.medcoll.ru

      Ответить

    • ответ #2 / ответил: Александр!
      Полезный ответ? Да (0) / Нет (0)

      1.
      Private a() As Single
      Private b() As Single
      Private y As Single
      Private n As Integer
      Public i As Integer
      Private g As Integer
      Private S As Single
      Private Sub Command1_Click()
      Randomize
      S = 1
      List1.Clear
      List2.Clear
      n = Val(Text1.Text)
      If n = Clear Then
      Text2.Text = "error"
      Else
      ReDim a(n - 1)
      ReDim b(n - 1)
      For i = 0 To (n - 1)
      a(i) = Round(Rnd * 16) + 15
      b(i) = Round(Rnd * 16) + 15
      List1.AddItem Str(a(i))
      List2.AddItem Str(b(i))
      Next i
      End If
      If n = Clear Then
      Text2.Text = "error"
      Else
      For i = 0 To (n - 1)
      S = S * (a(i) + b((n - 1) - i))
      Next i
      Text2.Text = Str(S)
      End If
      End Sub


      2.Private a() As Integer
      Private i As Integer
      Private n As Integer
      Private Sub Command1_Click()
      Randomize
      If Text1.Text = Clear Then
      Text2.Text = "error"
      List1.Clear
      List2.Clear
      Else
      n = Val(Text1.Text)
      List1.Clear
      List2.Clear
      ReDim a(n - 1)
      For i = 0 To (n - 1)
      a(i) = Round(Rnd * 43) - 25
      List1.AddItem (a(i))
      Next i
      For i = 0 To (n - 1)
      If a(i) < 0 Then
      a(i) = (a(i) ^ 2)
      Else
      End If
      List2.AddItem (a(i))
      Next i
      End If
      End Sub

      Ответить

Ответить на вопрос


Не хотите вводить проверочный код? Пройдите регистрацию!
Проверочный код:

обновить картинку

Статистика

  • © 2010-2011. Копирование материалов с сайта строго запрещено
  • Не нашли ответ? задай свой вопрос