Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...
Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...
Топ:
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Интересное:
Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Дисциплины:
2017-11-18 | 173 |
5.00
из
|
Заказать работу |
Рисунок 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
Постановка задачи
·
Решение
· Блок схема:
· Текст программы:
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
Постановка задачи
·
Решение
· Блок схема:
· Текст программы:
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
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов (88‰)...
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!