Материал: 398
|
|
|
Экономика и управление на предприятии |
|
ЭУС(СП) |
060800 |
(строительство) – обучение по сокращенной |
|
|
|
программе |
|
1 |
2 |
3 |
АДМ |
АД |
291000 |
Автомобильные дороги и аэродромы |
АД(СП) |
291000 |
Автомобильные дороги и аэродромы – |
|
|
обучение по сокращенной программе |
||
|
|
|
|
ПРОГРАММА КУРСА «ИНФОРМАТИКА» |
|
|
№ |
Содержание раздела |
раздела |
|
1 |
Информация, процессы сбора, передачи, обработки и накопления |
|
информации, технические средства и программные средства реализации |
|
информационных процессов |
2 |
Модели решения функциональных и вычислительных задач, |
|
алгоритмизация, программирование: |
|
подготовка, редактирование и оформление текстовых документов |
|
в Microsoft Word; |
|
подготовка, редактирование и оформление документов в Microsoft |
|
Excel; |
|
программирование на языке Visual Basic for Applications: |
|
линейный процесс, разветвляющийся процесс, циклический |
|
процесс, работа с одномерными и двумерными массивами, |
|
объектно-ориентированное программирование, объекты и их |
|
свойства, методы |
3 |
Базы данных |
4 |
Локальные и глобальные сети ЭВМ. Интернет |
5 |
Основы защиты информации и сведений, составляющих |
|
государственную тайну, методы защиты информации |
ВЫПОЛНЕНИЕ И ОФОРМЛЕНИЕ КОНТРОЛЬНЫХ РАБОТ
1.В соответствии с программой курса предусматривается выполнение в первом семестре контрольной работы №1, во втором семестре – контрольной работы №2.
2.Вариант контрольной работы выбирается в соответствии с последними двумя цифрами номера зачетной книжки.
3.Выполненные контрольные работы оформляются в тетрадях или на формате А4 (дискеты с выполненными заданиями не принимаются).
4.При оформлении практической части контрольной работы указываются номер задачи, формулировка задачи и текст программы на языке программирования Visual Basic for Applications (VBA).
5.При выполнении теоретической части контрольной работы №2 необходимо привести формулировку вопроса и дать сжатый ответ на
вопрос в объеме не более 3 страниц. При ответе можно использовать как базовую литературу (приведенную в данных методических указаниях), так и любую другую, включая информацию, взятую из Интернета. В конце ответа на теоретический вопрос необходимо привести список использованной литературы и сайтов, с которых была взята информация.
Образец титульного листа
Министерство образования РФ Сибирская государственная автомобильно-дорожная академия
(СибАДИ)
Контрольная работа № по информатике
Вариант №
Выполнил: Студент ФИО Шифр Домашний адрес
Омск – 2003
КОНТРОЛЬНАЯ РАБОТА № 1
Для выполнения контрольной работы необходимо освоить разделы алгоритмизации и программирования: линейный вычислительный процесс, разветвляющийся и циклический процессы, работа с одномерными массивами.
Образец выполнения контрольной работы № 1
ЗАДАЧА №1
B
Вычислить значение функции Y=F1+F2, где F1 α x2 ,
F2 α x cos(β A). Значение аргумента x задать с клавиатуры. Значения α,β задать в разделе констант. Значения A, B задать при помощи оператора присваивания.
Решение
Option Explicit |
|
|
|
Sub Zadanie_1() |
‘ Заголовок подпрограммы-процедуры |
||
Const Alfa = 0.5, Betta = 0.2 |
‘ Описание констант |
||
Dim x as Single, A as Single, B as Single |
‘ Описание переменных |
||
Dim F1 as Single, F2 as Single, Y as Single |
|
|
|
A = 3.4 |
‘ Присвоение значений |
|
|
B = 12.6 |
|
|
|
x = Val(InputBox(“Введите x”)) |
‘ Ввод x |
с клавиатуры |
|
F1 = Abs(Alfa+x^2)^B |
|
‘ Вычисление функции |
|
F2 = Exp(Alfa+x)*Cos(Betta-A) |
|
|
|
Y = F1 + F2 |
|
|
|
MsgBox(“F1=” & F1 & “ F2=” & F2) |
‘ Вывод результатов в окне |
||
Msgbox(“Y=” & Y) |
|
|
|
End Sub |
|
‘ Конец подпрограммы |
|
|
ЗАДАЧА №2 |
|
|
Вычислить все значения функции Y |
F1, если |
0 x 2; |
|
F2, если |
x 2 |
||
при изменении аргумента x от –2 до 6 с шагом 0,5. Функции F1 и F2 взять из задания № 1.
Решение
Sub Zadanie_2()
Const Alfa = 0.5, Betta = 0.2
Dim x as Single, A as Single, B as Single
Dim Y as Single, I as Integer |
|
A = 3.4 |
|
B = 12.6 |
|
Cells(1,1) = ”X” |
‘ Вывод в ячейке A1 буквы X |
Cells(1,2) = “Y” |
‘ Вывод в ячейке B1 буквы Y |
I=2 |
‘ Номер строки для вывода результатов |
For x=-2 To 6 Step 0.5 |
‘ Цикл с параметром для изменения x |
If (x>=0) And (x<=2) Then Y = Abs(Alfa+x^2)^B ‘ Проверка условия If x>2 Then Y = Exp(Alfa+x)*Cos(Betta-A)
Cells(I,1) = x |
‘ Вывод значения x в ячейке AI |
Cells(I,2) = Y |
‘ Вывод значения Y в ячейке BI |
I = I + 1 |
‘ Номер строки - следующий |
Next x
End Sub
ЗАДАЧА №3
В одномерном массиве произвольной длины вычислить среднее арифметическое ненулевых элементов и максимальное значение среди четных элементов.
Решение
Sub Zadanie_3()
Const N=10
Dim A(N) as Integer, I as Integer, S as Single, K as Integer
Dim Sr as Single, Max as Integer, Imax as Integer
WorkSheets(“Лист2”).Select |
‘ Выбор рабочего листа Лист2 |
Cells(1,1) = “Массив А” |
|
Randomize |
‘ Генератор случайных чисел |
For I = 1 To N |
|
A(I) = Int( Rnd*20 – 10) |
‘ Формир-е случ.числа от –10 до 10 |
Cells(2,I) = A(I) |
‘ Вывод массива во вторую строку |
Next I |
|
S = 0 : K = 0 : Max = -32000 |
‘ Начальные значения результатов |
For I = 1 To 10 |
|
If A(I) <> 0 Then |
‘ Выбор элементов, не равных 0 |
S = S + A(I) |
‘ Поиск суммы |
K = K + 1 |
‘ Поиск количества |
End If |
‘ Конец условного оператора |
If (A(I) >=Max) And ( A(I) Mod 2 = 0) Then ‘ Поиск максимума |
|
Max = A(I) |
‘ среди четных и |
Imax = I |
‘ его места |
End If |
|
Next I |
|
If K <> 0 Then Sr = S/K Else Sr=0 |
‘ Поиск среднего арифм. |
Cells(4,1) = “S =” |
‘ Вывод результатов |
Cells(4,2) = S |
|
Cells(5,1) = “K =” |
|
Cells(5,2) = K |
|
Cells(6,1) = “Sr =” |
|
Cells(6,2) = Sr |
|
Cells(7,1) = “Max =” |
|
Cells(7,2) = Max |
|
Cells(8,1) = “Imax =” |
|
Cells(8,2) = Imax |
|
End Sub |
|
ЗАДАНИЯ ДЛЯ КОНТРОЛЬНОЙ РАБОТЫ № 1
Специальности А и АХ, А и АХ(СП), ОД, ОД(СП)
Задание №1
Вычислить и напечатать значение функции Y = f1+f2+f3+f4. Значение аргумента x задать с клавиатуры. Значения А, В, С, D задать с клавиатуры при помощи оператора присваивания. Значения , , задать в разделе констант.
Последняя цифра номера зачетной книжки
N |
|
|
|
|
f1 |
|
|
|
|
|
|
|
|
|
|
f3 |
||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
0 |
|
|
|
A Bx |
ln |
|
x 2C |
|
|
|||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|||||||||||||||||||||||||||||
|
|
sinγ |
|
Ax |
||||||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1 |
|
3Ax ln(Bx) |
|
|
|
|
|
|
|
5x α |
|
|
|
|
|
|
|
|
||||||||||||||||||
|
|
|
|
|
|
|
|
|
||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||||||
|
|
|
|
|
|
|
cosx |
|||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||||
2 |
|
x2 cos( |
C |
|
x) |
|
2 lg |
|
x 7A |
|
|
|||||||||||||||||||||||||
|
|
|
|
|||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||
|
|
4 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||
3 |
|
Bx sin(βin |
1,2 ln(Ax) 4cosx |
|||||||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
αx |
|
|
|
ln4 |
|
|
|
|
|
|
|
|
|
|
|
|||||||||||
|
|
cos |
|
|
|
|
|
1 x2 |
||||||||||||||||||||||||||||
4 |
|
Ax |
|
|||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
β |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
A B |
|||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||||||
|
|
|
|
|
|
8,5A |
|
ln |
|
|
|
|
|
Bx |
|
|||||||||||||||||||||
5 |
|
sin(αx) |
|
|
|
|
|
|
||||||||||||||||||||||||||||
|
Cx2 D |
|||||||||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||||||