thu tuc vao ra du lieu

Nhập dữ liệu vào từ bàn phímRead; • Danh sách biến vào: là một hay nhiều biến đơn, tr ờng hợp nhiều biến đơn phải cách nhau bởi dấu ’,’ • Thủ tục READLN có thể không có tham số dùng để

Bµi häc thªm

Gi¸o ¸n ®iÖn tö tin häc líp 8

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

Read(<danh sách biến vào>);

• Danh sách biến vào: là một hay nhiều biến đơn, tr ờng hợp nhiều

biến đơn phải cách nhau bởi dấu ’,’

• Thủ tục READLN có thể không có tham số dùng để tạm dừng ch ơng trình cho đến khi ng ời dùng ấn phím Enter Readln;

I Các thủ tục chuẩn vào/ra đơn giản

1 Thông báo nhập Write(‘Thông báo );’

pascal

2 Nhập thông tin từ bàn phím

Readln(<danh sách biến vào>);

Write(‘ Nhap vao chieu dai, chieu rong HCN:’);

readln(a,b);

Ví dụ:

2 Đ a thông tin ra màn hình

Write(< Danh sách kết quả: >:n:m);

Danh sách kết quả: Có thể là tên biến, biểu thức, hàm hoặc hằng.

Writeln(< Danh sách kết quả: >:n:m);

Write(‘ chieu dai, rong HCN la :’,a, ’ ’,b);

Ví dụ: Write (‘ Chu vi hinh chu nhat = ’ , CV:7:2 );

• Các hằng xâu th ờng đ ợc dùng để đ a ra chú thích hoặc để tách các kết quả.

• Trong thủ tục Write hoặc Writeln sau mỗi kết quả ra (biến, hằng, biểu thức) có thể có quy cách ra Quy cách ra có dạng:

+ Đối với kết quả thực : : <Độ rộng> : <Số chữ số thập phân>

• Các thành phần trong kết quả ra đ ợc viết cách nhau bởi dấu ’,’.

3 Mét sè vÝ dô

Program VD_1;

Var N: Byte;

BEGIN

Write(‘ Lop ban co bao nhieu nguoi: ‘);

Readln(N);

Writeln(‘ That the a! Vay la ban co ‘,N-1,’ nguoi ban trong lop ’);

Writeln(‘ Go Enter de ket thuc chuong trinh.’);

Readln;

END.

PhÇn khai b¸o

PhÇn th©n ch

¬ng tr×nh

Thñ tôc nhËp d÷

liÖu tõ bµn phÝm Thñ tôc in kÕt qu¶

ra mµn h×nh

VÝ dô 1: H·y nªu tªn c¸c thµnh phÇn vµ c¸c thñ tôc trong ch ¬ng

tr×nh sau:

Lop ban co bao nhieu nguoi:

* Khi nhập giá trị cho nhiều biến, mỗi giá trị cách nhau một dấu cách

* Nhập xong nhấn phím ENTER để thực hiện lệnh tiếp theo.

42 That the a! Vay ban co 41 nguoi ban trong lop.

-Chươngưtrìnhưchạyưvàưchoưkếtưquảưnhưưsau:

Program VD_2;

Var a,b,CV,S: real;

BEGIN

Write(‘ Nhap chieu dai va chieu rong cua HCN: ’);

Readln(a,b);

CV:= (a+b)*2; S:= a*b;

Writeln(‘ Chu vi HCN = ’, CV:7:2);

Writeln(‘Dien tich HCN =’,S:7:2);

Readln;

END.

VÝ dô 2 : ViÕt ch ¬ng tr×nh tÝnh vµ in ra mµn h×nh chu vi

(CV) vµ diÖn tÝch (S) cña h×nh ch÷ nhËt, víi chiÒu dµi a vµ chiÒu réng b bÊt k×

H·y nhí!

Th«ng th êng c¸c ch ¬ng

tr×nh cÇn cã sù hç trî tõ

tÖp th viÖn TURBO.TPL

 Thñ­tôc­nhËp­th«ng­tin­tõ­bµn­phÝm.

 Thñ­tôc­®­a­th«ng­tin­ra­mµn­h×nh – Read(<Danh s¸ch biÕn vµo>);

Ch ¬ng tr×nh Pascal cã thÓ so¹n th¶o, dÞch vµ thùc hiÖn b»ng tÖp Turbo.exe

– Readln(<Danh s¸ch biÕn vµo>);

– Write(<Danh s¸ch kÕt qu¶ ra>);

– Writeln(<Danh s¸ch kÕt qu¶ ra>);