У вас вопросы?
У нас ответы:) SamZan.net

Лабораторная работа 1 Линейные алгоритмы

Работа добавлена на сайт samzan.net: 2016-06-09

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОСИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

Сибирская Государственная Геодезическая Академия

Кафедра Прикладной Информатики

Практическая работа №4

Программирование в Visual Basic

Проверил: Выполнил:

Троян А.С. Гладышева А.В.

Ст. гр. БЭ-11а

Новосибирск, 2012

Лабораторная работа №1

Линейные алгоритмы. Ввод, вывод информации

Вариант 5. Найти объем цилиндра.

Блок-схема

Начало

 

Площадь основания=25

Ввод значения высоты

Вычисления объема цилиндра

Вывод результата

Конец

Программа

Option Explicit

Sub ОбъемЦилиндра()

Dim ПлощадьОснования, Высота, Объем As Single

ПлощадьОснования = 25

Высота = InputBox("Введите значение высоты", "Высота")

Объем = ПлощадьОснования * Высота

MsgBox "Объем Цилиндра=" & Объем

End Sub



Лабораторная работа №2

УСЛОВНЫЕ КОНСТРУКЦИИ

Вариант 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)

Лабораторная работа №3

Циклические конструкции

Вариант 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







1. Нахождение опорного плана транспортной задачи
2. Отчет по педагогической практике Студентки 1 курса группы 209
3. Найяскравішою сторінкою героїчної діяльності Червоно Хреста стала безприкладна мужність його членів вол
4. крахмалоядными Крахмалистые корне и клубнеплоды Бобовые Продукты полученные путем разложения ферм
5. Религия и ее роль в культуре Русская реалистическая литература XIX века в контексте золотого века русской культуры
6. Курсовая работа- Переваги та недоліки операційних систем Windows
7. Вариант 4 Ответ дается на все вопросы.
8. длина ширина и высота рис
9. 21 веков Первые вопросы Отечественная музыкальная культура в период Октябрьской революции Отеч
10. 1 Конституційний закон про права громадян для королівств і областей що представлені в рейхсраті 12 грудня 186