Лабораторная работа №1 Линейный вычислительный алгоритм Цель работы

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

Линейный вычислительный алгоритм

1. Цель работы:

Отработка навыков создания блок-схем для реализации линейного алгоритма при решении задач и овладение навыками работы с операторами Dim, присваивание, использование функций Val, Str, методом Print и Cls, диалоговыми окнами Inputbox, Msgbox. Использование их для решения различных задач.
2. Темы для предварительного изучения

Основные типы переменных, используемых в программах:

• 
  Действительные – single, double
  
• 
  Целые – integer
  
• 
  Символьные – string.
  

Изменение типа переменных

Функции val (строка)=число, str(число)=строка

Математические функции в линейных алгоритмах

Мат. запись	Назначение	Функция в VB
Sin x	Синус угла, заданного в радианах	Sin(x)
Cos x	Косинус угла, заданного в радианах	Cos(x)
Tg x	Тангенс угла, заданного в радианах	Tan(x)
Arctg x	Угол в радианах, у которого тангенс равен х	Atn(x)
Ln x	Натуральный логарифм числа	Log(x)
|x|	Модуль числа	Abs(x)
ex	Экспонента числа	Exp(x)
	Корень квадратный числа	Sqr(x)

Необходимо заметить, что этого списка недостаточно, для представления других функций через данных можно использовать следующие формулы, например,



корень любой степени можно записать, например, так .

3. Задание

а) Найти площадь треугольника по формуле Герона, т.е. по заданным сторонам.

б) площадь полной поверхности конуса.

Решение каждой задачи рассмотрим в отдельном диалоговом окне.

Пример 1

Найти площадь треугольника по его сторонам

Постановка задачи:

Дано: a,b,c

Найти: s

Математическая модель:

, то есть необходимо ввести вспомогательную переменную для вычисления полупериметра .

Решим задачу, переходя от частного случая, к решению задачи в общем виде.




Блок-схема алгоритма



Создание формы

Создание программы в среде VB начинается с запуска, соответствующего приложения Пуск - Программы – VB или с помощью ярлыка на Рабочем столе.


CommandButton


В диалоговом окне на вкладке Новый (New) выбираем Standart EXE.

В окне конструктора форм на форме Form1 создадим две Командные кнопки, используя панель элементов.

Т.к. событийной процедурой для исполнения алгоритма будет ЩЛКМ – Click, то переименуем кнопки и форму, используя Свойство – Caption. Заменим стандартные имена кнопок - на Запуск и Выход .

Процедура создается в окне кода, которое открывается ДЩЛКМ по объекту (командной кнопке) и имеет вид:.



Написание программного кода

начинается с описания переменных, используемых в алгоритме с помощью оператора Dim, имеющего следующий формат

Dim перем. as тип переменной, перем. as тип переменной...

Private Sub Command1_Click()
Dim a as single,b as single,c as single,p as single,s as single

Задаём конкретные значения переменным:

a=3

b=4

c=5

Вычисляем значения промежуточной и итоговой переменной:

p=(a+b+c)/2

s=sqr(p*(p-a)*(p-b)*(p-c))

Для вывода результата на форму используем метод Print

Print “a=”;a

Print “b=”;b

Print “c=”;c

Print “ площадь s=”;s

End Sub

Аналогично создаём программный код кнопки выход

Private Sub Command2_Click()

End

End Sub

Отладка программы.

Для запуска проекта и остановки используем соответственно кнопки и на панели инструментов или команду Start и End меню Run.

Проверим работу процедуры, а затем перейдем к решению задачи в общем виде. Для ввода значений переменных используем диалоговое окно ввода, формат записи которого:

Inputbox(“комментарий к текстовому полю”, “заголовок окна”,”значение по умолчанию”)


и следующий вид:

Для данной задачи необходимо задать

a=inputbox(“введи а”, “ВВОД”)

При использовании диалогового окна переменные получают текстовый тип, поэтому необходимо привести в соответствие типы переменных с помощью функции val и программный код изменим следующим образом:

a= val(inputbox(“введи а”, “ВВОД”))

b= val(inputbox(“введи b”, “ВВОД”))

c= val(inputbox(“введи c”, “ВВОД”))

Запустив несколько раз процедуру, можно увидеть несколько значений площади на форме, что неудобно, поэтому используем метод очистки формы, поставив его сразу после описания переменных.

Form1.cls

Проверим работу, проверив несколько вариантов, например, 3,4,5 или 12,13,5.

Используем другой способ для вывода результатов – окно сообщений

Msgbox(текстовый комментарий&переменные, параметр, “заголовок окна”)

Параметр=вид значка в окне+вид кнопок
Вид значка в окне 16 –  Вид кнопок 0 - ОК

32 –  1 – ОК, Отмена

48 – ! 2 – Стоп, Повтор, Пропустить

64 -  3 – Да, Нет, Отмена

4 – Да, Нет

5 – Повтор, Отмена
Например:

msgbox”s=”&s;,64,”Вариант”

Заменим оператор Print, диалоговым окном Msgbox.

Продолжим работу над проектом, рассмотрим ввод данных через текстовые поля. Для этого разместим на форме три текстовых поля, в которых будут выводиться значения сторон треугольника.

Для этого

1. 
   Создадим текстовые поля с помощью кнопки Textbox ab| на панели элементов.
   
2. 
   Расположим их следующим образом на форме.
   

Text1
В процедуру добавим операторы, которые и заполнят эти поля, поместив их в конце алгоритма
Text1=str(a)
Text2= str(b)
Text3= str(c)
Проверим работу процедуры.

3. 
   Отредактируем вид формы. Очистим текстовые поля, выделив их и убирая надпись в свойстве Text. Добавим заголовки над полями с помощью кнопки Label А
   на панели элементов. Используя свойство Caption – введем заголовки полей – сторона а и т.д.
   
4. 
   Отформатируйте текстовые поля и заголовки, используя свойства
   Font - атрибуты текста
   Alignment - выравнивание
   Fore Color- цвет текста, основные (System) цвета или открыв вкладку (Palette) для дополнительных цветов
   BackColor – цвет заднего плана (для оформления цвета кнопки необходимо также изменить свойство Style на значение 1-Graphical).
   
5. 
   Форматировать можно сразу несколько объектов, выделяя их, при нажатой клавише Shift.
   

Пример 2

Найти площадь полной поверхности конуса.

Для добавления в приложение новой формы выполним команду Add Form (добавить форму) меню Project. Появится новая форма, имеющая по умолчанию имя Form2. Самостоятельно создайте элементы на форме и оформление по образцу



Вернёмся к первой форме, используя окно Проводника проекта, и создадим третью кнопку для перехода и меняем её подпись на Переход.

Программный код этой кнопки следующий

Private Sub Command3_Click()

Form2.Show

End Sub

Напишем процедуру вычисления площади конуса, использовав ввод данных через текстовые поля и выводя результат на метку, т.е. программный код, исполняемый кнопкой Вычислить будет следующим

Private Sub Command1_Click()

Dim r as single,l as single,s as single

Dim pi as Double

r=val(text1.text)

l=val(text2.text)

pi=3.1415926

s=pi*r^2+pi*r*l

label3.Caption=”s=”+str(s)

End Sub

Самостоятельно составьте блок-схему для этой задачи и напишите процедуру для кнопки Возврат