Лабораторная работа №2. Программирование разветвляющегося алгоритма.




Лабораторная работа №1. Программирование линейного алгоритма.

Цель работы: изучить объекты VBA, их свойства, элементы управления, научиться программировать на VBA линейный алгоритм.

 

1. Краткие теоретические сведения

Редактор VBA можно вызвать помощи комбинации клавиш Alt+F11.

Математические операции VBA представлены в таблице 1.1.

 

Таблица 1.1 – Математические операции VBA.

Выражение Операция
А+В Сложение
А-В Вычитание
А*В Умножение
А/B Деление
A\B Целочисленное деление
A mod B Остаток от деления по модулю
A^B Степень

 

 

Математические функции VBA представлены в таблице 1.2.

 

Таблица 1.2. – Стандартные математические функции на VBA.

Обращение Функция
Abs(x) модуль аргумента
Atn(x) арктангенс (радианы)
Cos(x) косинус (х в радианах)
Exp(x) экспонента
Int(x) целая часть х, полученная отбрасыванием дробной части
Fix(x) число, округленное до ближайшего меньшего целого
Log(x) натуральный логарифм х
Sin(x) синус (х – в радианах)
Sqr(x) корень квадратный
Tan(x) тангенс х

 

2. Задание к выполнению

1) Написать программу на VBA для вычисления значения функции Z=F(x,y,a) согласно своему варианту.

2) Вычислить значение функции Z=F(x,y,a) в программе MathCAD.

3) Составить блок-схему программы.

 

Вариант 23: Задание

a=444.315

x=7.537

y=8.263

 

1. В VBAбыла написана программа

Окно формы программы:

 

Код программы:

 

2. В программе MathCAD было вычислено значение функции:

 

3. Была составлена блок-схема:

 

Ввод значенийa, x, y
Вывод результата
L t1UKDXHTtVBSKC5JzEtJzMnPS7VVqkwtVrK34+UCAAAA//8DAFBLAwQUAAYACAAAACEAC+gZl8UA AADbAAAADwAAAGRycy9kb3ducmV2LnhtbESPQWvCQBSE74X+h+UVvEjd6EEldZVQKlXswSS99PbI vmZDs29Ddhvjv3eFQo/DzHzDbHajbcVAvW8cK5jPEhDEldMN1wo+y/3zGoQPyBpbx6TgSh5228eH DabaXTinoQi1iBD2KSowIXSplL4yZNHPXEccvW/XWwxR9rXUPV4i3LZykSRLabHhuGCwo1dD1U/x axV8uQ/3liX03pnyGIZplp/ORa7U5GnMXkAEGsN/+K990ApWS7h/iT9Abm8AAAD//wMAUEsBAi0A FAAGAAgAAAAhAPD3irv9AAAA4gEAABMAAAAAAAAAAAAAAAAAAAAAAFtDb250ZW50X1R5cGVzXS54 bWxQSwECLQAUAAYACAAAACEAMd1fYdIAAACPAQAACwAAAAAAAAAAAAAAAAAuAQAAX3JlbHMvLnJl bHNQSwECLQAUAAYACAAAACEAMy8FnkEAAAA5AAAAEAAAAAAAAAAAAAAAAAApAgAAZHJzL3NoYXBl eG1sLnhtbFBLAQItABQABgAIAAAAIQAL6BmXxQAAANsAAAAPAAAAAAAAAAAAAAAAAJgCAABkcnMv ZG93bnJldi54bWxQSwUGAAAAAAQABAD1AAAAigMAAAAA ">
Вычисление значений функции
Конец
Начало

 

Вывод. В этой работе были изучены объекты VBA, их свойства, элементы управления. Научились программировать на VBA линейный алгоритм. Корректность работы программы подтверждается скрином из программы MathCAD.


 

Лабораторная работа №2. Программирование разветвляющегося алгоритма.

Цель работы: научиться разрабатывать алгоритмы и программы разветвляющейся структуры с условным оператором IF. Познакомиться с некоторыми объектами VBA и с их свойствами.

1. Краткие теоретические сведения

В блок-схемах алгоритмов выбор условия обозначается следующим образом (рисунок 2.1).

A<10
Да
Нет

 

 

Рисунок 2.1 – Обозначение выбора условия в алгоритме

 

В программном коде этот алгоритм записывается с помощью оператора IF THEN

Имеется два варианта синтаксиса этого оператора В первом случае он имеет вид:

IF условие Then операторы 1 Else операторы 2

Если условие выполняется, то выполняются операторы 1, если нет, то операторы 2.

Во втором случае оператор записывают в несколько строк:

IF условие Then

операторы 1

Else

операторы 2

EndIf

Пример записи оператора:

Первыйвидоператора:

IF A>7 Then A=A+10: D=10*B-A: C=2*C+B ELSE D=A+B: A=C+2

Второй вид оператора:

IF D>2 Then

D=A+1

D=3*C*B+A

A=4-C+B

ELSE

D=8*A-B

EndIf

2. Задание к выполнению

1)Написать программу на VBA для вычисления значения функции Y.

2) Вычислить значение функции Y в программе MathCAD.

3) Составить блок-схему программы.

 

Вариант 23: Задание

 

1. В VBAбыла написана программа

Окно формы программы:

 

Код программы:

2. В программе MathCAD было вычислено значение функции:

 

3. Была составлена блок-схема:

Начало
Ввести x,b
x>b
Да
Нет
y=ln2x
y=(x2-b)/(x*b)
Вывести y
Конец

 

Вывод. В этой работе научились разрабатывать алгоритмы и программы разветвляющейся структуры с условным оператором IF. Познакомились с некоторыми объектами VBA и с их свойствами.Корректность работы программы подтверждается скрином из программы MathCAD.


 



Поделиться:




Поиск по сайту

©2015-2024 poisk-ru.ru
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2017-12-29 Нарушение авторских прав и Нарушение персональных данных


Поиск по сайту: