Мы поможем в написании ваших работ!



ЗНАЕТЕ ЛИ ВЫ?

Лабораторная работа № 6. Программирование алгоритмов циклической структуры

Поиск

6.1 Цель работы: изучение методов алгоритмизации и программирования алгоритмов циклической структуры.

Теоретические сведения.

 

В данной лабораторной работе изучаются вопросы организации циклов с заданным числом повторений. Для этой цели удобно использовать операторы циклов FOR и NEXT.

Формат оператора FOR:

FOR i =a1 TO a2 [STEP a3],

где I – управляющая переменная, параметр цикла;

a1, a2 – начальное и конечное значение переменной (любые арифметические выражения); a3 – приращение ее (шаг изменения). По умолчанию a3 = 1.

Операторы FOR и NEXT используются только совместно: оператор FOR определяет начало цикла и проверку условия выхода из цикла, когда параметр цикла превысит свое значение, а оператор NEXT – его конец.

Формат оператора NEXT:

NEXT i

Выход из цикла можно осуществить двумя способами:

1. естественным, когда цикл выполняется заданное число раз, т.е. при проверке обнаруживается, что параметр цикла превысил конечное значение (в этом случае оператор не сохраняет конечного значения);

2. с любого оператора внутри цикла, не дожидаясь естественного его окончания. Это можно сделать с помощью управляющих операторов GOTO или EXIT.

 

Задание к работе.

Вычислить таблицу значений функции для значений х в интервале от хн до хк с шагом ∆х. Варианты заданий приведены в таблице 6.1. организовать вывод значения аргумента и вычисленного значения функции в виде таблицы.

 

Таблица 6.1. Таблица функции у(х).

 

Варианты задания Расчетные формулы Исходные данные
а b хн хк ∆х
  y=arctg bx/(1+sin2x) - 0,75 1,35 6,5 0,8
  19,6 7,6 14,6 34,8  
  1,38 -1,26      
  - 1,68 1,2 2,4 0,2
  0,36 5,5      
  0,9 1,85   1,2 0,15
  1,24 0,67 10,2 12,4 0,45
  2,8 0,45     4,5
  20,2 7,65 3,5   0,1
  4,6 2,5 0,75 1,8 0,3
  0,55 0,78 4,2 5,8 0,25
  7,83 0,3     0,35
  0,28 1,35 1,2 7,5 0,5
  0,9 0,66 2,3 8,9 1,3
  0,85 - 17,2 24,6  
  1,16 - 0,25 1,28 0,33
  0,4 10,8 0,84 1,25 0,15
  1,28 0,03 12,6 34,9 7,6
  0,25 0,68 11,6 15,8 0,6
  1,6 1,24 0,2 1,4 0,35
  1,8 0,34 6,44 9,1 0,25
  0,44 2,28 6,5 7,3 0,12
  3,2 0,45 0,6 1,5 0,2
  17,5 10,45 1,9 3,8 0,3
  8,24 - 14,9 24,8 1,5

 

6.4 Методика выполнения задания

Заранее, до выполнения лабораторной работы)

 

1. Изучить возможности языка программирования для реализации:

- вычислительных процессов циклической структуры с известным числом повторений в цикле;

- приема программирования – табулирования функции от одного аргумента (вычисление значений функции при изменении аргумента в заданном диапазоне с шагом ∆х).

2. Разработать алгоритм табулирования функции.

3. Составить программу табулирования функции.

4. Выполнить на ПЭВМ разработанную программу.

 

6.5 Пример выполнения задания

Необходимо вычислить при изменении х в промежутке от хн=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(InputBox(“ВводА”)) ‘1) Ввод А, XN, XK, DX

XN=Val(InputBox(“ВводXN”))

XK=Val(InputBox(“ВводXK”))

DX=Val(InputBox(“ВводDX”))

MsgBox “A=” & Str(A) & “XN=” & Str(XN) ‘2) Вывод А, XN, XK, DX

MsgBox “XK=” & Str(XK) & “DX=” & Str(DX)

For X=XN To XK Step DX ‘3)Х= XN, XK, DX

Y1=EXP(A*X) ‘4) Y=F(X)

Y=(Y1+A^X)/SQR(1+Y1)

MsgBox “X=” & Str(X) & “ Y=” & Str(Y) ‘5)Вывод Х, Y

Next X

End Sub

 

Содержание отчета.

Цель работы.

Краткие теоретические сведения.

Задание к работе

Схема алгоритма

Текст процедуры на VBA с пояснениями.

Анализ результатов. Выводы.

 

Библиографический список

1. Р.Персон. Microsoft Exсel 97 в подлиннике: В 2т. – BHV – Санкт-Петербург. 1998. Том 2 – 640с.

2. 2. Васильев А., Андреев А. VBA в Office 2000: учебный курс. – СПб.: Питер, 2001. – 432 с.: ил.

 

 




Поделиться:


Последнее изменение этой страницы: 2016-12-17; просмотров: 758; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.135.214.175 (0.008 с.)