АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

End Sub. Результат работы программного кода вычисления суммы показан на рисунке 13

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

 

Рис. 13. Результат работы программного кода

Пример 2. Вычислить произведение

.

Визуальное представление алгоритма вычисления произведения представлено в виде блок-схемы на рисунке 14.

 

 

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

 

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

REM вычисление произведения

Z=1 '‑‑-начальное значение произведения

FOR I=1 TO 10

Z=Z*I/(I+1)

NEXT I

PRINT USING “Произведение равно ##.####”; Z

END

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

Произведение равно 0.0909

 

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

Public Sub Произведение()

Dim z As Single

Dim i As Integer

z = 1 ' -начальное значение произведения

For i = 1 To 10

z = z * i / (i + 1)

Next i

MsgBox "Произведение = " & z


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 |

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



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.002 сек.)