otchyot_po_laboratornoy_4x

МИНОБРНАУКИ РФ
Федеральное Государственное бюджетное
учреждение высшего профессионального образования.
Кафедра: Программная инженерия
Лабораторная работа №4
Вариант №3
Выполнил студент 1 курса
ПИН-1206 Волнухин Виктор
Проверил: Мальков
Александр Анатольевич
Тверь 2012
Реализация «Циклические
вычислительные процессы» средствами Excel.
Постановка задачи.
Разработать алгоритм и по нему составить программу для вычисления
заданной величины, определив её зависимость от параметра. Из условий
задачи найти начальное и конечное значения параметра, а также шаг
изменения параметра.
Дано натуральное число N.
P
Вычислить произведение
2 4 6
2N
   ... 
3 5 7
2N  1
Реализация задачи
Объявление вещ: a, b, цел: i, n
ввод n
p=1
для i=1 до n
a= i*2
b=a+1
p=p*a/b
всё_для i
печать p
Реализация в Excel
Реализация в Visual Basic
InputBox:
Dim a, b, p As Single, i, n As Integer 'объявление переменных
n = CInt(InputBox("n=")) 'ввод n
p=1
For i = 1 To n Step 1 ' для i=1 до n
a=i*2
b=a+1
p = p * (a / b)
Next i ' всё_для i
MsgBox "p=" & CStr(p) 'вывод окна сообщения со значением p
Range:
Dim a, b, p As Single, i, n As Integer 'объявление переменных
n = Range("F11").Value 'считать значение n из ячейки F11
p=1
For i = 1 To n Step 1 ' для i=1 до n
a=i*2
b=a+1
p = p * (a / b)
Next i ' всё_для i
MsgBox "p=" & CStr(p) 'вывод окна сообщения со значением p
Cells:
Dim a, b, p As Single, i, n As Integer 'объявление переменных
n = Cells(11, 6).Value 'считать значение n из ячейки c координатами (11,6)
p=1
For i = 1 To n Step 1 ' для i=1 до n
a=i*2
b=a+1
p = p * (a / b)
Next i ' всё_для i
MsgBox "p=" & CStr(p) 'вывод окна сообщения со значением p