M.N giup tí

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.

Những người đã like dinoxlc bởi bài viết có ích này:

Bekvam

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.