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.