Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
KI DO

Cho tệp văn bản HCN.txt là kích thước (chiều rộng và chiều dài) các hình chữ nhật. Nội dung là các cặp số nguyên thể hiện kích thước các hình chữ nhật, các cặp số nguyên cách nhau bởi dấu cách và viết trên 1 dòng, như hình sau:

https://i.imgur.com/9IXVWxf.jpg

Yêu cầu: Viết chương trình Pascal thực hiện đọc các cặp kích thước (chiều rộng và chiều dài) từ tệp HCN.txt. Tính rồi đưa ra màn hình diện tích và chu vi các hình chữ nhật đó.

Minh Lệ
11 tháng 4 2020 lúc 7:41

Nghĩa là có 3 cặp chiều rộng và chiều dài đúng không bạn. Lần sau bạn ghi đề rõ hơn nhé.

Program hotrotinhoc;

const fi:='HCN.txt';

var a,b,c,d,e,f: integer;

dt1,dt2,dt3,cv1,cv2,cv3: longint;

f1: text;

procedure ip;

begin

assign(f1,fi);

reset(f1);

readln(f1,a,b);

dt1:=a;

dt1:=dt1*b;

cv1:=2*(a+b);

readln(f1,c,d);

dt2:=c;

dt2:=dt2*d;

cv2:=2*(c+d);

readln(f1,e,f);

dt3:=e;

dt3:=dt3*f;

cv3:=2*(e+f);

close(f);

end;

begin

ip;

writeln('Dien tich : ',dt1,' Chu vi :',cv1);

writeln('Dien tich : ',dt2,' Chu vi :',cv2);

writeln('Dien tich : ',dt3,' Chu vi :',cv3);

readln

end.


Các câu hỏi tương tự
Nguyen Duc Anh
Xem chi tiết
Nhật Quỳnh
Xem chi tiết
Chí Nguyễn
Xem chi tiết
Namn
Xem chi tiết
Lê Thị Ngọc Anh
Xem chi tiết
Vũ văn huy
Xem chi tiết
Vũ Nam Anh
Xem chi tiết
An Hạ
Xem chi tiết
Kiên Ngọc
Xem chi tiết