Bài 43: Chuyển 1 số từ hệ thập phân sang nhị phâ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é !
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

Về Đầu Trang


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