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, помогите сделать блок схему,
Фельдшером
Источник: www.medcoll.ru
Ответить
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
Ответить