0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
uses crt;
var r, cv, s : real;
const pi = 3.14;
begin
clrscr;
write('nhap ban kinh r :');readln(r);
cv := 2 * r * pi;
s := r * r * pi;
writeln('chu vi :', cv:3:1);
writeln('dien tich :', s:3:1);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
8
5
* Pascal :
Program Chu_vi_Dien_tich_hinh_tron;
Uses Crt;
Var r,dt,cv:real;
Begin
Clrscr;
Writeln(' Tinh dien tich va chu vi hinh tron:');
Readln('Tinh dien tich va chu vi hinh tron');
Write ('Nhap ban kinh r =');
Readln(r);<br /> dt:=pi*r*r;<br /> cv:=2*pi*r;<br />
Writeln('Dien tich hinh tron la:',dt:6:2);
Writeln('Chu vi hinh tron la:',cv:6:2);
Readln;
End.
Pạn vote5sao mìnk nka
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin