//
you're reading...
00 - Chủ đề chung, Bài tập huấn luyện, Giáo trình Programming Practice: Pascal

Thực hành Pascal cơ bản: Đoán số

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


Mục lục
Đến trang sau
Dự phòng


Ví dụ: Chương trình sau đây thực hiện việcđoán một số cho trước.

INPUT: Máy tạo một số ngẫu nhiên trong phạm vi 1000.

OUTPUT: Câu thông báo đoán đúng hay không đúng số đã tạo.

Lưu ý: Tại mỗi lần đoán sai bạn hãy đoán lại số trung bình cộng của lượt cao và lượt thấp.

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 DoanSo;
    { Chuong trinh yeu cau nguoi su dung doan ra so da nhap }
VAR
     SoNhap, SoDoan, SoLanDoan: INTEGER;
BEGIN
     SoNhap := 1 + TRUNC(1000 * Random);
     { Tao so ngau nhien 0 < SoNhap <= 1000 }
     SoLanDoan := 0;
     Write('Ban hay doan so dang co la: ');
     Readln(SoDoan);
     WHILE SoDoan <> SoNhap DO
         BEGIN
            IF SoDoan > SoNhap THEN
               Writeln('Sai. Hay doan thap hon. ')
            ELSE
               Writeln('Sai. Hay doan cao hon. ');
            SoLanDoan := SoLanDoan + 1;
            writeln;
            Write('Ban doan lai so dang co la: ');
            Readln(SoDoan);
     END; {WHILE}
     Writeln;
     Writeln('Chuc mung! ', SoDoan:1, ' la so dung.');
     Writeln('Ban da doan ', SoLanDoan:2, ' lan.');
     Readln; 
END.

 

[PAS]


Nguồn tài liệu

Tài liệu: Programming Practice: Pascal.


Trang bài học Pascal cơ bản
Dự phòng
Dự phòng

Advertisements

About pascalteacher

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

Thảo luận

Không có bình luận

Trả lờ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 Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười Hai 2016
H B T N S B C
« Th11   Th1 »
 1234
567891011
12131415161718
19202122232425
262728293031  

NCT Computer

Flickr Photos

Thống kê

  • 148,943 lượt xem

pascalteacher.nct@gmail.com


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

%d bloggers like this: