Пример. Пусть математическая модель задачи определяется так:
z =arctg(x2); ввести значение y, если x £Ј 0
z=
+ sin2(x);
y =
0 , если х > 0
Входные данные: x, вещественного типа
Выходные: z,y – вещественного типа
Схема алгоритма:
Код программы.
Dim x As Single,z As Single, y As Single
x = Inputbox("Введите значение х")
If x<=0 Then
z=Atn(x^2)
y=Inputbox(“Введите значение Y)
Else
z=x^(1/5)+Sin(x)^2
y=0
End If
Print "z =" & Format(z,"0.00") & " y =" & Format(y,"0.00")
СТРУКТУРА ЦИКЛ
Цикл – это основная алгоритмическая структура, которая используется для организации циклических вычислительных процессов. Под циклическим вычислительным процессом понимается процесс, в котором производятся вычисления по одним и тем же формулам, но при различных значениях параметров. Число повторений определяется значением некоторого логического выражения, зависящего от управляющей переменной (параметра цикла).
ЦИКЛ С ПРЕДУСЛОВИЕМ.
Блок схема структуры Цикл с параметром с предусловием.
Да
Нет
ОПЕРАТОРЫ ЦИКЛА С ПРЕДУСЛОВИЕМ.
Оператор For … Next
Синтаксис оператора следующий:
For параметр цикла =Нач. значение To Конеч. значение [Step Шаг]
<Тело цикла>
Next параметр цикла
Оператор Do … Loop
1. Do While <выражение> 2. Do Until <выражение>
<операторы> <операторы>
Loop Loop
Параметр выражение представляет собой логическое условие, которое может быть истинным и ложным. Блок операторов, заключенный между ключевыми словами Do и Loop, является телом цикла.
Следует обратить внимание, что при использовании оператора Do … Loop перед записью оператора параметру цикла необходимо присвоить начальное значение, а после записи операторов, составляющих тело цикла, должен располагаться оператор, увеличивающий (уменьшающий) значение параметра цикла на величину шага. В операторе For … Next эти действия записываются в заголовке самого оператора.
Пример.
Постановка задачи.
Разработать информационную технологию, позволяющую вычислить значение функции y =br+cos x, при изменении значения f<=х<=p с шагом dх, где f = 4, p =11, dх =0,5.
Входные данные: r, b,f,p-вещественного типа.
Выходные данные: y- вещественного типа.
Математическая модель.
y =br+cos x, где f<=х<=p, x+x+dx
Схема алгоритма.
Коды программы этого примера с разными операторами цикла..
Private Sub Command1_Click()
Dim r As Single, b As Single, f As Single, p As Single, dx As Single
r = InputBox("Введите значение r ")
Print "r = " & Format(r, "0.00")
b = InputBox("Введите значение b")
Print "b = " & Format(b, "0.00")
f = InputBox("Введите значение f")
p = InputBox("Введите значение p")
dx = InputBox("Введите значение dx")
For x = f To p + dx / 2 Step dx
y = b * x + Cos(x)
Print "x = " & Format(x, "0.0##") & " y = " & Format(y, "0.000")
Next
End Sub
Примечание. если параметр цикла представлен вещественной переменной, то к нему рекомендуется добавить полшага изменения параметра цикла.
Private Sub Command1_Click()
Dim r As Single, b As Single, f As Single, p As Single, dx As Single
r = InputBox("Введите значение r")
Print "r = " & Format(r, "0.00")
b = InputBox("Введите значение b")
Print "b = " & Format(b, "0.00")
f = InputBox("Введите значение f")
dx = InputBox("Введите значение dx")
p = InputBox("Введите значение p")
x = f
Do While x <= p + dx / 2 'или Do Until x > p + dx/2
y = b * x + Cos(x)
Print "x = " & Format(x, "0.0##") & " y = " & Format(y, "0.000")
x = x + dx
Loop
End Sub
ЦИКЛ С ПОСТУСЛОВИЕМ
Блок-схема структуры Цикл с постусловием.
нет
Структуру Цикл с постусловием можно реализовать с помощью следующих операторов.
1. Do 2. Do
<операторы> <операторы>
Loop While условие Loop Until условие
Повторение цикла в конструкциях Do LoopWhile происходит до тех пор, пока условие остается истинным. Повторение цикла в конструкциях Do Loop Until происходит до тех пор, пока условие ложно.
Теоретический материал по выполнению лабораторных работ базируется на содержании учебника, имеющегося в электронном виде в библиотеке университета и в электронных образовательных ресурсах ФГБОУ ВО ПГУПС.
А. И. Дергачёв., Андреев В.П., Байдина Н.В., Костянко Н.Ф., Перепечёнов А.М.,[Электронный ресурс], Сборник учебно-методических материалов и контрольных решений для проведения занятий со студентами университета всех специальностей по дисциплине «Информатика»,СВИДЕТЕЛЬСТВО о государственной регистрации базы данных №2015620678., М.:заявка №2014621873, 2015.Сайт научно-технической библиотеки университета: http://library.pgups.ru/elib/multim/2015/inform_01.zip