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 Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

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

 
Choma hy vọng khi cô chụp các đồng nghiệp của mình, họ sẽ có thêm một vài giây thư giãn và tạm thời quên đi không khí nặng nề trong các chuyến bay mùa dịch

Molly Choma, 33 tuổi, dần làm quen với những chuyến bay trống không giữa Covid-19

Bộ ảnh do tiếp viên Mỹ chụp những chuyến bay rỗng trong đại dịch là tài liệu chân thật về thời kỳ ảm đạm nhất của hàng không thế giới.

10 suy nghĩ cần thiết cho Drupal site

10 suy nghĩ cần thiết cho Drupal site

This article comes as a continuation to the previous one in which I exemplified 5 things you should not do on or with your Drupal site. Today, however, I'll double up, take a more positive approach and go with 10 things you definitely should be doing. So let's begin.

Upgrading Eclipse on Ubuntu (from 3.5 to 3.7 indigo – works for other versions too)

After upgrading my Ubuntu version to 11.04 I installed eclipse using the software centre.

BLOG POSTS

 

Wordpress Freelancer

 

Wordpress Freelancer