1. 程序实现求最大公约数。
procedure TForm1.Button1Click(Sender: TObject); var
m,n,t,r:long
word; begin
m:=strtoint(edit1.Text); n:=strtoint(edit2.Text); if m<=n then begin t:=m; m:=n; n:=t; end; repeat r:=m mod n; m:=n; n:=r; until r=0;
Label3.Caption:=inttostr(m); end;
2. 程序实现求最小公倍数。
procedure TForm1.Button1Click(Sender: TObject); var m,n,i,j:integer; begin
m:=strtoint(edit1.Text); n:=strtoint(edit2.Text); j:=compare(m,n); if m=j then m:=n; for i:=1 to j do begin
if (i*m) mod j=0 then break; end;
edit3.Text:=inttostr(i*m); end;
function Tform1pare(a:integer;b:integer):integer; begin
if a<=b then compare:=a else compare:=b; end;
procedure TForm1.Button2Click(Sender: TObject); begin
edit1.text:=''; edit2.text:='';
edit3.text:=''; end;
3 程序计算Sin(X)函数的值(不用delphi object pascal 内部函数)
procedure TForm1.Button1Click(Sender: TObject); var done,n,negative:integer; x,sinx,pow,x1,factor:real; begin
x:=strtofloat(edit1.Text );
done:=1;n:=1;factor:=1;negative:=1; pow:=x;
sinx:=pow/(factor*negative); while done=1 do begin n:=n+2; pow:=pow*x*x;
negative:=negative*(-1); factor:=factor*n*(n-1); x1:=pow/(factor*negative); if (abs(x1)<1e-3) then done:=0 else sinx:=sinx+x1; end;
edit2.Text :=floattostr(sinx); end;
4.
程序实现打印九九乘法表。
procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; s:string; begin
for i:=1 to 9 do begin s:='';
for j:=1 to i do
begin s:=s+' '+inttostr(i)+'*'+inttostr(j)+'='+inttostr(i*J); end;
listbox1.items.add(s); end; end;
5. 程序实现删除字符串中空格。
procedure TForm1.Button1Click(Sender: TObject);
var
s1,s:string; k,i:integer; s2 : string ; begin
s:=edit1.Text; i:=length(s);
for k:=1 to i do begin s1:=copy(s,k,1); if (s1=' ') then begin
s2:= copy(s,k+1,(i-k)); s2 := trim(s2); s:=copy(s,1,k-1) + s2 ; end; end;
s:=trim(s); edit2.Text:=s; end;
6. 程序实现统计字符串中各种字符个数。
procedure TForm1.Button1Click(Sender: TObject); var i,j,k,m,idx:integer; s,st:string; s0:string[1]; begin
s:=uppercase(edit1.text); for i:=1 to length(s) do begin
s0:=copy(s,i,1);
if (s0>='A')and (s0<='Z') then begin
for m:=0 to 25 do begin
if (chr(m+65)=s0) then begin
A[m]:=A[m]+1; break; end; end; end;
if (s0>='0') and (s0<='9') then begin
idx:=strtoint(s0); b[idx]:=b[idx]+1; end; end;
for j:=0 to 25 do begin
if (A[j]<>0) then begin
st:=chr(j+65)+':'+inttostr(A[j]); listbox1.items.add (st); end; end;
for k:=0 to 9 do begin
if (B[k]<>0) then begin
st:=inttostr(k)+':'+inttostr(B[k]); listbox1.items.add(st); end; end; end;
procedure TForm1.FormCreate(Sender: TObject); var m,n:integer; begin
for m:=0 to 25 do A[m]:=0; for n:=0 to 9 do B[n]:=0; end;
7. 程序实现数的阶乘。
procedure TForm1.Button1Click(Sender: TObject); var s:real; n,i:integer; begin
n:=strtoint(edit1.text); if n < 0 then
showmessage('数据有误'); s:=1;
for i:=1 to n do begin S:=i*S;
end;
edit2.Text :=floattostr(s); end;
8.从键盘任意输入一个正整数,然后把该数的每位数字逆序输出。
procedure TForm1.Button1Click(Sender: TObject); Var s1,s2:String;i,p:Integer; sz:Array[1..100] of String; begin
s1:=Edit1.Text; p:=0;
if Copy(s1,1,1)='+' then begin For i:=1 to length(s1)-1 do begin sz[i]:=Copy(s1,i+1,1);
if (sz[i]<'0') or (sz[i]>'9') then p:=p+1; end;
if (p>0) then Showmessage('输入错误,请输入正整数!') else be