ЗАДАНИЯ ДЛЯ КОНТРОЛЬНОЙ РАБОТЫ № 1
ПРОГРАММА КУРСА «ИНФОРМАТИКА»
ВЫПОЛНЕНИЕ И ОФОРМЛЕНИЕ КОНТРОЛЬНЫХ РАБОТ
1.В соответствии с программой курса предусматривается выполнение в первом семестре контрольной работы №1, во втором семестре – контрольной работы №2. 2.Вариант контрольной работы выбирается в соответствии с последними двумя цифрами номера зачетной книжки. 3.Выполненные контрольные работы оформляются в тетрадях или на формате А4 (дискеты с выполненными заданиями не принимаются). 4.При оформлении практической части контрольной работы указываются номер задачи, формулировка задачи и текст программы на языке программирования Visual Basic for Applications (VBA). 5.При выполнении теоретической части контрольной работы №2 необходимо привести формулировку вопроса и дать сжатый ответ на вопрос в объеме не более 3 страниц. При ответе можно использовать как базовую литературу (приведенную в данных методических указаниях), так и любую другую, включая информацию, взятую из Интернета. В конце ответа на теоретический вопрос необходимо привести список использованной литературы и сайтов, с которых была взята информация.
Образец титульного листа
Министерство образования РФ Московский государственный строительный университет Мытищинский филиал МГСУ
Контрольная работа № по информатике
Вариант №
Выполнил: Студент ФИО Шифр (по зачетной книжке)
Москва-2010
КОНТРОЛЬНАЯ РАБОТА № 1
Для выполнения контрольной работы необходимо освоить разделы алгоритмизации и программирования: линейный вычислительный процесс, разветвляющийся и циклический процессы, работа с одномерными массивами.
Образец выполнения контрольной работы № 1 Задача №1 Вычислить значение функции Y=F1+F2, где , . Значение аргумента x задать с клавиатуры. Значения задать в разделе констант. Значения A, B задать при помощи оператора присваивания. Решение
Option Explicit Sub Zadanie_1() ‘ Заголовок подпрограммы-процедуры Const Alfa = 0.5, Betta = 0.2 ‘ Описание констант Dim x as double, A as double, B as double ‘ Описание переменных Dim F1 as double, F2 as double, Y as double 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
Вычислить все значения функции при изменении аргумента x от –2 до 6 с шагом 0,5. Функции F1 и F2 взять из задания № 1.
Решение
Sub Zadanie_2() Const Alfa = 0.5, Betta = 0.2 Dim x as double, A as double, B as double Dim Y as double, 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 double, K as Integer Dim Sr as double, 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 задать с клавиатуры при помощи оператора присваивания. Значения a, b, g задать в разделе констант.
Задание № 2 Вычислить и напечатать все значения функции при изменении аргумента X от Хн до Хк с шагом dx. Функции f1, f2, f3, f4 взять из задания №1.
Задание № 3
Популярное: Генезис конфликтологии как науки в древней Греции: Для уяснения предыстории конфликтологии существенное значение имеет обращение к античной... Модели организации как закрытой, открытой, частично открытой системы: Закрытая система имеет жесткие фиксированные границы, ее действия относительно независимы... Личность ребенка как объект и субъект в образовательной технологии: В настоящее время в России идет становление новой системы образования, ориентированного на вхождение... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (291)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |