Chuyển đổi Giữa Các Hệ đếm Bằng Pascal

Diễn đàn lớp 09TCT trường CĐ KT-KT Đông DuBạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.Diễn đàn lớp 09TCT trường CĐ KT-KT Đông Du

• 
• 
• 
• 
• 

  Tìm kiếm

  Display results as :Số bàiChủ đề

  Advanced Search

• 
• 

You are not connected. Please login or register

Diễn đàn lớp 09TCT trường CĐ KT-KT Đông Du » CHIA SẺ KIẾN THỨC » Công nghệ thông tin » Chuyển đổi giữa các hệ đếm bằng PascalChuyển đổi giữa các hệ đếm bằng Pascal2 posters

Thông điệp [Trang 1 trong tổng số 1 trang]

1 Chuyển đổi giữa các hệ đếm bằng Pascal 4/2/2010, 3:39 pm

TuanOri

Quân đoàn trưởng ITTổng số bài gửi : 196Điểm cống hiến : 272Danh tiếng : 1Join date : 31/12/2009Age : 42Đến từ : Thành phố Huế1./ Đổi hệ Thập phân sang hệ Nhị phânProgram Doi_thap_phan_ra_nhi_phan;VarHe10,N,Y:Word;He2,Tam:String;BeginWriteln('DOI SO TU HE THAP PHAN SANG HE NHI PHAN');Writeln(' -----------------');Writeln;Write('-Nhap so nguyen he thap phan: ');Readln(He10);N:=He10;He2:=' ';RepeatY:=He10 Mod 2;Str(Y, Tam);He2:=Tam + He2;He10:= He10 Div 2;Until He10 = 0;Writeln;Writeln('+So he 10 la : ',N);Writeln('+Doi sang he 2 la: ',He2);Writeln;Writeln(' Bam phim <Enter> de ket thuc');ReadlnEnd.2./ Đổi hệ Thập phân sang hệ Bát phânProgram Doi_thap_phan_ra_bat_phan;VarHe10,N,Y:Word;He8,Tam:String;BeginWriteln('DOI SO TU HE THAP PHAN SANG HE BAT PHAN');Writeln(' -----------------');Writeln;Write('-Nhap so nguyen he thap phan: ');Readln(He10);N:=He10;He8:=' ';RepeatY:=He10 Mod 8;Str(Y, Tam);He8:=Tam + He8;He10:= He10 Div 8;Until He10 = 0;Writeln;Writeln('+So he 10 la : ',N);Writeln('+Doi sang he 8 la: ',He8);Writeln;Writeln(' Bam phim <Enter> de ket thuc');ReadlnEnd.3./ Đổi hệ Thập phân ra hệ Thập lục phânProgram Doi_thap_phan_ra_thap_luc;VarHe10,N,Y:Word;He16,Tam:String;BeginWriteln('DOI SO TU HE THAP PHAN SANG HE THAP LUC PHAN');Writeln(' -----------------');Writeln;Write('-Nhap so nguyen he thap phan: ');Readln(He10);N:=He10;He16:=' ';RepeatY:=He10 Mod 16;If Y < 10 ThenStr(Y, Tam)ElseTam:=Chr(Y+55);He16:=Tam + He16;He10:= He10 Div 16;Until He10 = 0;Writeln;Writeln('+So he 10 la : ',N);Writeln('+Doi sang he 16 la: ',He16);Writeln;Writeln(' Bam phim <Enter> de ket thuc');ReadlnEnd.4./ Đổi hệ Thập phân ra hệ Bất kỳProgram Doi_thap_phan_ra_he_bat_ky;VarHe10,N,Y,HeN:Word;He,Tam:String;BeginWriteln('DOI SO TU HE THAP PHAN SANG HE BAT KY');Writeln(' -----------------');Writeln;Write('-Nhap so nguyen he thap phan: ');Readln(He10);N:=He10;Write('-Doi sang he nao: ');Readln(HeN);He:=' ';RepeatY:=He10 Mod HeN;If Y < 10 ThenStr(Y, Tam)ElseTam:=Chr(Y+55);He:=Tam + He;He10:= He10 Div HeN;Until He10 = 0;Writeln;Writeln('+So he 10 la : ',N);Writeln('+Doi sang he: ',HeN:2,' la: ',He);Writeln;Writeln(' Bam phim <Enter> de ket thuc');ReadlnEnd.Sưu tầm, chưa kiểm tra! :lol!: LikeDislike

2 Re: Chuyển đổi giữa các hệ đếm bằng Pascal 4/2/2010, 3:40 pm

TuanOri

Quân đoàn trưởng ITTổng số bài gửi : 196Điểm cống hiến : 272Danh tiếng : 1Join date : 31/12/2009Age : 42Đến từ : Thành phố HuếThử xem 10 bài có được phong cấp ko ta? Diễn đàn đang thử nghiệm nên tranh thủ Sì pam chút. Hehe... LikeDislike

3 Re: Chuyển đổi giữa các hệ đếm bằng Pascal

Sponsored content

4 Re: Chuyển đổi giữa các hệ đếm bằng Pascal 4/2/2010, 6:25 pm

Konvict

Tư lệnh ITTổng số bài gửi : 234Điểm cống hiến : 286Danh tiếng : 0Join date : 03/02/2010Age : 35Đến từ : _*̡͌l̡*̡̡ ̴̡ı̴̴̡ |̲̲̲͡͡͡ ̲▫̲͡ ̲̲̲͡͡π̲̲͡͡ ̲̲͡▫̲̲͡͡ ̲|_*̡͌spam lần đầu nèTHêm vài lần nữaSố phận của Spammer LikeDislike

5 Re: Chuyển đổi giữa các hệ đếm bằng Pascal 5/2/2010, 10:02 am

TuanOri

Quân đoàn trưởng ITTổng số bài gửi : 196Điểm cống hiến : 272Danh tiếng : 1Join date : 31/12/2009Age : 42Đến từ : Thành phố HuếĐang thử nghiệm thì cứ Sì pam chứ, có chi mà phải hù nhau ghê rứa hè? Hi... Bảng phong thần vẫn còn để trống kìa, lo gì ko có chỗ dung thân. :lol!: LikeDislike

6 Re: Chuyển đổi giữa các hệ đếm bằng Pascal 5/2/2010, 5:20 pm

Konvict

Tư lệnh ITTổng số bài gửi : 234Điểm cống hiến : 286Danh tiếng : 0Join date : 03/02/2010Age : 35Đến từ : _*̡͌l̡*̡̡ ̴̡ı̴̴̡ |̲̲̲͡͡͡ ̲▫̲͡ ̲̲̲͡͡π̲̲͡͡ ̲̲͡▫̲̲͡͡ ̲|_*̡͌thấy cái hình vui vui, hù ông anh tí thôi :lol: LikeDislike

7 Re: Chuyển đổi giữa các hệ đếm bằng Pascal

Sponsored content

Thông điệp [Trang 1 trong tổng số 1 trang]

Diễn đàn lớp 09TCT trường CĐ KT-KT Đông Du » CHIA SẺ KIẾN THỨC » Công nghệ thông tin » Chuyển đổi giữa các hệ đếm bằng Pascal

Similar topics

Similar topics

» Sự khác biệt giữa Hub, Switch và Router» Chuyện tỷ phú lớp 7 tay trắng làm nên bạc tỷ» Bang Dong Tu Bat Quy Tac(Tieng anh)

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

Chuyển đến:

Chọn Diễn Đàn||--THÔNG BÁO| |--Học tập, Kiểm tra, Thi cữ| |--Hoạt động Đoàn, Thanh niên| |--Lớp 09TCT| |--Trung tâm điều hành| |--Thông báo| |--Hỗ trợ sử dụng diễn đàn| |--Góp ý xây dựng| |--Danh sách vi phạm| |--GIAO LƯU| |--Kinh nghiệm sống| |--Ảnh thành viên| |--Tự giới thiệu| |--CHIA SẺ KIẾN THỨC| |--Công nghệ thông tin| |--Kho phần mềm| |--Kinh nghiệm, Mẹo vặt về IT| |--Kiến thức phổ thông| |--TRUNG TÂM THƯƠNG MẠI|--ÂM NHẠC - PHIM ẢNH|--TRUYỆN CƯỜI|--NỘI QUY DIỄN ĐÀN|--THÙNG RÁC

• Free forum | Nghệ thuật | Thú vui | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất