Question

Viết chương trình tính diện tích hình tròn với bán kính được nhập từ bàn phím

Answer 1

Chương trình như sau:

Program dthinhtron; 
uses crt; 
var r,s:real; 
BEGIN 
clrscr; 
writeln('Nhap ban kinh r: '); 
readln(r); 
s:=r*r*PI; 

Answer 2

program dientich;

var          n:integer;

begin

                write('nhap n:');readln(n);

                write('dien tich hinh tron:',n*n*3.14:8:2);

                readln;

end.

Answer 3

program dien_tich_hinh_tron;

Var x : integer;

begin

readln (x);

writeln ('dien tích hinh tron la' x*x*3.14);

readln;

end.