Bài 2. Diên tích hình chữ nhật - Dữ liệu đọc từ File

1. Bài toán

  Yêu cầu: Viết chương trình tính diện tích hình chữ nhật. Dữ liệu lấy từ tệp

• Input: Lấy dữ liệu từ file hcn.inp theo cấu trúc 1 dòng gồm hai số cách nhau bằng một khoảng trắng
• Output:Ghi ra file hcn.out kết quả tổng a và b

2. Giải thuật:

Bước 1. Nhập thông tin:

• Bước 1.1. Lấy hai số chiều rộng và chiều dài từ tệp hcn.inp bằng cấu trúc assign(biến tệp, tên tệp)

Bước 2. Xử lý:

• Bước 2.1. S:= crong*chdai;

Bước 3. Ghi ra file hcn.out kết quả diện tích hình chữ nhật.

3. Code Pascal:

Program DT_Hcn;
Var crong,chdai,S: integer;
    f: text;
Begin
     assign(f,'hcn.inp');
     reset(f);
     read(f,crong,chdai);
     close(f);
     S:=crong * chdai;
     assign(f,'hcn.out');
     rewrite(f);
     write(f,S);
     close(f);
End.

4. Giải thích code

Dong code	Ý nghĩa
Program DT_Hcn;	Đặt tên chương trình DT_Hcn
Var crong,chdai,S: integer;	Khai báo biến crong(chiều rộng),chda(chiều dài), S(diện tích) kiểu integer
f: Text	Khai báo biến tệp f
assign(f,'hcn.inp');	Gán tên tệp
reset(f);	Thủ tục mở tệp để đọc
read(f,crong,chdai);	Đọc hai bến crong(chiều rộng), chdai(chiều dài) từ tệp
close(f);	Đóng tệp sau khi đọc
S:=crong * chdai;	Gán diện tích S = chiều dài * chiều rộng
assign(f,'hcn.out');	Gán tên tệp
rewrite(f);	Thủ tục mở tệp chuẩn bị ghi
write(f,S)	Ghi giá trị biến tong vào file hcn.out
close(f);	Đóng tệp sau khi ghi
End.	Kết thúc chương trình

5. Kết Quả Pascal

Kết luận:
    ▪ Bài này chúng ta lấy dữ liệu từ tệp không lấy dữ liệu từ bàn phím
    ▪ Kết quả ghi ra file hcn.out chứ không in ra màn hình.