Question

Cho hình tròn tâm I ( 0;0) bán kính R ( R nguyên). Viết chương trình: - Đọc vào 1 tệp có tên dt_ht.inp 1 dòng duy nhất bán kính R - Tính diện tích hình tròn và đưa ra tệp có tên dt_ht.out ( kết quả hiển thị 2 chữ số thập phân sau dấu phẩy)

Answer 1

program TinhDienTichHinhTron;
var
  fIn, fOut: Text;
  r: Integer;
  dien_tich: Real;
begin
  Assign(fIn, 'dt_ht.inp');
  Reset(fIn);
  Readln(fIn, r);
  Close(fIn);

  Assign(fOut, 'dt_ht.out');
  Rewrite(fOut);

  dien_tich := Pi * r * r;

  Writeln(fOut, FormatFloat('0.00', dien_tich));

  Close(fOut);
end.