Question

Cho tìm input.txt tên này chứa liên tiếp các cặp số là chiều dài chiều rộng của các hình chữ nhật. a) viết công thức đọc tệp input.txt tính chu vi của các hình chữ nhật và in ra màn hình b) đồng thời ghi các chu vi xuống tệp output

Answer 1

Uses crt;

Const fi='input.txt'

Fo='output.txt'

Var f1,f2:text;

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

I,n:integer;

Begin

Clrscr;

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

  Begin

Writeln('Chu vi hinh chu nhat thu ',i,' la: ',(a[i]+b[i])*2);

Writeln(f2,Chu vi hinh chu nhat thu ',i,' la: ',(a[i]+b[i])*2);

End;

Close(f1);

Close(f2);

Readln;

End.