Question

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 đó.

Answer 1

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.