Помогите написать процедуру и функцию преобразования положительного десятичного числа, в восьмеричное. В основной программе ввести массив из 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;