1/Viết chương trình tính diện tích, chu vi hình tròn .Với bán kính r (số nguyên) nhập từ bàn phím
2/Viết chương trình tính diện tích, chu vi hình chữ nhật .Với chiều dài và chiều rộng nhập từ bàn phím
1/Viết chương trình tính diện tích, chu vi hình tròn .Với bán kính r (số nguyên) nhập từ bàn phím
2/Viết chương trình tính diện tích, chu vi hình chữ nhật .Với chiều dài và chiều rộng nhập từ bàn phím
1.
uses crt;
var r: integer;
begin
clrscr;
write(‘Nhap r = ‘); readln(r);
writeln(‘Dien tich = ‘, r*r*pi);
writeln(‘Chu vi = ‘, 2*r*pi);
readln
end.
2.
uses crt;
var a, b: real;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
writeln(‘Dien tich: ‘, a*b);
writeln(‘Chu vi: ‘, (a+b)*2);
readln
end.
Câu 1:
Uses crt;
Var r, s, p: integer;
Const pi=3.14;
Begin
Clrscr;
Write(‘Nhap ban kinh r: ‘); readln(r);
s:=pi*sqr(r);
p:=2*r*pi;
Writeln(‘Dien tich la: ‘,s:7:2);
Writeln(‘Chu vi la: ‘,p:7:2);
Readln
End.
Câu 2:
Uses crt;
Var a, b, s, p: real;
Begin
Clrscr;
Write(‘Nhap chieu dai a = ‘); readln(a);
Write(‘Nhap chieu rong b = ‘); readln(b);
s:=a*b;
p:=(a+b)*2;
Writeln(‘Chu vi la: ‘,p:8:2);
Writeln(‘Dien tich la: ‘,s:8:2);
Readln
End.