Question

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

Answer 1

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</span>

    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</span>

    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.

Answer 2

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</span>     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</span>     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.