1. Nhập dữ liệu vào từ bàn phím

Cp: Read/Readln(<Danh sách biến vào>);

Vd: Nhập dữ liệu từ bàn phím cho ba biến a,b,c có những cách sau:

Readln(a);Readln(b); Readln(c); hoặc Readln(a,b,c);

Chú ý: Nhập giá trị cho danh sách biến, phải chú ý đến kiểu của biến, giá trị liên tiếp giữa các biến (phải nhấn phím Space hoặc phím Enter).

  • Lệnh Readln; Không có tham số dùng để tạm dừng chương trình đến khi nhấn Enter.

2. Đưa dữ liệu ra màn hình

Cp: Write/Writeln(<Danh sách kết quả ra>);

Lệnh Write viết xong con trỏ không xuống hàng còn lệnh Writeln viết xong con trỏ tự động xuống hàng tiếp theo. Lệnh Writeln; không tham số dùng để xuống hàng.

Ví dụ:

Câu lệnh

Kết quả trên màn hình

Writeln(‘Hello’);

Writeln(‘Hello’:10);

Writeln(500);

Writeln(500:5);

Writeln(123.457)

Writeln(123.45:8:2)

Hello

Hello

500

500

1.2345700000E+02

123.46

Các hàm và thủ tục thường dùng trong nhập xuất dữ liệu

  • Hàm KEYPRESSED: Hàm trả về giá trị TRUE nếu như có một phím bất kỳ được nhấn, nếu không hàm cho giá trị là FALSE.
  • Hàm READKEY: Hàm có chức năng đọc một ký tự từ bộ đệm bàn phím.
  • Thủ tục GOTOXY(X,Y:Integer): Di chuyển con trỏ đến cột X dòng Y.
  • Thủ tục CLRSCR: Xoá màn hình và đưa con trỏ về góc trên bên trái màn hình.
  • Thủ tục CLREOL: Xóa các ký tự từ vị trí con trỏ đến hết dòng.
  • Thủ tục DELLINE: Xoá dòng tại vị trí con trỏ và dồn các dòng ở phía dưới lên.
  • Thủ tục TEXTCOLOR(color:Byte): Thiết lập màu cho các ký tự. Trong đó color ∈ [0,15].
  • Thủ tục TEXTBACKGROUND(color:Byte): Thiết lập màu nền cho màn hình.

Bài tập VD: Viết chương trình nhập vào 2 số a, b. Sau đó hoán đổi giá trị của 2 số đó:

Cách 1:

Program Swap;

Var  a,b,tam: Integer;

Begin

Write(‘Nhap vao a= ‘); Readln(a);

Write(‘Nhap vao b= ‘); Readln(b);

tam:=a; {tam lấy giá trị của a}

a:=b; {a lấy giá trị của b}

b:=tam;{b lấy lại giá trị của tam}

Writeln(‘a = ‘,a,’ b = ‘,b);

Readln;End.

Cách 2:

Program Swap;

Var  a,b: Integer;

Begin

Write(‘Nhap vao a= ‘); Readln(a);

Write(‘Nhap vao b= ‘); Readln(b);

a:=a+b; {a lấy tổng giá trị của a+b}

b:=a-b; {b lấy giá trị của a}

a:=a-b;{a lấy lại giá trị của b}

Writeln(‘a = ‘,a,’ b = ‘,b);

Readln;End.

>> Còn nữa…

 

9 BÌNH LUẬN

  1. Hi there i am kavin, its my first occasion to commenting anywhere, when i read this paragraph i thought i could also create comment due to this
    sensible article.

  2. Hello, i think that i saw you visited my website thus i came to “return the favor”.I am trying to find things to improve my website!I suppose its ok to use some of your ideas!!

  3. Nice blog right here! Additionally your site quite a bit
    up fast! What host are you the usage of? Can I am getting your
    affiliate hyperlink in your host? I want my web site
    loaded up as quickly as yours lol

  4. I was suggested this website by means of my cousin. I’m not certain whether this submit is written through him as no one
    else realize such special about my difficulty.

    You’re wonderful! Thank you!

  5. I’m really enjoying the design and layout of your blog. It’s
    a very easy on the eyes which makes it much more pleasant for me to come here and visit more often. Did you hire out a designer to create your theme?
    Excellent work!

  6. Hi, I do believe your website could be having internet browser compatibility issues.
    When I take a look at your website in Safari,
    it looks fine but when opening in IE, it’s got some overlapping issues.
    I just wanted to provide you with a quick heads up! Apart from that, great blog!

THOÁT KHỎI BÌNH LUẬN

Please enter your comment!
Please enter your name here