Перевод числа из 10-й системы счисления в любую другую по 9-ю

Перевод числа из 10-й системы счисления в любую другую по 9-ю

Исходник программы для Паскаль, которая переводит число из десятичной системы счисления в любую другую по девятеричную, то есть в любую другую, которая состоит только из цифр. Пояснительных комментариев мало, но можно разобраться самим, если знать принцип перевода - деление на систему счисления и запись остатков, затем вывод с конца. Скачать исходник, а также просмотреть исходный код, Вы можете далее.

Исходный код программы:

Const NMax=1000000000;
var
i,p,x,sys:integer;
a:array[1..nmax] of byte;
begin
i:=0;
ReadLn(x,sys); {Вводим число x которое необходимо перевести в систему исчисления с основанием m}
p:=x;
While p>0 do
begin
i:=i+1;
a[i]:=p mod sys;
p:=p div sys;
end;
Write(x,' в системе счисления- ',sys,' = ');
for p:=i downto 1 do
Write(a[p]);
//ReadLn; //Нужна для TurboPascal, при необходимости убрать (//) и комментарий
end.


Для перевода числа только в определённую программу, нужно заменить переменную sys на ту систему счисления, которая вам нужна.

Скачать исходник: sys.pas

Раскрутка сайта дешево - это возможно! Я сам лично раскрутил этот сайт с минимум вложений и спокойно радуюсь ежедневным 300-м посетителям!
Дата: 2012-10-16 19:58:42   Просмотров: 28521

Теги: исходник WHILE исходники Паскаль Pascal