Mình moi lop 10 ban ak
Các điều hành viên: Admin, Mod, SMod
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
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.