ЗАДАНИЯ ДЛЯ КОНТРОЛЬНОЙ РАБОТЫ № 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 задать в разделе констант.

Последняя цифра номера зачетной книжки

N	f1	f3








N	f1	f3

Предпоследняя цифра номера зачетной книжки

N	f2	f4

Задание № 2

Вычислить и напечатать все значения функции

при изменении аргумента X от Хн до Хк с шагом dx. Функции f1, f2, f3, f4 взять из задания №1.

Последняя цифра номера зачетной книжки

N	Условие _1	Условие _2	Условие_ 3	Условие _4
	x > 0	-3 £ x £ 0	Нет	x < -3
	Нет	x > 2	-1 £ x £ 2	x < -1
	x < -2	-2 £ x £ 3	х > 4	3 < х < 4
	-4 £ x £ -2	x > 4	2 £ x £ 4	-2 < x < 2
	x < 0	Нет	x > 4	0 £ x £ 3
	x > 4	0 £ x < 1	Нет	1 £ x £ 4
	x < 2	-2 £ x £ 2	Нет	x > 2
	x < 0	Нет	x > 5	0 £ x £ 5
	0 £ x £ 3	x < 0	x > 3	Нет
	x > 4	0 £ x £ 4	Нет	x < 0

Предпоследняя цифра номера зачетной книжки

N	Начальное значение аргумента Хн	Конечное значение аргумента Хк	Шаг изменения аргумента dx
	-5		0,5
	-2		0,4
	-4
	-8		0,4
	-3		0,3
			0,35
	-5		0,5
	-3		0,6
	-2		0,25
	-1		0,25

Задание № 3

Последняя цифра номера зачетной книжки

Начало текста

	Определить минимальный элемент среди элементов, попадающих в интервал (-6;6), и его индекс (номер)
	Заменить каждый элемент, больший 10, на 20
	Заменить каждое число, попадающее в отрезок [1;7], на число -2
	Определить максимальный элемент среди элементов, меньших –2, и его индекс (номер)
	Определить минимальный элемент среди положительных и его индекс (номер), уменьшить его на 3
	Уменьшить каждое число, большее 4,5, на 1
	Определить среднее арифметическое элементов, попавших в интервал (5;15)
	Определить произведение и количество всех отрицательных элементов
	Определить сумму и количество элементов, меньших -2
	Определить произведение и сумму элементов, больших 3

Предпоследняя цифра номера зачетной книжки

Окончание текста

	В первой половине одномерного массива произвольной длины
	Для элементов, кратных 4, в двух одномерных массивах разной длины
	Для нечетных элементов в двух одномерных массивах одинаковой длины
	Во второй половине двух одномерных массивов одинаковой длины
	Для элементов, стоящих на местах, кратных 4, одномерного массива произвольной длины
	Для четных элементов одномерного массива произвольной длины
	Для четных элементов, стоящих на нечетных местах, в одномерном массиве произвольной длины
	Для элементов, кратных 7, в двух одномерных массивах разной длины
	Для четных элементов первой половины массива произвольной длины
	Для элементов, стоящих на местах, не кратных 3, в двух одномерных массивах одинаковой длины

КОНТРОЛЬНАЯ РАБОТА № 2

Для выполнения теоретической части необходимо кратко изложить ответ на вопрос по своему варианту (последняя цифра номера зачетной книжки).

Для выполнения практической части контрольной работы следует освоить разделы алгоритмизации и программирования: работа с двумерными массивами (матрицами), использование подпрограмм.

В задачах при работе с матрицами используется понятие диагонали матрицы. Приведем схемы диагоналей квадратной матрицы A(N,N) и условия нахождения элементов в областях: на диагоналях, под ними и над ними.

ГлавнаяПобочная

Образец выполнения контрольной работы № 2

Задача №1

Пример 1

Найти минимальный среди нечетных элементов под главной диагональю матрицы произвольного размера одинаковой длины.

Решение

Sub Zadanie_1()

Const N=6 ‘ Размерность матрицы

Dim A(N,N) as Integer, I as Integer, J as Integer

Dim Min as Integer, Imin as Integer, Jmin as Integer

Randomize

For I=1 To N

For J=1 To N

A(I,J) = Int(Rnd*10 – 5) ‘ Формирование матрицы

Cells(I,J) = A(I,J) ‘ случайным образом

Next J,I

Min = 32000

For I=1 To N

For J=1 To N

If (A(I,J)<=Min) And (A(I,J) Mod 2<>0) And (I>J) Then ‘ Поиск

Min = A(I,J) ‘ минимума и его

Imin = I ‘ номера строки и

Jmin = J ‘ номера столбца

End If

Next J,I

Cells(N+2,1) = “Min =” ‘ Вывод результатов

Cells(N+2,2) = Min

Cells(N+3,1) = “IMin =”

Cells(N+3,2) = IMin

Cells(N+4,1) = “JMin =”

Cells(N+4,2) = JMin

End Sub

Пример 2

Определить количество нулевых элементов в каждом столбце матрицы произвольного размера.

Решение

Sub Zadanie_1a()

Const N=6, M=5 ‘ Размерность матрицы

Dim A(N,M) as Integer, I as Integer, J as Integer

Dim K as Integer

For I=1 To N

For J=1 To M

A(I,J) = Int(Rnd*10 – 5)

Cells(I,J) = A(I,J)

Next J,I

For J=1 To M ‘ Цикл по столбцам

K = 0 ‘ Начальное значение

For I=1 To N ‘ Цикл по строкам

If A(I,J) = 0 Then K = K+1 ‘ Поиск количества

Next I ‘ Конец цикла по строкам

Cells(N+2,J) = “K =” & K ‘ Вывод результата в J столбец

Next J ‘ Конец цикла по столбцам

End Sub

Задача №2

Сформировать матрицу B(8,9) следующего вида:

4 5 5 5 5 5 5 5 1

4 0 5 5 5 5 5 2 2

4 0 0 5 5 5 3 3 3

4 0 0 0 5 4 4 4 4

4 0 0 0 5 5 5 5 5

4 0 0 6 6 6 6 6 6

4 0 7 7 7 7 7 7 7

4 8 8 8 8 8 8 8 8

Решение

Sub Zadanie_2()

Const N = 8, M = 9

Dim B(8,9) as Integer, I as Integer, J as Integer

WorkSheets(“Лист2”).Select

For I=1 To N

For J=1 To M

If I+J>M+1 Then B(I,J) = I ‘ Область под побочной диагональю

If (I<J) And (I+J < M+1) Then B(I,J) = 5 ‘ Верхний треугольник – цифра 5

If J = 1 Then B(I,J) = 4 ‘ Первый столбец – цифра 4

Cells(I,J) = B(I,J)

Next J,I

End Sub

Задача №3

Вычислить все значения функции на промежутке от –3 до 5 с шагом h=0,3 с использованием подпрограммы.

Решение

Function f(x as Single) as Single ‘ Подпрограмма-функция

f = (Sin(x+2))^2/(x-6) ‘ вычисления функции

End Function

Sub Zadanie_3()

Dim x as Single, Y as Single

WorkSheets(“Лист3”).Select ‘ Выбор 3-го листа

Cells(1,1) = “X” ‘ Печать заголовков

Cells(1,2) = “Y” ‘ в первой строке

I = 2 ‘ Номер строки для вывода –2

For x = -3 To 5 Step 0.3

Y = f(x) ‘ Вызов функции

Cells(I,1) = x ‘ Вывод значения x

Cells(I,2) = Y ‘ Вывод значения Y

I = I + 1 ‘ Номер строки - следующий

Next x

End Sub