Шагом 1 вниз в столбик,
В скобках после Cells идет номер
Строки, номер столбца
Private Sub CommandButton1_Click()
Dim x As Single, i As Single
i = 2
For x = 0 To 1 Step 0.1
y = Sin(x)
Worksheets("Лист1").Cells(i, 3) = y
i = i + 1
Next
End Sub
Циклическая, вычисляет t по
Фopмуле Do While Loop
Private Sub CommandButton1_Click()
x = 3
i = 1
Do While x <= 4
t = Sin(x) ^ 2 + Exp(3 - x)
Worksheets("Лист1").Cells(1, i) = t
x = x + 0.1
i = i + 1
Loop
End Sub
Цикл.прогр, заполн 1 ст-ц рез-тами
Выч по формуле через For Next
Private Sub CommandButton1_Click()
For i = 1 To 5
Z = Val(InputBox("Введите значение z"))
q = Sqr(Z ^ 2 + 5 * Z) * Log(Z + 0.33)
Worksheets("Лист1").Cells(i, 1) = q
Next
End Sub
Разветвляющаяся, выч w с использ-ем If
при x=0.5(0.5)4, n=7
w={Sqr(x*y), x<z^2; n*x+2, x>=z^2
Private Sub CommandButton1_Click()
n = Val(InputBox(“Введите значение n"))
For x = 0.5 To 4 Step 0.5
y = Exp(-2 * x) + 10
Z = Log(x) / (x + 1)
If x < Z ^ 2 Then w = Sqr(x * y) Else w = n * x + 2
MsgBox ("w=" & w)
Next
End Sub
Разветвл, выч у для вводимых с клавиат
знач n и x:
y={Sqr(x) при x>=0, n>=0; n*x+2 при x<0, n<0
Private Sub CommandButton1_Click()
x = Val(InputBox("Введите x"))
n = Val(InputBox("введите n"))
If x >= 0 And n >= 0 Then y = Sqr(x)
If x < 0 And n < 0 Then y = n * x + 2
MsgBox (y)
End Sub
Разветвл, с использ if:
Если x<5, то y=sin(x)^2, w=Cos(x)/Sin(x)
Если x>=5, то y=1-Sin(x), w=Atn(x)
x={9;0.1;-4;5;12}
Private Sub CommandButton1_Click()
For i = 1 To 5
x = Cells(i, 1)
If x > 5 Then
y = Sin(x) ^ 2
w = Cos(x) / Sin(x)
Else
y = 1 - Sin(x)
w = Atn(x)
End If
Cells(1, 2) = y
Cells(i, 3) = w
Next
End Sub
Выч суммы массива b={5.2;4.5;1;2.9;3},
Где значения b записаны в 1 ст-це
На раб листе, рез-тат поместить в В1.
Private Sub CommandButton1_Click()
s = 0
For i = 1 To 5
b = Cells(i, 1)
s = s + b
Next
Range("B1") = s
End Sub
Выч произвед эл-в массива
t={0.4;-1.5;2.8;3;0.9;7.3} и значения s
в соотв-вии с формулой:
Private Sub CommandButton1_Click()
p = 1
For k = 1 To 6
t = Cells(k, 3)
p = p * Sin(t)
Next
s = 2.4 + p
Range("D1") = s
|
|
End Sub
Опред максимальн эл-нт массива
d={12;0.4;30;-2;5;9.3}. Исх данные
Запис в 5 ст-це раб листа, рез-тат
поместить в F1 и F2:
Private Sub CommandButton1_Click()
Dim d As Single, max As Single,
n As Integer, i As Integer
max = Cells(1, 5): n = 1
For i = 2 To 6
d = Cells(i, 5)
If d > max Then max = d: n = i
Next
Range("F1") = max
Range("F2") = n
End Sub
Одномерн массив, опред макс эл-нт
Массива d={…} и номер этого эл-нта:
Private Sub CommandButton1_Click()
Dim d(1 To 6) As Single, max As Single,
n As Integer, i As Integer
For i = 1 To 6
d(i) = Val(InputBox("Введите эл-т м-ва d"))
Next
max = d(1): n = 1
For i = 1 To 6
If d(i) > max Then max = d(i): n = i
Next
MsgBox ("макс.знач.=" & max & "имеет
элемент массива с номером & n)
End Sub
Ф-ция пользователя:
-для расчета факториала ч-ла k
Function F(k)
Dim i As Integer
F=1
For i=2 To k
F=F*i
Next i
End Function
-для выч знач sinx,когда аргумент х
Предст в градусах:
вставка/модуль(insert/module)
Function MySin(x As Single) As Single
Const pi As Single=3/12159
Dim y As Single
Y=(x/180)*pi
MySin=Sin(y)
End Function
-для вычисл объёма цилиндра
Function v(h As Single, r As Single) As Single
V=3.14*h*r^2
End Function
Процедуры польз-ля:
-выч сумму 2вух различн произвед,
где f={5;-3;1;2}:
Sub product(k,z,p)
Dim i As Integer
P=1
For i=1 To k
P=p*z(i)
Next
End Sub
(produc t-имя процедуры; k -кол-во
Сомнож-лей в произв-нии;
z -имя массива,произв-е кот-го
перемнож-ся; p -параметр,в кот
после расч будет храниться
знач-е вычисл-го произвед)
1. Классифицировать ЭВМ можно:
· По произв-ти и быстродействию
· По назначению
· По уровню специализации
· По типу используемого процессора
· По особенностям архитектуры
· По размерам
В зав-ти от возм-тей комп раздел на:
1) суперкомпьютеры;
2) большие компьютеры;
3) маленькие компьютеры;
4) микрокомпьютеры;
|
|
5) специализированные компьютеры.
Суперком п("Эльбрус",
модели серии "Крей") - эти
многопроцессорные сист,кот
выполн миллиарды операций за сек.
Большие компьютеры (например,
модели "ЕС-1060", "ЕС-1061", "ЕС-1065",
а т-же машины серии "ІВМ-370") их
быстродействие - неск милл-в
операций за сек.
Малые комп (например,
модели "CM-С", "СМ-4" в
нашей стране и машины серии
"PDP" фирмы DEC в США)
Быстродействие - 100-500
тысяч операций за секунду.
Микрокомп (персональные
комп,портативн комп,
специализированные рабочие
станции) Ни быстродействием,
ни объемом памяти персональный
компьютер не уступает большому
или маленькому, наиболее
распространенным тип комп.
Специализир комп-ры (ком в
часах, фотоаппарате)-это составные
разных механизмов. В отличие
от универсальных компьютеров,
их используют для решения
отдельных задач. Их функц-ние
не требует постоянного вмеш-ва
человека, то есть определенный
период времени, они работают
автоматически, выполняя одну
и ту же функцию. Для выпол-ния
другой работы их надо
перепрограммировать.
Сервер - это мощный
комп или дорогая многопроц-ная
система большой произв-ти, кот
предоставляет многим польз-ям
доступ к оперативной памяти с
большим объемом мегабайт и
к дисковой памяти емкостью
сотни гигабайт.
Типы подпрогр:
-Function(произв действ,опред-ные
её прогр-м кодом, в рез-те чего
де-я возвращ 1 знач-е опред типа)
-Sub(возвращ необх колич-во знач-ний)