 |
 
v.5.2011.12.30 
|
Хитрый стрелок экранов, Добавить функцию? Без проблем! ;-) |
|
Visual Basic 5.0/6.0 - Простые математические операцииВсе примеры / Числа, математика, финансы / Простые математические операцииАлгоритм Евклида
Автор: Петр (Skript) Пономарев | добавлено: 11.12.2011, 03:36 | просмотров: 4858 (1+) | комментариев: 0 | рейтинг:
Программа вычисляет дискриминант и дроби.
 x8
КодDim n As Double
Dim m As Double
Private Sub Command1_Click()
m = InputBox("Введите значение первого числа")
n = InputBox("Введите значение второго числа")
While (m <> 0) And (n <> 0)
If m > n Then
m = m - n
End If
n = n - m
Wend
Print m
End Sub
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации  .Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
|
|
![[at]](/Content/Themes/Native5x/Images/a.gif){kind=small}
kbyte.ru