Министерство образования РФ

Московский государственный строительный университет

Мытищинский филиал МГСУ

Контрольная работа № 1

по информатике

Вариант №67

Выполнил: Студент ФИО

Шифр (по зачетной книжке)

Москва-2013

Задание №1

Вычислить и напечатать значение функции Y = f1+f2+f3+f4. Значение аргумента x задать с клавиатуры. Значения А, В, С, D задать с клавиатуры при помощи оператора присваивания. Значения , ,  задать в разделе констант.

N	f1	f3
7

N	f2	f4
6

Решение

Option Explicit

Dim x as double, A as double, B as double, С as double, Y as double

‘ Описание переменных

Dim F1 as double, F2 as double, F3 as double, F4 as double

Sub Zadanie_1() ‘ Заголовок подпрограммы-процедуры

Const Alfa = 0.5, Betta = 0.2 ‘ Описание констант

A = 3.4 ‘ Присвоение значений

B = 12.6 C = 1

x = Val(InputBox(“Введите x”)) ‘ Ввод x с клавиатуры

F1 =3*(x^(2* Alfa))+cos(Betta *x) ‘ Вычисление функции F1

F2 =1.3+2*Exp(Abs(Betta*x+C)) ‘ Вычисление функции F2

F3 =Log(x)/Log(A)-1/(x^2) ‘ Вычисление функции F3

F4 =Sqr(A*x+B*(x^2))/Alfa ‘ Вычисление функции F4

Y = F1 + F2 + F3 + F4

MsgBox(“F1=” & F1 & “ F2=” & F2) ‘ Вывод результатов в окне

MsgBox(“F3=” & F3 & “ F4=” & F4) ‘ Вывод результатов в окне

Msgbox(“Y=” & Y)

End Sub ‘ Конец подпрограммы

Задание № 2

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

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

N	f1	f3
7

N	f2	f4
6

N	Условие _1	Условие _2	Условие_ 3	Условие _4
7	x < 0	Нет	x > 5	0  x  5

N	Начальное значение аргумента Хн	Конечное значение аргумента Хк	Шаг изменения аргумента dx
6	-5	5	0,5

Dim x as double, A as double, B as double, С as double, Y as double

‘ Описание переменных

Dim F1 as double, F2 as double, F3 as double, F4 as double

Sub Zadanie_2()

Const Alfa = 0.5, Betta = 0.2 ‘ Описание констант

A = 3.4 ‘ Присвоение значений

B = 12.6

Cells(1,1) = ”X” ‘ Вывод в ячейке A1 буквы X

Cells(1,2) = “Y” ‘ Вывод в ячейке B1 буквы Y

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

For x=-5 To 5 Step 0.5 ‘ Цикл с параметром для изменения x

If x<0 Then Y =3*(x^(2* Alfa))+cos(Betta *x)

If x>5 Then Y = Log(x)/Log(A)-1/(x^2)

If (x>=0) And (x<=5) Then Y = Sqr(A*x+B*(x^2))/Alfa

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

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

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

Next x

End Sub

Задание № 3

7	Определить произведение и количество всех отрицательных элементов
6	Для четных элементов, стоящих на нечетных местах, в одномерном массиве произвольной длины

Dim A(100) as Integer, I as Integer, S as double, K as Integer

Sub Zadanie_3()

Const N=10

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

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 ‘ Начальные значения результатов

For I = 1 To 10 Step 2

If ( A(I) Mod 2 = 0) And (A(I) < 0) Then ‘ Выбор элементов

S = S + A(I) ‘ Поиск суммы

K = K + 1 ‘ Поиск количества

End If ‘ Конец условного оператора

Next I

Cells(4,1) = “S =” ‘ Вывод результатов

Cells(4,2) = S

Cells(5,1) = “K =”

Cells(5,2) = K

End Sub