Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОСИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ
Сибирская Государственная Геодезическая Академия
Кафедра Прикладной Информатики
Практическая работа №4
Программирование в Visual Basic
Проверил: Выполнил:
Троян А.С. Гладышева А.В.
Ст. гр. БЭ-11а
Новосибирск, 2012
Вариант 5. Найти объем цилиндра.
Блок-схема
Начало
Площадь основания=25
Ввод значения высоты
Вычисления объема цилиндра
Вывод результата
Конец
Программа
Option Explicit
Sub ОбъемЦилиндра()
Dim ПлощадьОснования, Высота, Объем As Single
ПлощадьОснования = 25
Высота = InputBox("Введите значение высоты", "Высота")
Объем = ПлощадьОснования * Высота
MsgBox "Объем Цилиндра=" & Объем
End Sub
Вариант 5. Составить блок-схему и написать программу вычисления функции пользователя Y :
Начало
Ввод x, z
Да
X<0, z<0
Нет
Да
x>0, x>0
Нет
Y=100
Вывод Y
Конец
Программа
Sub uravnenie()
Dim x, z, Y As Double
x = Worksheets("Лист2").Cells(2, 1)
z = Worksheets("Лист2").Cells(2, 2)
If x < 0 And z < 0 Then
Y = z * (x ^ 2)
ElseIf x > 0 And z > 0 Then
Y = (z ^ 2 + x ^ 2) ^ (1 / 2)
Else: Y = 100
End If
Worksheets("Лист2").Cells(2, 4) = Y
End Sub
Результат работы программы при x<0 и z<0 (Идет вычисление())
Результат работы программы при x>0 и z>0 (Идет вычисление ())
Результат работы программы при x=0 и z=0 (Выполняется условие Y=100)
Вариант 5. Найти значение и координаты первого по порядку положительного элемента в массиве.
Начало
i=1
A(I,1)>0
Да
Нет
Вывести значение и номер ячейки
конец
Программа
Sub Число()
Dim A As Variant
Dim i, s As Integer
i = 1
s = 0
A = Range("A1:A6")
For i = 1 To 6
If A(i, 1) > 0 Then
MsgBox ("Номер ячейки содержащая число >0" & i)
s = A(i, 1)
MsgBox ("Первое по порядку >0" & s)
End If
Next
End Sub