Bài 43: Chuyển 1 số từ hệ thập phân sang nhị phân.

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

Bài 43: Chuyển 1 số từ hệ thập phân sang nhị phân.

Bài gửi by phamthuhien on Wed 05 Jun 2013, 10:47 am

thầy ơi, e đổi hệ thập phân sang nhị phân dùng repeat..until, thầy xem bài e làm đúng chưa ạ.


program doi_tu_he_thap_phan_sang_nhi_phan;
uses crt;
var A:array[1..30] of integer;
h,j,x: integer;
begin clrscr;
writeln(' sau day la chuong trinh doi so thap phan sang nhi phan');
write(' nhap so thap phan x='); readln(x);
h:=1;
Repeat
d[h]:=x mod 2;
x:=x div 2;
h:=h+1;
Until(x=0);
Write('So nhi phan la:');
For j:=h-1 downto 1 do Write (d[j]); <sao chỗ này lại dùng downto hả thầy, e chưa hiểu ạ>

Readln;
end.

phamthuhien
USES
USES

Tổng số bài gửi : 11
điểm điểm : 16

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 43: Chuyển 1 số từ hệ thập phân sang nhị phân.

Bài gửi by nobita on Wed 05 Jun 2013, 4:00 pm

Đã trả lời , em xem tin nhắn nhé !

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
nobjtaz@gmail.com
https://sites.google.com/site/dayhocdientu
http://my.opera.com/classicfat32/blog/
http://r11.imgfast.net/users/1114/13/83/06/avatars/72-73.png
avatar
nobita
Quản trị
Quản trị

Nam
Tổng số bài gửi : 90
điểm điểm : 140
Đến từ : Những mùa thu

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Bài 43: Chuyển 1 số từ hệ thập phân sang nhị phân.

Bài gửi by luumanh9x99 on Thu 06 Jun 2013, 2:20 pm


program doi_tu_he_thap_phan_sang_nhi_phan;
uses crt;
var A:array[1..10] of integer;
tl:char;
thuong,i,n: integer;
-begin
---clrscr;
---writeln(' sau day la chuong trinh doi so thap phan sang nhi phan');
---repeat
----begin
------write(' nhap so thap phan n='); readln(n);
------dem:=0;
------thuong:=n;
------while thuong<>0 do
-----------begin
-------------a[dem]:=thuong mod 2;
-------------thuong:=thuong div 2;
-------------dem:=dem+1;
-----------end;
-----Write('So nhi phan la:');
-----For i:=dem downto 1 do Write (a[j]);
-----write('dung ct nhan N, tiep tuc nhan phim khac:');
-----readln(tl);
----end;
--until upcase(tl)='N';
Readln;
end.

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
facebook.com/duc.luumanh.pro
avatar
luumanh9x99
PRO TIN
PRO TIN

Nam
Tổng số bài gửi : 60
điểm điểm : 84
Birthday : 30/01/1999
Đến từ : THPT Chuyên Thái Nguyên
Job/hobbies : hoc sinh

Xem lý lịch thành viên http://xonefm.com

Về Đầu Trang Go down

Re: Bài 43: Chuyển 1 số từ hệ thập phân sang nhị phân.

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết