var
  Form1: TForm1;
  wynik: string;
  l1,a,b: real;
  op,bin: integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='1'
  else Edit1.Text:=Edit1.Text+'1';


end;

procedure TForm1.Button18Click(Sender: TObject);
begin
  wynik:='0';
  Edit1.text:='0';
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
  bin:=StrToInt(Edit1.text);
  wynik:='';
  repeat
  if bin mod 2=1 then wynik:='1'+wynik;
  if bin mod 2=0 then wynik:='0'+wynik;
  bin:=bin div 2;
  until (bin=0);
  Edit1.text:=wynik;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='0'
  else Edit1.Text:=Edit1.Text+'0';

end;

procedure TForm1.Button14Click(Sender: TObject);
begin
    if Edit1.Text='0' then Edit1.Text:=','
    else Edit1.Text:=Edit1.Text+',';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
   l1:=StrToFloat(Edit1.Text);
  op:=3;
  Edit1.Text:='0';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
   l1:=StrToFloat(Edit1.Text);
  op:=4;
  Edit1.Text:='0';
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
  if (Edit1.Text<>'0') and (StrToFloat(Edit1.Text)>0) then begin
  a:=1;
  b:=StrToFloat(Edit1.Text);
  repeat
  a:=(a+b)/2;
  b:=StrToFloat(Edit1.Text)/a;
  until(a-b<0.00001);
  Edit1.Text:=FloatToStr(a);
  end

end;

procedure TForm1.Button11Click(Sender: TObject);
begin
   l1:=StrToFloat(Edit1.Text);
  op:=1;
  Edit1.Text:='0';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='-'
  else
    begin
     l1:=StrToFloat(Edit1.Text);
     op:=2;
     Edit1.Text:='0';
    end;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  if (op<>0) then begin
  if op=1 then Edit1.Text:=FloatToStr(StrToFloat(Edit1.Text)+l1);
  if op=2 then Edit1.Text:=FloatToStr(l1-StrToFloat(Edit1.Text));
  if op=3 then Edit1.Text:=FloatToStr(StrToFloat(Edit1.Text)*l1);
  if op=4 then
  begin
  if (l1<>0) AND (Edit1.Text<>'0') then
  Edit1.Text:=FloatToStr(l1/StrToFloat(Edit1.Text))
  else Edit1.Text:='0';
  end;
  end;
  end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='2'
  else Edit1.Text:=Edit1.Text+'2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='3'
  else Edit1.Text:=Edit1.Text+'3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='4'
  else Edit1.Text:=Edit1.Text+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='5'
  else Edit1.Text:=Edit1.Text+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='6'
  else Edit1.Text:=Edit1.Text+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='7'
  else Edit1.Text:=Edit1.Text+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='8'
  else Edit1.Text:=Edit1.Text+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  if Edit1.Text='0' then Edit1.Text:='9'
  else Edit1.Text:=Edit1.Text+'9';
end;





end.