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

 
công ty Snapseed

Google đã chính thức mua lại công ty Snapseed

Theo trang tin Cnet, vào ngày hôm qua, gã khổng lồ trong lĩnh vực tìm kiếm trực tuyến Google đã chính thức mua lại công ty đứng đằng sau ứng dụng chỉnh sửa và chia sẻ hình ảnh trên iOS Snapseed - một trong những đối thủ sừng sỏ của Instagram - nhằm mục tiêu cạnh tranh trực tiếp với Facebook.

Sử dụng Behat để track down PHP notices cho Drupal site

Sử dụng Behat để track down PHP notices cho Drupal site

Behat is a BDD (behavior driven development) framework for PHP. With BDD, you write human-readable stories that describe the behavior of your application.

Bắt đầu làm việc with Forms in Drupal 8

Bắt đầu làm việc with Forms in Drupal 8

Forms are an essential part of any web application. They are the primary mechanism for collecting input from our users, and without them Drupal wouldn't be very useful. 

Tomdesgin.vn

 

Drupal Services