Помогите написать процедуру и функцию преобразования положительного десятичного числа, в восьмеричное. В основной программе ввести массив из 8 элементов при помощи случайных чисел, и для каждого элемента массива вывести его вос...
Помогите написать процедуру и функцию преобразования положительного десятичного числа, в восьмеричное. В основной программе ввести массив из 8 элементов при помощи случайных чисел, и для каждого элемента массива вывести его восьмеричное представление
Гость
Ответ(ы) на вопрос:
Гостьfunction Dec2Oct(n: integer): string;
var
c, s: string;
iquo, irem: integer;
begin
s := '';
iquo := n;
while iquo <> 0 do
begin
irem := iquo mod 8;
iquo := iquo div 8;
Str(irem, c);
s := c + s
end;
if Length(s) = 0 then Result := '0'
else Result := s
end;
var
m: array[1..8] of integer;
i: integer;
begin
Randomize;
for i := 1 to 8 do
begin
m[i] := Random(10000);
writeln(m[i]:5, '(10)=', Dec2Oct(m[i]), '(8)')
end
end.
Тестовое решение:
973(10)=1715(8)
7245(10)=16115(8)
2511(10)=4717(8)
5136(10)=12020(8)
8002(10)=17502(8)
7101(10)=15675(8)
4277(10)=10265(8)
5916(10)=13434(8)
Если вместо функции нужна процедура, достаточно заменить несколько строчек.
procedure Dec2Oct(n: integer; s: string);
var
c: string;
iquo, irem: integer;
begin
s := '';
iquo := n;
while iquo <> 0 do
begin
irem := iquo mod 8;
iquo := iquo div 8;
Str(irem, c);
s := c + s
end;
if Length(s) = 0 then s := '0'
end;
Не нашли ответ?
Похожие вопросы