Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида p /q (где р — целое число, q — натуральное число). вариант 1 в раздел реализации включить подпрограмму вычисления наибольшего общего делителя и на ее основе подпрограмму сокращения дробей. написать в паскале

225

248

Посмотреть ответы 2

Ответы на вопрос:

gygfyye66363

Информатика

4,8(98 оценок)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! unit asm; interface type sf=(integer,integer); function addsf(a,b: sf): sf; function subsf(a,b: sf): sf; function multsf(a,b: sf): sf; function divsf(a,b: sf): sf; implementation function gcd(p: sf): integer; begin (var a,var b): =p; a: =abs(a); b: =abs(b); while b> 0 do (a,b): =(b,a mod b); result: =a end; function reductsf(p: sf): sf; begin var t: =gcd(p); if t> 1 then result: =(p[0] div t,p[1] div t) else result: =p end; function addsf(a,b: sf): =reductsf((a[0]*b[1]+a[1]*b[0],a[1]*b[1])); function subsf(a,b: sf): =reductsf((a[0]*b[1]-a[1]*b[0],a[1]*b[1])); function multsf(a,b: sf): =reductsf((a[0]*b[0],a[1]*b[1])); function divsf(a,b: sf): =reductsf((a[0]*b[1],a[1]*b[0])); end. ***** пример работы с модулем ***** uses asm; begin var a: =(5,24); var b: =(7,8); var c: =addsf(a,b); writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1]) end. результат 5/24+7/8=13/12

bombaleilooo

Информатика

4,6(13 оценок)

Внимание: подразумевалось, что указанное вами число 3168 это некорректно указанное число 316₈ (8 - основание исходной с/с). В ином случае решений неравенства нет.

Объяснение:

316₈ < x < DE₁₆

Переведем все числа в 10 с/с

DE₁₆ = 13 * 16 + 14 = 222₁₀

316₈ = 3*64 + 1*8 + 6 = 206₁₀

206 < x < 222

x ∈ (206, 222)

Посчитаем кол-во натуральных чисел в полученном промежутке

(222-206)-1 = 16 - 1 = 15

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.