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

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

Читайте также:
  1. I. КУРСОВЫЕ РАБОТЫ
  2. I. ОБЩИЕ УКАЗАНИЯ К ВЫПОЛНЕНИЮ КУРСОВОЙ РАБОТЫ
  3. I. Ситуационные задачи и тестовые задания.
  4. II. ДИПЛОМНЫЕ РАБОТЫ
  5. II. МЕТОДИЧЕСКИЕ УКАЗАНИЯ ДЛЯ ВЫПОЛНЕНИЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ
  6. II. Расчетная часть задания
  7. II. ТРЕБОВАНИЯ К ОФОРМЛЕНИЮ КУРСОВОЙ РАБОТЫ
  8. III. Задания для самостоятельной работы по изучаемой теме.
  9. III. Задания для самостоятельной работы по изучаемой теме.
  10. III. Задания для самостоятельной работы по изучаемой теме.
  11. III. Задания для самостоятельной работы по изучаемой теме.
  12. III. Задания для самостоятельной работы по изучаемой теме.

 

Пример 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


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

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



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