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ỳ

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.

 

Bạn thấy bài viết này như thế nào?: 
Average: 9.4 (18 votes)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Dễ dàng thêm contextual link vào block trong Drupal 7

Dễ dàng thêm contextual link vào block trong Drupal 7

Contextual link is a nice addition made into Drupal 7 to favor usability. It offers, quick links to pages performing administrative operations.

Một năm nhìn lại Acquia Certification Program

Một năm nhìn lại Acquia Certification Program

People have debated the pros and cons of software certifications for years 

Xử lý tình huống gặp nạn với thuốc xịt côn trùng

Xử lý tình huống gặp nạn với thuốc xịt côn trùng

Tương tự, nếu bị vấy thuốc vào mắt cần ngâm mắt vào nước ngay. Nước sẽ làm loãng nồng độ thuốc và giúp làm giảm sự kích ứng.

Công ty diệt chuột T&C

 

Diet con trung