Напечатать восьмеричное представление числа

Posted by obzor under Delphi

В одномерный массив введены цифры целого положительного числа М в восьмеричной системе счисления. Количество цифр в числе известно и дано N (N- не более 10). Напечатать восьмеричное представление числа М+7. Предусмотреть проверку правильности ввода информации.

Serge_Bliznykov

Сложение в столбик умеете выполнять?
А если к длинному числу нужно прибавить ОДНОзначное число — сумеете вычислить? (напишите на бумажке, как Вы прибавите к 98989899 число 7)

Вот эти знания и нужно использовать, только учитывая, что основание системы счисления равно 8.

ПРИМЕРНО так:

const MaxN = 10;
var
   ODigits : array[1..MaxN+1] of integer;
   i, N, perenos : integer;
begin
   { тут ввод числа N - количество разрядов}
   WriteLn('Введите число N: '); ReadLn(N);
   Write('Введите цифры числа: ');
   ODigits[1] := 0;
   for i:=2 to N+1 do Read(ODigits[ i]);
   ReadLn;

   < проверку напишите самостоятельно >

   прибавить 7 к числу
   i:=N+1;
   perenos := 7;
   while (perenos>0) and (i>0) do begin
     ODigits[ i] := ODigits[ i] + perenos;
     perenos := ODigits[ i] div 8; { 8 - основании СС}
     ODigits[ i] := ODigits[ i] mod 8;  { 8 - основании СС}
     dec(i)  {переходим к следующему разряду числа}
   end;

   Write('полученное число: ');
   for i:=1 to N+1 do Write(ODigits[ i]);
   WriteLn

end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)