Program dien_tich_phan_gach; Uses crt; Var a: real; Conts pi = 3,1416; Begin Clrscr; Write(‘Nhap ban kinh duong tron a (a>0): ‘); Readln(a) , write(‘Dien tich phan gach cheo la: ‘,a*a*pi/2:20:4); Readln
End .
Khi chạy chương trình, nếu a = 2 thì diện tích phần gạch là 6.2832;
*Bạn tham khảo nhé:
Program Ct1;
Uses crt;
Var a:real;
Begin
Writeln(‘Nhap vao so a’);
Readln(a);
Writeln(‘dien tich phan gach cheo la ‘,(a*a*3.14)/2:0:4);
Readkey();
End.
Program dien_tich_phan_gach;
Uses crt;
Var a: real; Conts pi = 3,1416;
Begin
Clrscr;
Write(‘Nhap ban kinh duong tron a (a>0): ‘);
Readln(a) ,
write(‘Dien tich phan gach cheo la: ‘,a*a*pi/2:20:4);
Readln
End .
Khi chạy chương trình, nếu a = 2 thì diện tích phần gạch là 6.2832;
nếu a = 3 thì diện tích phần gạch là 14.1372;
nếu a = 5 thì diện tích phần gạch là 3 1.8086
Học tốt!!