Question

[Ngọc Chou]

Bài 4 : Cho tập tin Data.txt có nội dung là 2 số nguyên.
- Viết chương trình thực hiện công việc sau :
- Đọc giá trị của tập tin Data.txt vào 2 biến A, B.
- Tính diện tích và chu vi của hình chữ nhật biết (DT = A * B , CV = (A + B)*2)
- Tính chiều dài đường chéo của hình chữ nhật.(ĐC = căn bật hai của A2 + B2)
- Kết quả thu được sẽ được lưu vào tập tin có tên result.txt.
VD:
Tệp Data.txt có nội dung như sau
5
9
Tệp Result.txt lưu lại kết quả:
Chu vi cua hinh chu nhat la : 28.
Dien tich cua hinh chu nhat la : 45.
Chieu dai cua duong cheo la : 10.72

Answer 1

[Minh Lệ]

Program HOC24;

const fi='Data.txt';

fo='Result.txt';

var f: text;

a,b: integer;

dt,cv: longint;

dc: real;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,a);

readln(f,b);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

dt:=a*b;

cv:=(a+b)*2;

dc:=sqrt((a*a)+(b*b));

writeln(f,'Chu vi hinh chu nhat la : ',cv);

writeln(f,'Dien tich cua hinh chu nhat la : ',dt);

write(f,'Chieu dai cua duong cheo la : ',dc:1:2);

close(f);

end;

begin

ip;

out;

end.