Примеры выполнения задания B лабораторной работы

Пример 1. Вычислить сумму

.

Визуальное представление алгоритма накопления суммы дано на рисунке 10.

Рис. 10. Визуальное представление алгоритма накопления суммы

Программа на языке QBasic

REM вычисление суммы

Y=0 '‑‑-начальное значение суммы

FOR I=1 TO 10

Y=Y+1/I^2

NEXT I

PRINT USING “Сумма равна ##.## “; Y

END

Результаты выполнения программы

Сумма равна 1.55

Рассмотрим этот же пример разработки циклической программы вычисления суммы, основанный на методике компьютерного решения задач (процедурное программирование), реализуемый средствами языка VBA. Для вывода значения y используем функцию MsgBox().

Программный код

Public Sub Сумма()

Dim y As Single

Dim i As Integer

y = 0 ' начальное значение суммы

For i = 1 To 10

y = y + 1 / i ^ 2

Next i

MsgBox "Сумма = " & y

Поиск по сайту: