алгоритм дегенымыз не?
10-11 класс
|
Берилген малиметтермен бир манде аныкталатын натиже алу ушин кандай ретпен орындайтынын белгилейди. Есептерди, шешуин
амалдармен орындалады соны алгоритм дейди
Другие вопросы из категории
Результат представить в виде таблицы, первый столбец которой - значение агрумента, второй -соответствующее значение функции
помогите, пожалуйста :(
Читайте также
элементов.
3. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
сколько полных минут прошло с начала очередного ча, сколько секнуд прошло сначала очередной минуты. ( Напишите алгоритмом , а не кодом , пожалуйста )
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
числами. В чём ошибка? вот код:
Private Sub Command1_Click()
' Описание переменных
Dim N As Single
Dim M(15) As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim Z As Single
' Описание переменных
' Вод исходных данных
N = 0
M(I) = 0
A = 1
B = 0
C = 0
' Ввод исходных данных
' Реализация алгоритма
For I = 1 To 15
N = Int(Text1.Text)
M(I) = Val(InputBox("Ввести элементы"))
Print Str(M(I))
Next I
For I = 1 To 15
If M(I) > 0 And M(I) <> 0 Then
A = A * M(I)
End If
Next I
For I = 15 To 0 Step -1
If I Mod 2 = 0 Then
If M(I) > 0 Then
B = M(I)
I = 0
End If
End If
Next I
For I = 1 To N Step 1
S = S + M(I)
Next I
C = S / N
Z = С + (А + В/ А * В + 1)
' Реализация алгоритма
' Вывод результата
Text2.Text = Str(A)
Text3.Text = Str(B)
Text4.Text = Str(C)
Text5.Text = Str(Z)
' Вывод результата
End Sub
пароль равен количеству чисел от 1 до 10000, НЕ делящихся на 13 и 17. Чему равен пароль?