Разработать программу, которая вводит 2 натуральных числа, числитель и знаменатель дроби - VB

Узнай цену своей работы

Формулировка задачи:

Разработать программу, которая вводит 2 натуральных числа, числитель и знаменатель дроби, а затем сокращает дробь и выводит новые значения числителя и знаменателя. Программа, естественно, должна быть защищена от дурака.

Решение задачи: «Разработать программу, которая вводит 2 натуральных числа, числитель и знаменатель дроби»

textual
Листинг программы
  1. Function nod(ByVal a, ByVal b) As Long
  2.   While a <> 0 And b <> 0
  3.     If a >= b Then a = a Mod b Else b = b Mod a
  4.   Wend
  5.   nod = a + b
  6. End Function
  7.  
  8. Sub main()
  9. a = Val(InputBox("A=", "", 6))
  10. b = Val(InputBox("B=", "", 8))
  11. If a <= 0 Or b <= 0 Then
  12.   MsgBox "сам дурак"
  13. Else
  14.   MsgBox a & "/" & b & "=" & a / nod(a, b) & "/" & b / nod(a, b)
  15. End If
  16. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.583 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы