У вас вопросы?
У нас ответы:) 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. Основные понятия коммерции
3. Тема- Финансовая база инноваций Инновационная деятельность требует значительных инвестиций связанных с
4. Тема Определение конфигурации и тестирование персонального компьютера
5. 00 ~ переезд в г Краков размещение на ночлег 20
6. Психофизиология практической деятельности Конспект лекций
7. Добро пожаловать но это очевидно а вот что было под ним- Убирайтесь в Ад твари
8. Основы методики тренировочного процесса в троебории
9.  Активная позиция самого исследователя
10. Специфика и суть религии как особого типа мировоззрения