Viết chương trình để tính diện tích S của hình tròn (S=Pi*R*R) với bán kính R và hằng số Pi Là 3.14 (R là số thực được nhập từ bàn phím).

2 câu trả lời

program bai_giai;
uses crt;
var r:longint;const pi=3.14;
begin
 clrscr;
  write('nhap ban kinh:');readln(r);
  write('dien tich hinh tron do la:',r*r*pi:4:2);
 readln;
end.

Program baitap;

Uses crt;

Var S,R:real;

Const Pi=3.14;

Begin

Clrscr;

Write('R='); Readln(R);

S:=Pi*R*R;

Writeln('Dien tich hinh tron:',S:9:3);

Readln

End.

Câu hỏi trong lớp Xem thêm