Advertisement
Guest User

Untitled

a guest
Dec 16th, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.36 KB | None | 0 0
  1. {МИНУС}
  2. procedure TForm1.Button16Click(Sender: TObject);
  3. BEGIN
  4. //minus - знак переменной, а не действие
  5.    if (Edit1.Text='0') then
  6.    begin
  7.         minus:=true;
  8.         exit;
  9.    end else
  10.    //короче если minus, то тупо вводишь число и всё норм
  11.    //а потом короче такой нажимаешь любой другой знак или минус и
  12.    //число отображаетя с минусом ну а дальше по классике
  13.  
  14.    if  (pos('/', Sign)=0) and
  15.        (pos('*', Sign)=0) and
  16.        (pos('+', Sign)=0) and
  17.        (pos('-', Sign)=0) then
  18.            pustota:=Edit1.Text;
  19.            if pustota='0' then
  20.            begin
  21.                  Delete(pustota,length(pustota),1);
  22.                  Edit1.Text:=FloatToStr(a);
  23.                  if minus then
  24.                  begin
  25.                       A:=-(StrToFloat(Edit1.Text));
  26.                       minus:=false;
  27.                  end else
  28.                       A:=StrToFloat(Edit1.Text);
  29.             end else
  30.             if minus then
  31.             begin
  32.               A:=-(StrToFloat(Edit1.Text));
  33.               minus:=false;
  34.             end else
  35.             A:=StrToFloat(Edit1.Text);
  36.             flag:=true;
  37. Sign:=(Sender as TButton).Caption;
  38. Edit1.Text:=FloatToStr(a);
  39. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement