Mình moi lop 10 ban ak
Đây là cách giải S ht nhé:
Program s.hinhtron;
Uses crt;
Const pi=3.14;
Var r,s:real;
Begin
(Ấn tab)clrscr
(Ấn tab)write('nhap ban kinh:');
(Ấn tab)readln(r)
(Ấn tab)S:=pi*r*r;
(Ấn tab)writeln('dien tich hinh tron la:',S:5:2);
(Ấn tab)readln
End.
Nhớ chép y nguyên nhá,cái này viết trên pascal turbo.
Chet quen nua tim hcn.Tam giac,min,max nhung la lam theo sơ đồ khối
so do khoi la ve vao may cai hinh a.ti minh tim cho bay h ban hoc them
Sơ do khoi lam tren pascal luon(if dieu kien then cau len1 else cau len 2)
Up
Co ai giup khong
Pascal la lop 11 ma
Lop 8la hoc pascal roi ai giup voi
Kái này ta nhai 10đ nhanh không. Dễ ợt. Làm toán tốt là pascal kũng không kém phần long trọng đâu.