Автор работы: Пользователь скрыл имя, 16 Января 2014 в 14:07, контрольная работа
История вычислений уходит глубокими корнями в даль веков так же, как и развитие человечества. Накопление запасов, делёж добычи, обмен -- все подобные действия связаны со счётом. Для подсчёта люди использовали собственные пальцы, камешки, палочки и узелки. Потребность в поиске решений всё более и более сложных и сложных задач и, как следствие, все более сложных и длительных вычислений, поставила человека перед необходимостью находить способы, изобретать приспособления, которые могли бы ему в этом помочь. Исторически сложилось так, что в разных странах возникли собственные денежные единицы, меры веса, длины, объёмов и расстояний. Для перевода из одной системы измерения в другую требовались вычисления, которые чаще всего могли производить специально обученные люди, которых иногда приглашали из других стран. Это естественно привело к созданию изобретений, помогающих счёту.
История развития ЭВМ……………………………………………………………….3
Задача. Найти координаты параболы y=ax2+bx+c…………………………………..8
Задача. Дан одномерный массив А размерности N. Найти количество
элементов больших заданного числа B и их произведение…….…………..………9
Список использованной литературы…………….…………………
End Sub.
3. Задача.
Решение:
Dim A ( ) as Integer
Dim N as Integer
Dim B as Integer
Dim i as Integer
Dim S as Integer
Dim K as Integer
N = Val (TextBox1)
B = Val (TextBox2)
Redim A (N)
For i = 1 To N
A ( i ) = InputBox ( "A ( " + Str (i) + " ) " )
Next i
S = 1
K = 0
For i = To N
IF A (i) > B Then
S = S* A (i)
K = K + 1
End IF
Next i
TextBox3 = Str (K)
TextBox4 = Str (S)
End Sub
Список использованной литературы.