Написать программу для сложения натуральных чисел а и в в троичной системе счисления

208

440

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

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

natashaevtushenko

Информатика

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

Function is3base(s: string): boolean; { возвращает true, если строка представляет натуральное число в троичной системе счисления } const dig3base=['0'..'2']; var i,n: integer; err: boolean; begin n: =length(s); if n=0 then is3base: =false else begin i: =n; repeat err: =not(s[i] in dig3base); dec(i); until (i=0) or err; is3base: =not err end end; procedure digitsalign(var s1,s2: string); { дополняет слева нулями короткое слагаемое до длинного } var i,n,l1,l2: integer; begin l1: =length(s1); l2: =length(s2); if l1> l2 then for i: =l2+1 to l1 do s2: ='0'+s2 else for i: =l1+1 to l2 do s1: ='0'+s1 end; function add3base(s1,s2: string): string; { сложение на строках натуральных чмсел s1 и s2 в системе счисления по основанию 3 } var s: string; c0,i,ip,d: integer; begin c0: =ord('0'); if not is3base(s1) then add3base: =s1+' не троичное' else if not is3base(s2) then add3base: =s2+' не троичное' else begin digitsalign(s1,s2); ip: =0; s: =''; for i: =length(s1) downto 1 do begin d: =ord(s1[i])+ord(s2[i])-2*c0+ip; if d> 2 then begin ip: =1; d: =d-3 end else ip: =0; s: =chr(d+c0)+s end; if ip=1 then s: ='1'+s; add3base: =s end end; var s1,s2,sr: string; begin write('введите первое слагаемое в троичной системе: '); readln(s1); write('введите второе слагаемое в троичной системе: '); readln(s2); writeln(s1,'(3) + ',s2,'(3) = ',add3base(s1,s2),'(3)') end. тестовое решение: введите первое слагаемое в троичной системе: 12101120122001 введите второе слагаемое в троичной системе: 10020021122 12101120122001(3) + 10020021122(3) = 12111210220200(3)

arelbeis

Информатика

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

ответ: ГЛОБУС ( ЗЕМЛИ )

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

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

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

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

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

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

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

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

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

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