В школьном учебнике математики правило деления обыкновенных дробей описано следующим образом: 1) числитель первой дроби умножить на знаменатель второй; 2) знаменатель первой дроби умножить на числитель второй; 3) записать дробь, числителем которой является результат выполнения пункта (1), а знаменателем – результат выполнения пункта (2).
|
| Option ExplicitSub Деление_дробей ()Dim a As Integer, b As Integer, c As Integer, d As IntegerDim m As Integer, n As Integera = Val(InputBox(" Введите числитель", " Первая дробь"))b = Val(InputBox(" Введите знаменатель", " Первая дробь"))c = Val(InputBox(" Введите числитель", " Вторая дробь"))d = Val(InputBox(" Введите знаменатель", " Вторая дробь"))m = a*dn = b*cMsgBox " Числитель: " & Str(m) & Chr(13) & " Знаменатель: " & Str(n),, " Результат деления" End Sub
|
В алгебраической форме это выглядит следующим образом:
Теперь построим линейный алгоритм деления дробей для компьютера. В этом алгоритме сохраним те же обозначения для переменных, которые использованы в записанной формуле. Исходными данными являются целочисленные переменные a, b, c, d. Результатом – так же целые величины m и n.
