Архитектура электронного правительства: Единая архитектура – это методологический подход при создании системы управления государства, который строится...
История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...
Топ:
Теоретическая значимость работы: Описание теоретической значимости (ценности) результатов исследования должно присутствовать во введении...
Определение места расположения распределительного центра: Фирма реализует продукцию на рынках сбыта и имеет постоянных поставщиков в разных регионах. Увеличение объема продаж...
Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...
Интересное:
Берегоукрепление оползневых склонов: На прибрежных склонах основной причиной развития оползневых процессов является подмыв водами рек естественных склонов...
Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...
Распространение рака на другие отдаленные от желудка органы: Характерных симптомов рака желудка не существует. Выраженные симптомы появляются, когда опухоль...
Дисциплины:
2017-11-18 | 161 |
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 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!