Методика выполнения задания
Заранее (до выполнения лабораторной работы)
1. Изучить: - возможности языка программирования для реализации условной передачи управления. 2. Разработать алгоритм решения в соответствии с заданием. 3. Составить программу решения задач. 4. Подготовить тестовые варианты исходных данных и вычислить для них вручную или с помощью микрокалькулятора значения вычисляемых в программе величин.
Пример выполнения задания
Заданы формулы: Требуется вычислить S при a=1, b=6, t=0;1;2
Схема алгоритма вычисления b и z:
Блок 2, 4,6 осуществляют проверку условия at меньше, равно или больше единицы – и в зависимости от результатов сравнения направляют вычисления по одной из ветвей – 3, 5 или 7. Блок 8 выводит на печать полученное значение функции S совместно с веденными исходными данными. Программа, реализующая приведенный алгоритм, имеет вид: Sub RazvetvlPr() A=Val(IприtBox(“ВводА”)) В=Val(IприtBox(“ВводВ”)) Т=Val(IприtBox(“ВводТ”)) If A*T<1 THEN S=A*T+B ElseIf A*T=1 THEN S=cos(A*T) Else S=EXP(-A*T)* cos(A*T) EndIf MsgBox “A=” & Str(A) & “B=” & Str(B) MsgBox “T=” & Str(T) Msg “S=” & Str(S) End Sub
Содержание отчета. Цель работы. Краткие теоретические сведения. Задание к работе Схема алгоритма Текст процедуры на VBA с пояснениями. Анализ результатов. Выводы.
Библиографический список 1. Р.Персон. Microsoft Exсel 97 в подлиннике: В 2т. – BHV – Санкт-Петербург. 1998. Том 2 – 640с. 2. Васильев А., Андреев А. VBA в Office 2000: учебный курс. – СПб.: Питер, 2001. – 432 с.: ил.
Лабораторная работа № 6. Программирование алгоритмов циклической структуры 6.1 Цель работы: изучение методов алгоритмизации и программирования алгоритмов циклической структуры.
Теоретические сведения. В данной лабораторной работе изучаются вопросы организации циклов с заданным числом повторений. Для этой цели удобно использовать операторы циклов FOR и NEXT. Формат оператора FOR: FOR i =a1 TO a2 [STEP a3], где I – управляющая переменная, параметр цикла; a1, a2 – начальное и конечное значение переменной (любые арифметические выражения); a3 – приращение ее, (шаг изменения). По умолчанию a3 = i. Операторы FOR и NEXT используются только совместно: оператор FOR определяет начало цикла и проверку условия выхода из цикла, когда параметр цикла превысит свое значение, а оператор NEXT – его конец. Формат оператора NEXT: NEXT i Выход из цикла можно осуществить двумя способами: 1. естественным, когда цикл выполняется заданное число раз, т.е. при проверке обнаруживается, что параметр цикла превысил конечное значение (в этом случае оператор не сохраняет конечного значения); 2. с любого оператора внутри цикла, не дожидаясь естественного его окончания. Это можно сделать с помощью управляющих операторов GOTO или EXIT.
Задание к работе. Вычислить таблицу значений функции для значений х в интервале от хн до хк с шагом ∆х. Варианты заданий приведены в таблице 6.1. организовать вывод значения аргумента и вычисленного значения функции в виде таблицы.
Таблица 6.1. Таблица функции у(х).
Методика выполнения задания Заранее (до выполнения лабораторной работы)
Изучить: 1. возможности языка программирования для реализации: - вычислительных процессов циклической структуры с известным числом повторений в цикле; - приема программирования – табулирования функции от одного аргумента (вычисление значений функции при изменении аргумента в заданном диапазоне с шагом ∆х). 2. Разработать алгоритм табулирования функции. 3. Составить программу табулирования функции. 4. Выполнить на ПЭВМ разработанную программу.
Пример выполнения задания Необходимо вычислить при изменении х в промежутке от хн=0,6 до хк=0,92 с шагом ∆х=0,05 при а=2. Блок схема алгоритма
Блок 3 – блок модификации. Вначале х присваивается х=хн, вычисляется у(хн), печатается х=0,6 и у(0,6), затем возврат к блоку 3, х присваивается значение х=х+∆х, т.е. х=0,6+0,05=0,65 и вычисляется у(0,65), и т.д., до тех пор пока х не превысит хк. Sub Tabul() ‘Табулирование ‘функции A=Val(IприtBox(“ВводА”)) XN=Val(IприtBox(“ВводXN”)) XK=Val(IприtBox(“ВводXK”)) DX=Val(IприtBox(“ВводDX”)) MsgBox “A=” & Str(A) & “XN=” & Str(XN) MsgBox “XK=” & Str(XK) & “DX=” & Str(DX) For X=XN To XK Step DX Y1=EXP(A*X) Y=(Y1+A^X)/SQR(1+Y1) MsgBox “X=” & Str(X) & “ Y=” & Str(Y) Next X End Sub
Содержание отчета. Цель работы. Краткие теоретические сведения. Задание к работе Схема алгоритма Текст процедуры на VBA с пояснениями. Анализ результатов. Выводы.
Библиографический список 1. Р.Персон. Microsoft Exсel 97 в подлиннике: В 2т. – BHV – Санкт-Петербург. 1998. Том 2 – 640с. 2. 2. Васильев А., Андреев А. VBA в Office 2000: учебный курс. – СПб.: Питер, 2001. – 432 с.: ил.
Воспользуйтесь поиском по сайту: ©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...
|