Результаты и проверка в листе MS EXCEL
Рисунок 1 - задача 1.1
Задача 1.2
Постановка задачи
· Составить программу для определения количества килобайт (Кб), занимаемых вашими фамилией, именем и отчеством, если 1 символ – 1байт, 1 Кб=1024 байт.
Решение
· Блок схема:
· Текст программы:
Sub задача_1_2()
Dim A As Single
A = Val(InputBox("количество символов"))
B = A / 1024
MsgBox "количесво Кбайт =" + Str(B)
End Sub
Результаты и проверка в листе MS EXCEL
Рисунок 2 - задача 1.2
Задание № 2. Составление программ с оператором выбора. Вариант 11
Задача 2.1
Постановка задачи
· Составить проект программы, в котором определяется, выгодно ли покупать сезонку на проезд в трамвае (учесть вариант, когда стоимость сезонки равна сумме стоимостей всех билетов).
Решение:
· Блок схема:
· Текст программы:
Sub задача_2_1()
Dim A As Integer, B As Integer, C As Integer
A = Val(InputBox("количество билетов"))
B = Val(InputBox("цена билетов"))
C = Val(InputBox("цена сезонки"))
x = A * B
If x <= C Then
MsgBox " не выгодно"
Else
If C = x Then
MsgBox " нет разницы"
Else
MsgBox " выгодно "
End If
End If
End Sub
Результаты и проверка в листе MS EXCEL
Рисунок 3 - задача 2.1
Задача 2.2
Постановка задачи
·
 |
Запрограммировать функцию и вычислить ее значения в заданных точках.
Решение
· Блок схема:
· Текст программы:
Sub задача_2_2()
Dim x As Single
x = Val(InputBox("x"))
If x > 20 Then
y = Sin(x)
Else
If x <= 5 Then
y = 10
Else: y = Sqr(x)
End If
End If
MsgBox "y=" + Str(y)
End Sub
Результаты и проверка в листе MS EXCEL
Рисунок 4 - задача 2.2
Задание №3. Составление программ с оператором цикла. Вариант 11
Задача 3.1
Постановка задачи
·
 |
Запрограммировать функцию и вычислить сумму ее значений в точках интервала с заданным шагом, а также произведение значений функции, попавших в отрезок [1;2].
Решение
· Блок схема:
· Текст программы:
Sub задача_3_1()
Dim y As Single
y = Val(InputBox("y"))
s = 0
p = 1
For x = 1 To 3 Step 0.5
z = (Log(x ^ 3 + 1)) / y ^ 2
s = s + z
If (z >= 1) And (z <= 2) Then
p = p * z
End If
Next x
MsgBox "s=" + Str(s) + "p=" + Str(p)
End Sub
Результаты и проверка в листе MS EXCEL
Рисунок 5 - задача 3.1
Задача 3.2
Постановка задачи
·
 |
Запрограммировать функцию и вычислить сумму ее значений в заданных точках, а также произведение значений функции, не равных 0 и количество отрицательных значений функции.
Решение
· Блок схема:
· Текст программы:
Sub задача_3_2()
Dim x As Single, p As Single, s As Single
Dim i As Integer, k As Integer
p = 1
k = 0
s = 0
For i = 1 To 6
x = Cells(i + 1, 1)
If x > 0 Then
y = x ^ 3
Else
If x < -3 Then
y = Cos(x) * Sin(x)
Else
y = 3
End If
End If
If y <> 0 Then
p = p * y
End If
If y < 0 Then
k = k + 1
End If
s = s + y
Cells(8, 3) = s
Cells(9, 3) = p
Cells(10, 3) = k
Next i
End Sub
Результаты и проверка в листе MS EXCEL
Рисунок 6 - задача 3.2
Задание № 6. Вариант 15
Задача
Постановка задачи
· Имеется список группы и оценка каждого студента на экзамене по математике. Составить программу, которая вначале выводит фамилии всех отличников, потом хорошистов, троечников, а затем двоечников.
Решение
· Блок схема:
· Текст программы:
Sub задача_6()
Dim x(10) As Integer, i As Integer, ot As Integer, ch As Integer
Dim y(10) As String, dv As Integer, tr As Integer
ot = 6
ch = 6
tr = 6
dv = 6
For i = 1 To 10
x(i) = Cells(i, 2)
y(i) = Cells(i, 1)
If x(i) = 5 Then
ot = ot + 1
Cells(ot, 4) = y(i)
Else
If x(i) = 4 Then
ch = ch + 1
Cells(ch, 5) = y(i)
Else
If x(i) = 3 Then
tr = tr + 1
Cells(tr, 6) = y(i)
Else
If x(i) = 2 Then
dv = dv + 1
Cells(dv, 7) = y(i)
End If
End If
End If
End If
Next i
End Sub