Автор: Пользователь скрыл имя, 10 Ноября 2012 в 19:24, контрольная работа
12.1 Линейный алгоритм: вычисление арифметического выражения
Задание. Вычислить значение функции при А, В и С – константах (задать значения самостоятельно) и произвольном x (ввести с клавиатуры).
Государственное образовательное учреждение
высшего профессионального образования
«Ростовский
государственный университет
Контрольная работа
по дисциплине «Информатика»
Вариант №12
Выполнил студент группы ГЗД – 001
Шифр 09-2164
Проверил доцент кафедры «Информатика» Хомич Б.М.
Ростов-на-Дону
2010
12.1 Линейный алгоритм: вычисление арифметического выражения
Задание. Вычислить значение функции при А, В и С – константах (задать значения самостоятельно) и произвольном x (ввести с клавиатуры).
В качестве исходных данных будем выбирать произвольные значения первого и второго числа и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 1.
Private Sub Command1_Click()
a = Val(Text1): c = Val(Text2): x = Val(Text3)
y = Sqr(Sin(x ^ 2 + a) ^ 2 + c ^ x)
Text4 = y
End Sub
Рис. 1. Экранная форма программы
12.2 Линейный алгоритм: вычисление по математическим и физическим формулам
Задание. Определить высоту треугольника, если его площадь равна S, а основание больше высоты на величину А.
В качестве исходных данных будем выбирать произвольные значения s и a и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 1.
Private Sub Command1_Click()
s = Val(Text1): a = Val(Text2):
d = Sqr(a ^ 2 / 4 + s * 2)
X1 = -a / 2 + d
Text4 = X1
End Sub
Рис. 2. Экранная форма программы
12.3 Разветвляющийся алгоритм: выбор по условию
Задание. Даны действительные числа А, В. Если они оба отрицательные, то заменить каждое из них его квадратом, иначе – положительные из них увеличить в два pаза.
3.1. Блок-схема
В качестве исходных данных будем выбирать произвольные целые числа a, b, и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 2.
Private Sub Command1_Click()
a = Val(Text1): b = Val(Text2):
If a < 0 And b < 0 Then
a = a ^ 2
b = b ^ 2
Else
If a > 0 Then a = a * 2
If b > 0 Then b = b * 2
End If
Text4 = a
Text3 = b
End Sub
Рис. 3. Экранная форма программы
12.4 Циклический алгоритм: цикл с параметром
Задание. Составить таблицу перевода дюймов в сантиметры для расстояний от 1 до 13 дюймов с шагом 1.
4.2. Исходные данные для отладки и тестирования программы
В качестве исходных данных ни чего не вводим, нажимаем вычислить и получаем таблицу. Эти данные можно просмотреть в рабочем окне программы на рис. 3
Private Sub Command1_Click()
r = 1
For i = 1 To 13
If i > 9 Then r = 0
d = i / 2.54
Label2.Caption = Label2.Caption + Str(i) + Space(r)
Label3.Caption = Label3.Caption + Str(d)
Next
End Sub
Рис. 4. Экранная форма программы
12.5 Циклический алгоритм: цикл с предусловием
Задание. Hайти пеpвый член последовательности ln(9n)/(n n), меньший 1, для n, изменяющегося следующим обpазом: n=1, 2, 3... .
В качестве исходных данных ни чего не вводим, нажимаем вычислить и получаем результат. Эти данные можно просмотреть в рабочем окне программы на рис. 3
Private Sub Command1_Click()
x = 0
i = 0
Do While x <= 1
i = i + 1
x = Log(9 * i) / i ^ 2
Loop
Text1 = x
End
Рис. 5. Экранная форма программы
12.6 Циклический алгоритм: цикл с постусловием
Задание. Для введенных с клавиатуры чисел найти сумму положительных, кратных 3. Пpи вводе отpицательного числа суммиpование пpекpатить.
В качестве исходных данных вводим числа по очереди, нажимаем ок и получаем результат. Эти данные можно просмотреть в рабочем окне программы на рис. 3
Private Sub Form_Load()
x = InputBox("введите x", "окно ввода данных")
y = 0
Do While x >= 0
k = x Mod 3
If k = 0 Then y = y + x
Res = MsgBox("y= " & y, , "результат")
x = InputBox("введите x", "окно ввода данных")
Loop
MsgBox ("введено отрицательное число")
End Sub
Рис. 6. Экранная форма программы
12.7 Одномерные массивы (векторы)
Задание. Вычислить последовательность N чисел Фибоначчи и записать ее в массив F0 =F1 =1; Fi+1 =Fi +Fi-1. Напечатать: а) полученный массив F; б) элементы массива, кратные 3.
7.1. Блок-схема
В качестве исходных данных будем выбирать количество элементов массива и проверим работу программы. Эти данные можно просмотреть в рабочем окне программы на рис. 4.
Dim V(100) As Integer
Private Sub Command1_Click()
n = Val(Text1)
V(0) = 0: V(1) = 1
Label2.Caption = Label2.Caption + Str(V(0))
Label2.Caption = Label2.Caption + Str(V(1))
For i = 2 To n
V(i) = V(i - 1) + V(i - 2)
Label2.Caption = Label2.Caption + Str(V(i))
Next
End Sub
Private Sub Command2_Click()
n = Val(Text1)
V(0) = 0: V(1) = 1
For i = 2 To n
V(i) = V(i - 1) + V(i - 2)
Next
For i = 0 To n
k = V(i) Mod 3
If k = 0 Then Label3.Caption = Label3.Caption + Str(V(i))
Next
End Sub
Рис. 7. Экранная форма программы
12.8 Вложенные циклы. Двумерные массивы (матрицы)
Задание. Вчислить значение функции
В качестве исходных данных вводим M и N нажимаем вычислить и получаем результат. Эти данные можно просмотреть в рабочем окне программы на рис. 3
Private Sub Command1_Click()
M = Val(Text1)
N = Val(Text2)
z = 0
For i = 1 To M
For j = 1 To N
z = z + 1 / (i + j ^ 2)
Next
Next
Text4 = z
End Sub
Рис. 8. Экранная форма программы
Список литературы