Viết cấu trúc chương trình tính diện tích hình thang, diện tích hình tròn ?. Giúp mình với ạ
0 bình luận về “Viết cấu trúc chương trình tính diện tích hình thang, diện tích hình tròn ?. Giúp mình với ạ”
Var a,b,h,S : ……..
.
Write(‘nhap a day lon , b day be, h chieu cao’);
Readln(a,b,h);
Sao:=((a+b)/2)*h;
write(‘dien tich HT là ‘,S);
.
.
.
Var r,S : real
Write(‘nhap ban kinh r’)
Readln(r);
S:=spr(r)*3.14;
Write'(‘dien tich hinh tron’,S);
Var a,b,h,S : ……..
.
Write(‘nhap a day lon , b day be, h chieu cao’);
Readln(a,b,h);
Sao:=((a+b)/2)*h;
write(‘dien tich HT là ‘,S);
.
.
.
Var r,S : real
Write(‘nhap ban kinh r’)
Readln(r);
S:=spr(r)*3.14;
Write'(‘dien tich hinh tron’,S);
(Mình viết phần thân thôi , còn lại bạn gắn vào)