Yêu Toán nhất
Bạn ơi, Toán học là gì?
Đó là thủ thuật, đó là tinh khôn!
...
Nay Toán yêu của ta có thêm Tin cộng lực
Dù yêu Tin, ta vẫn yêu Toán nhất trên đời!
Hà Nội, 30/7/2007
Chào bạn! Rất vui vì bạn đã vào thăm blog của tôi: -)
Program Giai_Tam_Giac; uses crt; var a,b,c,p,s,ha,ma,la,l1a,R,r1,ra:real; BEGIN ClrScr; writeln('Giai tam giac theo 3 canh'); repeat write('a,b,c='); readln(a,b,c); if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then begin p:=a+b+c; {Moi dau p la ca chu vi} writeln('Chu vi = ',p:0:3); p:=p/2; {Bay gio p la nua chu vi} S:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln('Dap so: S = ',s:0:3); ha:=2*s/a; writeln(' ha = ',ha:0:3); {Duong cao AH} ma:=1/2*sqrt(2*b*b+2*c*c-a*a); writeln(' ma = ',ma:0:3); {Trung tuyen AM} la:=sqrt(b*c*(b+c)*(b+c)-a*a)/(b+c); writeln(' la = ',la:0:3); {Phan giac trong AD} l1a:=sqrt(b*c*(a*a-(b-c)*(b-c)))/abs(b-c); writeln(' l''a = ',l1a:0:3); {l' la phan giac ngoai AD} r:=s/p; writeln(' r = ',r:0:3); {Duong tron noi tiep} ra:=s/(p-a); writeln(' ra = ',ra:0:3); {Duong tron bang tiep goc A} R1:=a*b*c/4/s; writeln(' R = ',r1:0:3); {Duong tron ngoai tiep} end else writeln('a,b,c khong la ba canh tam giac') until readkey=#27 END.
