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

Формулировка задачи:

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

Код к задаче: «Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел - Pascal ABC»

textual
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.

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ