Bài 14: Kiểu dữ liệu tệp

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

Cho tệp văn bản HCN.INP gồm nhiều dòng, mỗi dòng chứa 2 số nguyên (các số cách nhau ít nhất một dấu cách) tương ứng là chiều dài và chiều rộng của một hình chữ nhật. Lập trình đọc dữ liệu từ tệp này, tính chu vi và diện tích hình chữ nhật. Kết quả ghi ra tệp HCN.OUT, mỗi dòng ghi hai giá trị tương ứng là chu vi và diện tích của hình chữ nhật, các giá trị cách nhau ít nhất một dấu cách.

Nguyễn Lê Phước Thịnh
6 tháng 2 2021 lúc 22:05

const fi='hcn.inp'     

fo='hcn.out'

var f1,f2:text;   

a,b:array[1..100]of integer;   

i,j,n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

begin     

inc(n);     

readln(f1,a[n],b[n]); 

end;

for i:=1 to n do 

writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);

close(f1);

close(f2);

end.


Các câu hỏi tương tự
Đỗ Huyền
Xem chi tiết
Thành Đạt.
Xem chi tiết
Đỗ Ngọc Linh
Xem chi tiết
Lê Tràn Diễm My
Xem chi tiết
Minh Trí Đoàn
Xem chi tiết
Veras Khôi
Xem chi tiết
A8_ Võ Thị Thương
Xem chi tiết
supper hunter
Xem chi tiết
Nhật Anh
Xem chi tiết