Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел

@w1nter_mute · Регистрация: 18.01.2014

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

Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел в диапазоне от 1 до 256.

@Puporev · 26.03.2014, 12:14

Вот программа, она простая, но у меня в Турбо и PABC.net нормально работает, а в простом АВС почему-то дурит.

Pascal

uses crt;
const digit:string[16]='0123456789ABCDEF';
{функция перевода Dec числа в любую сс}
function FromDec(m,r:integer):string;
var s:String;
    n:integer;
begin
s:='';
n:=m;
repeat
s:=digit[(n mod r)+1]+s;
n:=n div r;
until n=0;
FromDec:=s;
end;
 
var k:integer;
begin
clrscr;
for k:=1 to 256 do
 begin
  writeln(k:4,fromdec(k,2):10,fromdec(k,8):8,fromdec(k,16):4);
  if k mod 22=0 then
   begin
    write('Press Enter');
    readln
   end
  end;
readln
end.

@w1nter_mute 0 / 0 / 0 Регистрация: 18.01.2014 Сообщений: 17
		1
	Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел 26.03.2014, 11:21. Показов 1620. Ответов 1 Метки нет (Все метки) Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел в диапазоне от 1 до 256. 0

	26.03.2014, 12:14

Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел

Решение