Viết chương trình tính diện tích hình tròn với bán kính r được nhập từ bàn phím.
2 câu trả lời
Program S_Hinh_Tron;
Uses Crt;
Var r,S:real;
Begin
Clrscr;
Writeln(‘Tinh dien tich hinh tron:’);
Write (‘Nhap ban kinh R=’);readln(r);
dt:=pi*r*r;
Writeln(‘Dien tich hinh tron la:’,dt:6:2);
Readln;
End.
program S_hinh_tron;
uses crt;
Var r,S:real;
begin
clrscr;
writeln(‘Tinh dien tich hinh tron:’);
write (‘Nhap ban kinh R=’);readln(r);
S:=pi*r*r;
writeln(‘Dien tich hinh tron la:’,S:6:2);
readln;
end.