Bài soạn Bài 7 + 8: Các thủ tục chuẩn vào/ra đơn giản

Bài toán 1: • Hãy khai báo các biến cần dùng trong ch ơng trình.. • Viết lệnh gán để tính chu vi, diện tích hình chữ nhật... Để giải quyết bài toán trên các ngôn ngữ lập trình cung cấp t

Bµi 7

Bài toán đặt vấn đề

?

Viết ch ơng trình tính chu vi (CV) và diện tích (S) của hình chữ nhật, biết chiều dài a = 12 , chiều rộng b = 8

Bài toán 1:

• Hãy khai báo các biến cần dùng trong ch ơng trình.

• Viết lệnh gán để tính chu vi, diện tích hình chữ nhật

 Var a,b,CV,S : byte;

 a := 12; b := 8;

CV := (a+b)*2;

S := a*b;

Để giải quyết bài toán trên các ngôn ngữ lập trình cung cấp thủ tục chuẩn vào/ra đơn giản.

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ì

Bài toán 2:

? • Hãy nêu cách giải quyết bài toán trên?

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

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

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

Nhập chiều dài, chiều rộng của hỡnh ch ữ nhật:

Readln(a,b);

Ví dụ:

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

Write(<danh sách kết quả>);

Trong đó : 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ả>);

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>

+ Đối với kết quả khác : : <Độ rộng>

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

* Cấu trúc câu lệnh:

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×

Bµi 8:

So¹n th¶o, dÞch, thùc hiÖn vµ hiÖu chØnh ch ¬ng tr×nh

So¹n th¶o: Nh so¹n th¶o v¨n b¶n MS Word

Biªn dÞch ch ¬ng tr×nh: NhÊn tæ hîp phÝm Alt + F9

Më tÖp: F3

Tho¸t khái ch ¬ng tr×nh Pascal: Alt + X

Ch¹y ch ¬ng tr×nh: NhÊn tæ hîp phÝm Ctrl + F9

§ãng cöa sæ ch ¬ng tr×nh: Alt + F3

L u ch ¬ng tr×nh (file): F2

H·y nhí!

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

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

 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

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

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

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