求一个任意三角形的面积.docVIP

例2.1求一个任意三角形的面积。 Procedure TForm1.Button1Click(Sender: TObject); var a,b,c,s,area:real;str1:string; begin a:=strtofloat(edit1.Text ); b:=strtofloat(edit2.Text ); c:=strtofloat(edit3.Text ); s:=(a+b+c)/2 ; area:=sqrt(s*(s-a)*(s-b)*(s-c)); str(area:8:3,str1); showmessage(面积为:+str1); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=; edit2.Text:=; edit3.Text:=; end; 例2.2托运行李。 procedure TForm1.Button1Click(Sender: TObject); var w,x:real; begin if edit1.text=then edit1.Text:=0; w:=strtofloat(edit1.text); if w=50 then x:=0.25*w else if w=100 then x:=0.25*50+0.35*(w-50) else x:=0.25*50+0.35*50+0.45*(w-100); edit2.Text:=floattostr(x); edit1.SelStart :=0; edit1.SelLength :=length(edit1.text); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=; edit2.Text:=; end; 例2.3求1+2+3+4+,,,,+100的累加和。 procedure TForm1.Button1Click(Sender: TObject); var s,n:integer; begin s:=0;n:=1; while n=100 do begin s:=s+n; n:=n+1; end; edit1.Text :=inttostr(s); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text :=; end; 例2.4求两个正整数它们的最大公约数。 procedure TForm1.Button1Click(Sender: TObject); var n,m,temp,r:integer; begin n:=strtoint(edit1.Text); m:=strtoint(edit2.Text); if nm then begin temp:=n;n:=m;m:=temp; end; repeat r:=m mod n; m:=n; n:=r; until r=0; edit3.Text:=format(%s与%s的最大公约数是%d, [edit1.Text,edit2.Text,m]); end; procedure TForm1.Button2Click(Sender: TObject); begin edit1.Text:=; edit2.Text:=; edit3.Text:=; end; 例2.5素数 procedure TForm1.Button1Click(Sender: TObject); var s,n,i,j:Integer; m,q:real; a:string; begin m:=strtofloat(edit1.text); n:=round(m); if n3 then showmessage(请输入一个大于2的整数！); s:=0; q:=sqrt(m); j:=trunc(q); for i:=2 to j do begin if n mod i=0 then s:=1; if s=0 then a:=是一个素数 else a:=不是素数;