Viết chương trình cho phép đổi một số từ cơ số 10 sang cơ số bất kỳ

Viết chương trình cho phép đổi một số từ cơ số 10 sang cơ số bất kỳ.

Thuật toán:

• Dùng mảng CS để lưu các chữ số.
• Lặp khi n <> việc: Chia n cho s lấy phần dư. Lấy phần dư làm chỉ số để lấy và lưu chữ số. Gán n = n div s.
• Chú ý chữ số lấy sau sẽ nằm trước.

Program Doi_co_so;

Var n,s: longint;

Function D10_CS(n:longint;s:byte):string;

Var CS: array[0..100] of char;

    i: integer;

    ch:Char;

    Tam:string;

Begin

{Khoi tao cac chu so 0 den 9}

    i:=0;

    ch:='0';

    while i<=9 do

    Begin

        CS[i]:=Ch;

        inc(i);

        inc(ch);

    End;

{Khoi tao cac chu so A den Z}

    i:=10;

    ch:='A';

    While ch<'Z' do

    Begin

         CS[i]:=ch;

         inc(i);

         inc(ch);

    End;

    tam:='';

    While n<>0 do

    Begin

        tam:= CS[n mod s]+ Tam;

        n:=n div s;

    End;

    D10_CS:=Tam;

End;


Begin

   Write('Nhap n:');Readln(n);

   Write('Doi sang co so: ');Readln(s);

   Write(D10_CS(n,s));

   Readln

End.