5 Операторы цикла Do и While
Задания 1:
Вариант 1:
Текст программы:
eps = 1e-11
n = 1
a = 1/n^2
s = a
t1 = Time
Do While Abs (a) > eps
n = n + 1
a = 1/n^2
s = s + a
Loop
t2 = Time
dt = FormatDateTime (t2-t1)
pi = 3.1415926535897932384626433832795
r_pi = (6*s)^(1/2)
MsgBox "Eps =" & eps & vblf & "Ист. Pi =" & pi _
& vblf & "Расч. Pi =" & r_pi & vblf & "n =" & n _
& vblf & "dt =" & dt, 4096, "Кужбалов А.А. и Ершков Д.В."
Пример работы программы:
Рисунок 5.1 – Результат выполнения программы
Вариант 2:
Текст программы:
eps = 1e-11
n = 1
a = 1/n^2
s = a
t1 = Time
Do until Abs (a) <= eps
n = n + 1
a = 1/n^2
s = s + a
Loop
t2 = Time
dt = FormatDateTime (t2-t1)
pi = 3.1415926535897932384626433832795
r_pi = (6*s)^(1/2)
MsgBox "Eps =" & eps & vblf & "Ист. Pi =" & pi _
& vblf & "Расч. Pi =" & r_pi & vblf& "n =" & n _
& vblf & "dt =" & dt, 4096, "Кужбалов А.А. и Ершков Д.В."
Пример работы программы:
Рисунок 5.2 – Результат выполнения программы
Вариант 3:
Текст программы:
eps = 1e-11
n = 1
a = 1/n^2
s = a
t1 = Time
Do
n = n + 1
a = 1/n^2
s = s + a
Loop While Abs (a) < eps
t2 = Time
dt = FormatDateTime (t2-t1)
pi = 3.1415926535897932384626433832795
r_pi = (6*s)^(1/2)
MsgBox "Eps =" & eps & vblf & "Ист. Pi =" & pi _
& vblf & "Расч. Pi =" & r_pi & vblf & "n =" & n _
& vblf & "dt =" & dt, 4096, "Кужбалов А.А. и Ершков Д.В."
Пример работы программы:
Рисунок 5.3 – Результат выполнения программы
Вариант 4:
Текст программы:
eps = 1e-11
n = 1
a = 1/n^2
s = a
t1 = Time
Do
n = n + 1
a = 1/n^2
s = s + a
Loop until Abs (a) > eps
t2 = Time
dt = FormatDateTime (t2-t1)
pi = 3.1415926535897932384626433832795
r_pi = (6*s)^(1/2)
MsgBox "Eps =" & eps & vblf & "Ист. Pi =" & pi _
& vblf & "Расч. Pi =" & r_pi & vblf& "n =" & n _
& vblf & "dt =" & dt, 4096, "Кужбалов А.А. и Ершков Д.В."
Пример работы программы:
Рисунок 5.4 – Результат выполнения программы
Вариант 5:
Текст программы:
eps = 1e-17
n = 1
a = 1/n^2
s = a
t1 = Time
While Abs (a) > eps
n = n + 1
a = 1/n^2
s = s + a
Wend
t2 = Time
dt = FormatDateTime (t2-t1)
pi = 3.1415926535897932384626433832795
r_pi = (6*s)^(1/2)
MsgBox "Eps =" & eps & vblf & "Ист. Pi =" & pi _
& vblf & "Расч. Pi =" & r_pi & vblf & "n =" & n _
& vblf & "dt =" & dt, 4096, "Кужбалов А.А. и Ершков Д.В."
Пример работы программы:
Рисунок 5.5 – Результат выполнения программы
6 Операторы цикла For и For Each [1, с.144]
Задания :
Текст программы:
n = 17
Redim x(n), y(n), z(n)
Randomize
For i = 1 to n
x(i) = 10 - 20*Rnd
y(i) = 10 - 20*Rnd
Next
For i= 1 to n
z(i) = (n - i) * x(i) / y(i)
Next
ms = " x y z" & vblf
ms = ms & "_______________________________" & vblf
For i = 1 to n
ms = ms & x(i) & " " & y(i) & " " & z(i) & vblf
Next
MsgBox ms, 4096, "Кужбалов и Ершков"
Пример работы программы:
Рисунок 6.1 – Результат выполнения программы