Trang ChínhTrang Chính  PortalliPortalli  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Thành viênThành viên  NhómNhóm  Đăng NhậpĐăng Nhập  

Share | 
 

 Chuyển cơ số siêu hạng

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
TMK
Trợ lý Admin
Trợ lý Admin


Tổng số bài gửi : 5
Registration date : 10/12/2007

Bài gửiTiêu đề: Chuyển cơ số siêu hạng   Fri Dec 28, 2007 5:49 pm

Mod có bài toán cho các bạn đây
hãy viết chương trình chuyển đổi một số thuộc cơ số bất kỳ ra một hệ bất kỳ
chương trình càng ngắn càng tốt
các bạn viết đi tôi sẽ góp ý Like a Star @ heaven Like a Star @ heaven Like a Star @ heaven
Về Đầu Trang Go down
Xem lý lịch thành viên
ITer
Phó thường dân
Phó thường dân
avatar

Tổng số bài gửi : 18
Age : 24
Location : Vị Thanh, Hậu Giang
Registration date : 06/12/2007

Bài gửiTiêu đề: Re: Chuyển cơ số siêu hạng   Thu Jan 03, 2008 7:48 pm

Program Chuyen_Co_So_Sieu_Hang;
uses crt;
Var he,he1,i,j:byte;
n,code:integer;
s,s3:string;
Function he10(x:string):integer;
Var d,luythua:integer;
s1:string[1];
so,i:byte;
Begin
luythua:=1;
i:=length(x);
s1:=copy(x,i,1);
val(s1,so,code);
If code=0 then
d:=so
else d:=ord(x[i])-55;
dec(i);
While i<>0 do
Begin
luythua:=luythua*he;
s1:=copy(x,i,1);
val(s1,so,code);
If code=0 then
d:=d+so*luythua
else d:=d+((ord(s[i])-55)*luythua);
dec(i);
End;
he10:=d;
End;
Procedure chuyen_he(n:integer);
Var s2:string[1];
Begin
j:=0;
repeat
If n mod he1 < 10 then
Begin
inc(j);
str((n mod he1),s2);
s3[j]:=s2[1];
End
else
Begin
inc(j);
s3[j]:=chr((n mod he1) + 55);
end;
n:=n div he1;
until n=0;
End;
Begin
clrscr;
Write('He so ban muon nhap: ');readln(he);
Write('Nhap so: ');readln(s);
Write('He ban muon doi: ');readln(he1);
n:=he10(s);
chuyen_he(n);
for i:=j downto 1 do write(s3[i]);
readln;
End.
Xin mời bình lựng
cheers
Về Đầu Trang Go down
Xem lý lịch thành viên
TMK
Trợ lý Admin
Trợ lý Admin


Tổng số bài gửi : 5
Registration date : 10/12/2007

Bài gửiTiêu đề: Re: Chuyển cơ số siêu hạng   Tue Jan 08, 2008 5:21 pm

Hay nhung con dai qua , con co the rut ngan nua duoc do
Về Đầu Trang Go down
Xem lý lịch thành viên
ITer
Phó thường dân
Phó thường dân
avatar

Tổng số bài gửi : 18
Age : 24
Location : Vị Thanh, Hậu Giang
Registration date : 06/12/2007

Bài gửiTiêu đề: Re: Chuyển cơ số siêu hạng   Thu Jan 17, 2008 11:59 am

Rút ngắn ở chỗ nào gợi ý chút đi.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Chuyển cơ số siêu hạng   

Về Đầu Trang Go down
 
Chuyển cơ số siêu hạng
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Tin học :: Tin học trẻ không chuyên-
Chuyển đến