Автор работы: Пользователь скрыл имя, 04 Июня 2013 в 11:21, контрольная работа
Задача №2.1 Основной задачей этого задания было создание проекта на языке Visual Basic для решения функции F(x) при изменении аргумента «X» в заданном диапазоне и построить её график. Так же нужно было построить плоскую фигуру в соответствии со своим вариантом в методических указаниях.
Задача №2.2 Для расчёта 30 значений F(x) при изменении значения аргумента от начального значения с заданным шагом нужно разработать электронную таблицу и построить график функции.
Федеральное агентство воздушного транспорта
ФГОУ ВПО
«Санкт-Петербургский
государственный университет
КОНТРОЛЬНАЯ РАБОТА
ПО ДИСЦИПЛИНЕ «ИНФОРМАТИКА»
Выполнил:
студент 1 курса ЗФ
СПЕЦИАЛЬНОСТЬ ПМ
ШИФР ПМ-0912.1468
Жгулев А.М.
Санкт-Петербург
2013
КОНТРОЛЬНОЕ ЗАДАНИЕ №1
ЗАДАЧА №1
Для выполнения этого задания предлагаю
рассмотреть мою текущую
Основной производственной задачей у меня является контроль за операционными процессами, т.е. непосредственно контроль за качественной и своевременной обработкой грузов.
Выполнение этой производственной задачи достигается следующим образом:
а) Просмотр и анализ отчётов (по ключевым операционным показателям – KPI) поступающих по электронной почте из отдела контроля качества.
б) Создание (генерация) собственных отчётов при помощи программы Microsoft Access
в) Ведение различных баз данных в программе Microsoft Excel
г) Печать различных распоряжений
д) Отправление распоряжений и ответов на запросы по электронной почте
Являясь современным менеджером среднего звена, использую компьютер для следующих целей:
- работа с электронной почтой (Microsoft Outlook)
- набор или редактирование различных текстов (Microsoft Word)
- анализ и учёт статистических данных (Microsoft Excel)
- подготовка и просмотр
- сканирование бумажных
- просмотр медиа файлов (аудио, видео, фото)
- просмотр web сайтов (браузер Internet Explorer)
Предлагаю рассмотреть характеристики моего рабочего персонального компьютера, в таблице 1.1 и 1.2.
Таблица 1.1
№ п/п |
Аппаратная часть ПЭВМ |
Значение характеристики |
1 |
Монитор (тип монитора)
а) разрешающая способность
б) количество цветов |
LED монитор
1280 Х 800
True color 32 бита |
2 |
Микропроцессор
|
Intel celeron
32
2.20 ГигаГц |
3 |
Принтер
- формат бумаги
- разрешающая способность
- скорость печати
- количество цветов |
Лазерный
А4
600 x 600 т/д
50 стр./мин
1 |
4 |
Накопители информации
а) внешние:
- количество
- объём памяти
б) жёсткий диск
- количество
- объём памяти
в) CD-ROM |
Flash card
1
4 Гб
1
160 Гб
Да |
Таблица 1.2
№ п/п |
Программное обеспечение ПЭВМ |
Название программы |
1 |
Операционная система |
Windows 7 |
2 |
Текстовый редактор |
MS Word |
3 |
Графический редактор |
Adobe Reader |
4 |
Табличный процессор |
MS Eсxel |
5 |
Система управления базой данных |
1С Предприятие |
Указанные выше характеристики моего
персонального компьютера, значительно
превосходят минимальные
Таким образом можно сделать вывод, что указанный выше персональный компьютер своими техническими характеристиками вполне отвечает поставленной перед ним задаче.
КОНТРОЛЬНОЕ ЗАДАНИЕ №2
Задача №2.1
Основной задачей этого
Cсогласно моему учебному шифру мне выпала
следующая функция y(x)
Выполнение этой задачи можно разделить на несколько этапов.
А) Создание интерфейса
После запуска VB сразу создаём новый проект. Появляется Form1. Меняем свойства.
Создаём четыре текстовых поля и так же корректируем их свойства.
Создаём шесть надписей (меток) и так же корректируем их свойства.
Создаём три командные кнопки и также корректируем их свойства.
Корректируем место положения кнопок, меток, и текстовых окон.
Запускаем программу, проверяем правильность её выполнения.
Б) Написание программы (кода обработки) на кнопке “ОК”
Вводим в тело процедуры операторы.
Private Sub CmdOK_Click()
Dim A As Single
Dim W As Single
Const e = 1
A = Val(TxtA.Text)
W = Val(Txtw.Text)
Rem
If A < 0.1 Or A >= 1 Then
MsgBox "Введите правильное значение А"
ElseIf W < 1 Or W >= 10 Then
MsgBox " Введите правильное значение W"
Else
Rem
For x = -6 To 6 Step 0.01
y = A * (e ^ (Sin(W * x))) * Sin(x)
Rem
Txtx.Text = Txtx.Text + Format(x, "Scientific") + vbCrLf
Rem
Txty.Text = Txty.Text + CStr(y) + vbCrLf
Form2.Picture1.DrawWidth = 3
Form2.Picture1.PSet (x, y)
Next x
End If
End Sub
В) Создание Формы2. Написание программы (кода обработки) на кнопке “Graf”
Создаём новую форму (Form2) и корректируем её свойства.
Создаём графическое окно Picture1 и корректируем свойства.
Создаём код обработки на кнопке Graf и вводим в тело процедуры операторы.
Private Sub CmdGraf_Click()
Form2.Show
Form2.Picture1.Line (-4, 0)-(4, 0), vbRed
Form2.Picture1.Print "X"
Form2.Picture1.Line (0, -1)-(0, 1), vbRed
Form2.Picture1.Print "Y"
End Sub
Г) Создание Формы3. Написание программы (кода обработки) на кнопке “Figur”
Создаём новую форму (Form3) и корректируем её свойства.
Создаём графическое окно Picture1 и корректируем свойства.
Составляем программу
Создаём код обработки на кнопке Figur и вводим в тело процедуры операторы.
Private Sub CmdFig_Click()
Form3.Show
Form3.Picture1.BackColor = vbWhite
Form3.Picture1.Circle (0, 0), 1000, vbBlack
Form3.Picture1.Line (0, 0)-(-1500, -1000), vbRed
Form3.Picture1.Line (-1500, -1000)-(-3000, 0), vbRed
Form3.Picture1.Line (-3000, 0)-(-1500, 1000), vbRed
Form3.Picture1.Line (-1500, 1000)-(0, 0), vbRed
Form3.Picture1.Line (-2000, 1000)-(-2000, -1000), vbGreen
Form3.Picture1.Line (-2000, -1000)-(-2500, -1000), vbGreen
Form3.Picture1.Line (-2500, -1000)-(-2500, 1000), vbGreen
Form3.Picture1.Line (-2500, 1000)-(-2000, 1000), vbGreen
End Sub
Д) Сохранение программы. Запуск и тестирование.
Заключительным этапом написания программы является её проверка. Запускаем программу и проверяем её работоспособность.
Сначала вводим переменные и нажимаем кнопку ОК. Убеждаемся что значения X и Y отображаются.
Нажимаем на кнопку Graf и убеждаемся в построенном графике.
Нажимаем на кнопку Figur и убеждаемся в правильности отображённых фигур, согласно задания.
Сохраняем проект.
Задача №2.2
Для расчёта 30 значений F(x) при изменении
значения аргумента от начального значения
с заданным шагом нужно разработать
электронную таблицу и
Согласно учебному шифру мне выпала функция F(x) (
Создаём новую таблицу Excel.
В ячейку A3 вводим текст «y=((КОРЕНЬ(x))+(x^-3/2)/(1+
В ячейку А4 вводим текст «Исходные данные»
В ячейку А5 вводим текст «Начальное значение аргумента»
В ячейку А6 вводим текст «Приращение аргумента»
В ячейку Е5 вводим значение 0,3 (Начальное значение аргумента)
В ячейку Е6 вводим значение 0,5 (Приращение аргумента)
В ячейках А9 и В9 указываем название столбцов «Аргумент» и «Функция)
Копируем в ячейку A10 начальное значение аргумента из ячейки E5
Прописываем формулу =A10+$E$6 в ячейку А11
Протягиваем формулу от ячейки А11 до ячейки А31
Прописываем формулу =((КОРЕНЬ(A10))+(A10^-
Протягиваем формулу от ячейки B10 до ячейки В31
Выделяем полученные значения функции и с помощью мастера диаграмм создаём график.