Viết chương trình 1 dãy 2 số nguyên là 2 cạnh của hình chữ nhật từ tệp có tên là Dulieu.txt. Tính và in ra màn hình chu vi và diện tích của các hình chữ nhật theo kích thước đã cho
=> giúp mình với ạ
Viết chương trình 1 dãy 2 số nguyên là 2 cạnh của hình chữ nhật từ tệp có tên là Dulieu.txt. Tính và in ra màn hình chu vi và diện tích của các hình chữ nhật theo kích thước đã cho
=> giúp mình với ạ
Const Fi=’Dulieu.TXT’;
Var f: text;
a,b: extended;
Begin
Assign(f,Fi); Reset(f);
Read(f,a,b);
Writeln(‘Dien tich: ‘,a*b:0:2);
Write(‘Chu vi: ‘,(a+b)*2:0:2);
Close(f);
Readln
End.