NewStudent01 » 24 апр 2018, 00:03
Здравствуйте, товарищи форумчане!
Задача следующего характера. Среди чисел 1; 1+1/2; 1+1/2+1/3 … найти первое число, которое больше данного числа А > 0.
Имеется код программы:
Код: Выделить всё
Private Sub CommandButton1_Click()
Dim A As Single, S As Single, y As Long, Z As Single
A = InputBox("Введите число:")
S = 1
y = 1
Do Until S > A
y = y + 1
Z = 1 / y
S = S + Z
Loop
MsgBox S
End Sub
Проверьте программу и блок-схему. Если есть ошибки, укажите их пожалуйста.
Спасибо!
[b]Здравствуйте, товарищи форумчане! [/b] ;)
Задача следующего характера. Среди чисел 1; 1+1/2; 1+1/2+1/3 … найти первое число, которое больше данного числа А > 0.
Имеется код программы:
[code]Private Sub CommandButton1_Click()
Dim A As Single, S As Single, y As Long, Z As Single
A = InputBox("Введите число:")
S = 1
y = 1
Do Until S > A
y = y + 1
Z = 1 / y
S = S + Z
Loop
MsgBox S
End Sub[/code]
Проверьте программу и блок-схему. Если есть ошибки, укажите их пожалуйста.
[b]Спасибо![/b]