//
you're reading...
Chủ đề xâu (string), Dùng cho cấp THCS, Dùng cho cấp THPT

Bài tập về xâu (string) – Bài 02

Bài tập về xâu (string)

Trang này của Nguyễn Công Tác

Bấm vào các liên kết dưới đây để xem các trang liên quan:


Lý thuyết bài 10 – Kiểu xâu (string)
Đến trang sau – Bài 03
Về trang đầu – Bài 01


Bài 02:

Nhập vào một số thập phân (hệ 10), in ra màn hình kết quả chuyển đổi số đã cho sang hệ bát phân (hệ 8).

Phần mã sẽ được trình bày trong vùng màu xám như dưới đây:


Mẫu chương trình


Program Doi_thap_phan_ra_bat_phan;
Var
    He10,N,Y:Word;
   He8,Tam:String;
Begin
    Writeln('DOI SO TU HE THAP PHAN SANG HE BAT PHAN');
   Writeln('         -----------------');
   Writeln;
   Write('-Nhap so nguyen he thap phan: ');
   Readln(He10);
   N:=He10;
   He8:=' ';
   Repeat
       Y:=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  de ket thuc');
   Readln
End.


Kết quả in ra
DOI SO TU HE THAP PHAN SANG HE BAT PHAN
-Nhap so nguyen he thap phan:
+So he 10 la :
+Doi sang he 8 la:
Bam phim de ket thuc


Nguồn tài liệu

Tham khảo từ Internet.


Giải thuật và lập trình – Lê Minh Hoàng
Trang bài học Pascal cơ bản
Dự phòng
Dự phòng

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Chưa có phản hồi.

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

Các tác giả

Danh mục

Tháng Mười Hai 2014
M T W T F S S
« Nov   Jan »
1234567
891011121314
15161718192021
22232425262728
293031  

NCT Computer

Flickr Photos

It's A-peeling To Me

Winter evening in Rognan, Norway

Macro Mondays .."It's A-Peeling To Me"

More Photos

Thống kê

  • 95,573 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: