тема: деление двоичной системы счисления
нужно решить:
1) 1100 : 11101 =
2) 10011111 : 10101 =
3) 101010001010010 : 1010110 =
мы решаем в столбик, покажите само решение , а не только ответ
295
437
Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! function gcd(a,b: integer): integer; // нод begin while b< > 0 do begin a: =a mod b; swap(a,b) end; result: =a end; procedure redfrac(var a,b: integer); // сокращение дроби begin var (sgna,sgnb): =(sign(a),sign(b)); // мы должны учитывать знак! (a,b): =(abs(a),abs(b)); var d: =gcd(a,b); a: =(a div d)*sgna; b: =(b div d)*sgnb end; begin var (a,b): =readinteger2('введите числитель и знаменатель 1-й дроби: '); var (c,d): =readinteger2('введите числитель и знаменатель 2-й дроби: '); (a,b): =(a*c,b*d); redfrac(a,b); writeln('результат умножения: ',a,' / ',b) end. пример введите числитель и знаменатель 1-й дроби: 32 1024 введите числитель и знаменатель 2-й дроби: 60 300 результат умножения: 1 / 160 в качестве бонуса - решение на базе входящей в состав pascalabc.net библиотеки численных методов uses numlibabc; begin var (a,b): =readinteger2('введите числитель и знаменатель 1-й дроби: '); var (c,d): =readinteger2('введите числитель и знаменатель 2-й дроби: '); writeln('результат умножения: ',frc(a,b)*frc(c,d)) end.
Популярно: Информатика
-
hoper12302.05.2021 14:45
-
Жансулу91919103.07.2022 22:54
-
ilia20057512.02.2021 16:25
-
zhanik201720.05.2020 03:07
-
zooz7654Кристина13.05.2021 06:48
-
Sudzuky29.12.2022 23:38
-
aruzhan7klass05.10.2020 22:03
-
rezkova28.02.2023 16:35
-
ibufiz1826.07.2020 22:32
-
Ромашка24252625.06.2021 05:48