Порядок выполнения задания 2.

РОССИЙСКАЯ АКАДЕМИЯ ПРАВОСУДИЯ

ЦЕНТРАЛЬНЫЙ ФИЛИАЛ

Кафедра правовой информатики, информационного права

И естественнонаучных дисциплин

УТВЕРЖДАЮ

Заведующий кафедрой

к.т.н., доцент

А.В. Мишин

«____» _______ 2011 г.

ПЛАН

Практического занятия

Дисциплина: «Информационные технологии в юридической деятельности»

Тема 6: «Моделирование, алгоритмизация и программирование

Информационных задач»

Разработал:

профессор кафедры, д.т.н., доцент

Л.Е. Мистров

Материалы обсуждены и одобрены

на заседании кафедры ПИИПЕД,

протокол № 1 от « 29 » августа 2011г.

Воронеж - 2011

План проведения занятия

Тема 6. 5 . Программирование задач с линейной и разветвляющейся

Структурой в среде Visual Basic

Учебные вопросы

Время, мин.

Вступительная часть . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1. Программирование задач с линейной структурой . . . . . . . . . . 2. Программирование задач с разветвляющейся структурой. . . Заключительная часть . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

5 30 40 5

Литература

основная:

1. Мистров Л.Е. Информатика и математика: информатика / Л.Е. Мистров, А.Ю. Кузьмин, С.А. Мишин. – Воронеж, Научная книга, 2008. – 282 с.

2. Информатика для юристов и экономистов: учебник для вузов / Под ред. С.В. Симоновича. - СПб.: Питер, 2004. - 688 с.

дополнительная:

1. Информатика: практикум по технологии работы на компьютере / Под ред. Н.В. Макаровой. - М.: Финансы и статистика, 2003. - 256 с.

2. Кормен Т.Х. Алгоритмы: построение и анализ / Т.Х. Кормен, Ч.И. Лейзерсон, Л.Р. Рональд. - Вильямс, 2005. - 1296 с.

3. Острейковский В.А. Информатика: учебник для студентов вузов / В.А. Острейковский. - М.: Высшая школа, 2001. - 511 с.

4. Попов В.Б. Основы компьютерных технологий / В.Б. Попов. - М.: Финансы и статистика, 2002. - 704 с.

Содержание занятия и методика его проведения

Вступительная часть. Преподаватель проверяет наличие и готовность студентов к проведению занятия, делает соответствующие записи в журнале. Объявляется тема, цель и план проведения занятия. Акцентируется внимание студентов на важности изучаемой темы для усвоения последующего материала учебной дисциплины.

Осно вная часть. Преподаватель доводит основные теоретические сведения и организует выполнение заданий по теме.

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

Программирование задач с линейной структурой

Задание 1. Написать программу для реализации алгоритма решения задачи с линейной структурой (задание 1 темы 6.2). Примерная форма приложения представлена на рис. 1.

Порядок выполнения задания 1.

1.1. Включите компьютер и зарегистрируйтесь в системе под именем пользователя Студент.

1.2. Щёлкните два раза по пиктограмме на рабочем столе Visual Basic и создайте стандартное приложение. Для этого щёлкните по пиктограмме Standard . exe. Откроется новый проект Visual Basic Project 1 и окно новой формы Form 1.

Рис. 1. Образец формы для задания 1

1.3. Используя панель инструментов (ToolBox), расположите на форме в соответствии с рис. 3.16 шесть тестовых окон , восемь меток и сделайте в них надписи, поясняющие назначение текстовых окон. Разместите две командные кнопки и сделайте надписи на них «Вычислить» и «Exit».

1.4. Откройте окно редактирования кода первой командной кнопки «Вычислить». Для этого дважды щёлкните по этой кнопке, перед Вами откроется окно с кодом программы. Для события Click напишите программу процедуры:

Private Sub Command 1_ Click ()

Dim a As Double

Dim b As Double

Dim c As Double

Dim p As Double

Dim t As Double

Dim ha As Double

Dim hb As Double

Dim hc As Double

a = Text1.Text

b = Text2.Text

c = Text3.Text

p = (a + b + c) / 2

t = 2 * Sqr(p * (p - a) * (p - b) * (p - c))

ha = t / a

hb = t / b

hc = t / c

Text4.Text = ha

Text5.Text = hb

Text 6. Text = hc

End Sub

Вернитесь в окно формы, нажав кнопку «Показать объект» проводника проектов.

1.5. Щёлкните дважды по кнопке «E xit», в результате перед Вами откроется окно с кодом программы. Для события Click напишите следующую команду Unload Form 1, которая выгружает форму из оперативной памяти и завершает работу программы.

Private Sub Command2_Click()

Unload Form1

End Sub

1.6. Запустите программу, нажав кнопку «Старт» на панели инструментов. Введите следующие данные в текстовые окна: а=10, b=14,5 c=7,4 и нажмите кнопку «Вычислить». Посмотрите результат вычислений высот треугольника (Ha=6,86018583931951; Hb=4,73116264780656; Hc=9,27052140448583) и нажмите кнопку «Exit».

1.7. Сохраните проект в своей папке на диске C :\Мои документы и закройте его.

Задание 2. В соответствии с Вашим вариантом написать программу для реализации алгоритма решения задачи с линейной структурой (задание 2 темы 6.2). Примерная форма приложения представлена на рис. 2.

Порядок выполнения задания 2.

2.1. Создайте новый проект VB (Файл ► Новый проект ► Standard EXE).

2.2. Используя панель инструментов (ToolBox), расположите на форме в соответствии с рис. 2 два тестовых окна , три метки и сделайте в них надписи, поясняющие назначение текстовых окон. Разместите две командные кнопки и сделайте надписи на них «Вычислить» и «Exit».

2.3. Откройте окно редактирования кода первой командной кнопки «Вычислить». Для этого щёлкните дважды по этой кнопке. Для события Click напишите программу процедуры (пример кода программы приведён для задания 2):

Рис. 2. Образец формы для задания 2

Private Sub Command1_Click()

Dim x As Double

Dim y As Double

Dim x1 As Double

Dim x2 As Double

Dim x3 As Double

x = Text1.Text

x1 = Sqr(2 * x + 2) * Cos(x)

x2 = Log(4 * x * x + 3)

x3 = x2 / (x - 2)

y = x1 - x3

Text 2. Text = y

End Sub

2.4. Вернитесь в окно формы, нажав кнопку «Показать объект» проводника проектов.

2.5. Щёлкните дважды по кнопке «E xit». Для события Click напишите следующую команду Unload Form 1, которая выгружает форму из оперативной памяти и завершает работу программы.

Private Sub Command2_Click()

Unload Form1

End Sub

2.6. Запустите программу, нажав кнопку «Старт» на панели инструментов. Введите следующие данные в текстовое окно 1) x=12 2) x=-3 и нажмите кнопку «Вычислить». Посмотрите результаты вычисления значений функции f(x) в точке x₀=12 (y=3,6666975544422) и в точке x₀=-3 (программа выдаёт ошибку). Для завершения отладки нажмите кнопку «Конец» на панели инструментов VB.

2.7. Сохраните проект в своей папке на диске C :\Мои документы и закройте его.

Дата добавления: 2018-11-24; просмотров: 391; Мы поможем в написании вашей работы!

Поделиться с друзьями:

12 3 Следующая ⇒

Мы поможем в написании ваших работ!