⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.pas

📁 计数器802611 .jsq.rar
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
            end;
      if xiaoshudian=1 then
        begin
          y:=myrightedit1.Text;
          myrightedit1.Text:=y+'2';
        end;
    end;
  if yunsuan=1 then
    begin
      myrightedit1.Text:='2.';
      yunsuan:=0;
      xiaoshudian:=0;
    end;
  shuzi:=1;
       if js=1 then
  begin
  n:=0;
  js:=js-1;
  end;
end;

procedure TForm1.SpeedButton16Click(Sender: TObject);
begin
  s1:=strtofloat(myrightedit1.Text);
  n:=1;
  yunsuan:=1;
  if js=1 then
  begin
  js:=js+1;
  end;
end;

procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
  xiaoshudian:=1;
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
  s1:=strtofloat(myrightedit1.Text);
  n:=2;
  yunsuan:=1;
  if js=1 then
  begin
  js:=js+1;
  end;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
  s1:=strtofloat(myrightedit1.Text);
  n:=3;
  yunsuan:=1;
  if js=1 then
  begin
  js:=js+1;
  end;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  s1:=strtofloat(myrightedit1.Text);
  n:=4;
  yunsuan:=1;
  if js=1 then
  begin
  js:=js+1;
  end;
end;

procedure TForm1.SpeedButton20Click(Sender: TObject);
var
i,j:integer;
begin
  if (n in [1,2,3,4]) then
  begin
  if shuzi=1 then
  begin
    s3:=strtofloat(myrightedit1.Text);
    s2:=s3;
    case n of
     1:x:=floattostr(s1+s2)+'.';
     2:x:=floattostr(s1-s2)+'.';
     3:x:=floattostr(s1*s2)+'.';
     4:if s2=0 then
       begin
         x:='0.';
       end
       else
       begin
         x:=floattostr(s1/s2)+'.';
       end;
  end;
  js:=1;
 end;
  if shuzi=0 then
   begin
     s2:=s3;
     s1:=strtofloat(myrightedit1.Text);
     case n of
     1:x:=floattostr(s1+s2)+'.';
     2:x:=floattostr(s1-s2)+'.';
     3:x:=floattostr(s1*s2)+'.';
     4:if s2=0 then
       begin
         x:='0.';
       end
       else
       begin
         x:=floattostr(s1/s2)+'.'
     end;
    end;
    js:=1;
  end;
  j:=0;
  k:=length(x);
  for i:=1 to k do
   if x[i]='.' then
    begin
     j:=j+1;
    end;
   if j>1 then
   begin
     setlength(x,k-1);
     myrightedit1.Text:=x;
     yunsuan:=1;
     shuzi:=0;
   end
   else
   begin
    myrightedit1.Text:=x;
    yunsuan:=1;
    shuzi:=0;
   end;
  end;
end;

procedure TForm1.SpeedButton25Click(Sender: TObject);
var
pp:string;
m:integer;
begin
  pp:=myrightedit1.Text;
  m:=length(pp);
  if m=2 then
  begin
  myrightedit1.Text:='0.';
  xiaoshudian:=0;
  end
  else
  begin
  if pp[m]='.' then
  begin
    setlength(pp,m-2);
    myrightedit1.Text:=pp+'.'
  end;
  if pp[m]<>'.' then
  begin
    setlength(pp,m-1);
    myrightedit1.Text:=pp;
  end;
end;


end;

procedure TForm1.SpeedButton26Click(Sender: TObject);
begin
  myrightedit1.Text:='0.';
end;

procedure TForm1.SpeedButton27Click(Sender: TObject);
begin
  myrightedit1.Text:='0.';
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
var
xx:string;
yy:string;
j:integer;
begin
  if fuhao=0 then
  begin
    xx:=myrightedit1.Text;
    myrightedit1.Text:='-'+xx;
    fuhao:=1;
  end
  else
  if fuhao=1 then
  begin
    yy:=myrightedit1.Text;
    j:=pos('-',yy);
    delete(yy,j,1);
    myrightedit1.Text:=yy;
    fuhao:=0;
  end;

end;

procedure TForm1.SpeedButton17Click(Sender: TObject);
var
x1,x2:real;
x3:string;
x4,x5,j:integer;
begin
 x1:=strtofloat(myrightedit1.Text);
  if x1<0 then begin
  myrightedit1.Text:='0.';
  end;
  if x1>=0 then
  begin
    x2:=sqrt(x1);
    x3:=floattostr(x2);
    x4:=length(x3);
    j:=0;
    for x5:=1 to x4 do
    if x3[x5]='.' then
    j:=j+1;
    if j=1 then
    begin
      myrightedit1.Text:=x3;
    end;
    if j<1 then
    begin
      myrightedit1.Text:=x3+'.';
     end;

  end;
  yunsuan:=1;
  js:=0;
  n:=0;
end;

procedure TForm1.SpeedButton18Click(Sender: TObject);
var
x1,x2:real;
x3:string;
x4,x5,j:integer;
begin
  x1:=strtofloat(myrightedit1.Text);
    x2:=sqr(x1);
    x3:=floattostr(x2);
    x4:=length(x3);
    j:=0;
    for x5:=1 to x4 do
    if x3[x5]='.' then
    j:=j+1;
    if j=1 then
    begin
      myrightedit1.Text:=x3;
    end;
    if j<1 then
    begin
      myrightedit1.Text:=x3+'.';
     end;
  yunsuan:=1;
  js:=0;
  n:=0;
  end;

procedure TForm1.SpeedButton19Click(Sender: TObject);
var
x1,x2:real;
x3:string;
x4,x5,j:integer;
begin
  x1:=strtofloat(myrightedit1.Text);
    x2:=(x1*100);
    x3:=floattostr(x2);
    x4:=length(x3);
    j:=0;
    for x5:=1 to x4 do
    if x3[x5]='.' then
    j:=j+1;
    if j=1 then
    begin
      myrightedit1.Text:=x3;
    end;
    if j<1 then
    begin
      myrightedit1.Text:=x3+'.';
     end;
  yunsuan:=1;
  js:=0;
  n:=0;
  end;



procedure TForm1.SpeedButton28Click(Sender: TObject);
var
x1,x2:real;
x3:string;
x4,x5,j:integer;
begin
 x1:=strtofloat(myrightedit1.Text);
  if x1=0 then begin
  myrightedit1.Text:='0.';
  end;
  if x1<>0 then
  begin
    x2:=(1/x1);
    x3:=floattostr(x2);
    x4:=length(x3);
    j:=0;
    for x5:=1 to x4 do
    if x3[x5]='.' then
    j:=j+1;
    if j=1 then
    begin
      myrightedit1.Text:=x3;
    end;
    if j<1 then
    begin
      myrightedit1.Text:=x3+'.';
     end;

  end;
  yunsuan:=1;
  js:=0;
  n:=0;

end;

procedure TForm1.SpeedButton31Click(Sender: TObject);
var
x1,x2:real;
x3:string;
x4,x5,j:integer;
begin
 x1:=strtofloat(myrightedit1.Text);
  if x1<=0 then begin
  myrightedit1.Text:='0.';
  end;
  if x1>0 then
  begin
    x2:=ln(x1);
    x3:=floattostr(x2);
    x4:=length(x3);
    j:=0;
    for x5:=1 to x4 do
    if x3[x5]='.' then
    j:=j+1;
    if j=1 then
    begin
      myrightedit1.Text:=x3;
    end;
    if j<1 then
    begin
      myrightedit1.Text:=x3+'.';
     end;

  end;
 yunsuan:=1;
  js:=0;
  n:=0;

end;

procedure TForm1.SpeedButton30Click(Sender: TObject);
var
x1,x2:real;
x3:string;
x4,x5,j:integer;
begin
  x1:=strtofloat(myrightedit1.Text);
    x2:=sin(x1);
    x3:=floattostr(x2);
    x4:=length(x3);
    j:=0;
    for x5:=1 to x4 do
    if x3[x5]='.' then
    j:=j+1;
    if j=1 then
    begin
      myrightedit1.Text:=x3;
    end;
    if j<1 then
    begin
      myrightedit1.Text:=x3+'.';
     end;
  yunsuan:=1;
  js:=0;
  n:=0;

end;

procedure TForm1.SpeedButton29Click(Sender: TObject);
var
x1,x2:real;
x3:string;
x4,x5,j:integer;
begin
  x1:=strtofloat(myrightedit1.Text);
    x2:=cos(x1);
    x3:=floattostr(x2);
    x4:=length(x3);
    j:=0;
    for x5:=1 to x4 do
    if x3[x5]='.' then
    j:=j+1;
    if j=1 then
    begin
      myrightedit1.Text:=x3;
    end;
    if j<1 then
    begin
      myrightedit1.Text:=x3+'.';
     end;
  yunsuan:=1;
  js:=0;
  n:=0;

end;

procedure TForm1.SpeedButton23Click(Sender: TObject);
begin
   ms:=myrightedit1.Text;
   panel1.Caption:='M';
   yunsuan:=1;
end;

procedure TForm1.SpeedButton22Click(Sender: TObject);
begin
  myrightedit1.Text:=ms;
  yunsuan:=1;

end;

procedure TForm1.SpeedButton21Click(Sender: TObject);
begin
  ms:='.';
  panel1.Caption:='';
end;

procedure TForm1.SpeedButton24Click(Sender: TObject);
var
 neicun:real;
 x3:string;
 x4,x5,j:integer;
begin
 neicun:=strtofloat(myrightedit1.Text);
 x3:=floattostr(neicun+strtofloat(ms));
 x4:=length(x3);
    j:=0;
    for x5:=1 to x4 do
    if x3[x5]='.' then
    j:=j+1;
    if j=1 then
    begin
      myrightedit1.Text:=x3;
    end;
    if j<1 then
    begin
      myrightedit1.Text:=x3+'.';
     end;
  yunsuan:=1;
 

end;

procedure TForm1.N2Click(Sender: TObject);
begin
xp:=myrightedit1.Text;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
  myrightedit1.Text:=xp;
end;

procedure TForm1.N6Click(Sender: TObject);
var
ss:real;
pp:string;
begin
  if yunsuan=0 then
  begin
  ss:=strtofloat(myrightedit1.Text);
  ll:=myrightedit1.text;
  pp:=formatfloat('#,##0.00',ss);
  myrightedit1.Text:=pp;
  yunsuan:=1;
end;
end;


procedure TForm1.N10Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
  showmessage('计算器人人会用，不需要帮助了吧！');
end;

procedure TForm1.N9Click(Sender: TObject);
begin
  aboutbox.ShowModal;
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -