Question

Pascal ABC. Разработайте программу перевода десятичного натурального числа n в троичную систему счисления.

Answer 1

program dvt;

uses

crt;

var

tr: array [0..50] of integer;

var

d: longint;

var

i, k: integer;

begin

writeln('Введите десятичное число:');

readln(d);

i := 0;

while d > 2 do

begin

tr[i] := d mod 3;

d := d div 3;

i := i + 1;

end;

tr[i] := d;

writeln('Получилось троичное число:');

for k := i downto 0 do

write(tr[k]);

readln;

end.

Answer 2

Конечно, вот пример программы на языке Pascal ABC, который выполняет перевод десятичного числа в троичную систему счисления:

pascalCopy code
program DecimalToTernary;

var
  decimalNumber, remainder: Integer;
  ternaryDigits: array of Integer;
  i, numDigits: Integer;

begin
  Write('Введите десятичное число: ');
  ReadLn(decimalNumber);

  // Инициализация массива для хранения цифр троичного числа
  SetLength(ternaryDigits, 0);

  // Преобразование десятичного числа в троичное
  while decimalNumber > 0 do
  begin
    remainder := decimalNumber mod 3;
    SetLength(ternaryDigits, Length(ternaryDigits) + 1);
    ternaryDigits[Length(ternaryDigits) - 1] := remainder;
    decimalNumber := decimalNumber div 3;
  end;

  // Вывод результата в обратном порядке
  numDigits := Length(ternaryDigits);
  Write('Троичное представление: ');
  for i := numDigits - 1 downto 0 do
    Write(ternaryDigits[i]);

  ReadLn;
end.

Программа сначала запрашивает у пользователя десятичное число, затем выполняет перевод в троичную систему счисления и выводит результат на экран.