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

@Falcone · Регистрация: 26.11.2011

Author24 — интернет-сервис помощи студентам

Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.

@Puporev · 26.11.2011, 14:07

Pascal

uses crt;
procedure dectooct(dec:word;var res:string);
var s:string;
begin
 if dec>7 then dectooct((dec div 8),res) else res:='';
 str((dec mod 8),s);
 res:=res+s;
end;
var N:word;
    s:string;
begin
clrscr;
write('Vvedite chislo n=');
readln(n);
dectooct(n,s);
writeln(s);
readln
end.

@Falcone 0 / 0 / 0 Регистрация: 26.11.2011 Сообщений: 5
		1
	Перевод числа в различные системы счисления, используя рекурсию 26.11.2011, 13:31. Показов 1664. Ответов 1 Метки нет (Все метки) Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную. 0

	26.11.2011, 14:07

Опции темы

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

Решение