procedure TForm1.Button4Click(Sender: TObject);
begin
label1.Visible:=true;
if Length(label1.Caption)< 8 then begin
if x=0 then begin a:=a+'4'; label1.Caption:=a; end; end;
if Length(label3.Caption)< 8 then begin
if x=1 then begin label3.Visible:=true; b:=b+'4';
label3.Caption:=b; end; end; end;
procedure TForm1.Button5Click(Sender: TObject);
begin
label1.Visible:=true;
if Length(label1.Caption)< 8 then begin
if x=0 then begin a:=a+'5';
label1.Caption:=a; end; end;
if Length(label3.Caption)< 8 then begin
if x=1 then begin label3.Visible:=true; b:=b+'5';
label3.Caption:=b; end; end; end;
procedure TForm1.Button6Click(Sender: TObject);
begin
label1.Visible:=true;
if Length(label1.Caption)< 8 then begin
if x=0 then begin a:=a+'6'; label1.Caption:=a; end; end;
if Length(label3.Caption)< 8 then begin
if x=1 then begin label3.Visible:=true; b:=b+'6'; label3.Caption:=b; end; end; end;
procedure TForm1.Button7Click(Sender: TObject);
begin
label1.Visible:=true;
if Length(label1.Caption)< 8 then begin
if x=0 then begin
a:=a+'7'; label1.Caption:=a; end; end;
if Length(label3.Caption)< 8 then begin
if x=1 then begin label3.Visible:=true; b:=b+'7';
label3.Caption:=b; end; end; end;
procedure TForm1.Button8Click(Sender: TObject);
begin
label1.Visible:=true;
if Length(label1.Caption)< 8 then begin
if x=0 then begin a:=a+'8'; label1.Caption:=a; end; end;
if Length(label3.Caption)< 8 then begin
if x=1 then begin label3.Visible:=true; b:=b+'8'; label3.Caption:=b; end; end; end;
procedure TForm1.Button9Click(Sender: Tobject);
begin
label1.Visible:=true;
if Length(label1.Caption)< 8 then begin
if x=0 then begin
a:=a+'9';
label1.Caption:=a; end; end;
if Length(label3.Caption)< 8 then begin
if x=1 then begin
label3.Visible:=true;
b:=b+'9';
label3.Caption:=b; end; end; end;
procedure TForm1.Button10Click(Sender: TObject);
begin
label1.Visible:=true;
if Length(label1.Caption)< 8 then begin
if x=0 then begin
a:=a+'0';
label1.Caption:=a; end; end;
if Length(label3.Caption)< 8 then begin
if x=1 then begin
label3.Visible:=true;
b:=b+'0'; label3.Caption:=b; end; end; end;
procedure TForm1.Button11Click(Sender: TObject);
begin
label2.Visible:=true;
label2.Caption:='+'; x:=1; c:=1; end;
procedure TForm1.Button12Click(Sender: TObject);
begin
label2.Visible:=true;
label2.Caption:='-'; x:=1; c:=2; end;
procedure TForm1.Button14Click(Sender: TObject);
begin
label2.Visible:=true;
label2.Caption:='/';
x:=1; c:=3; end;
procedure TForm1.Button13Click(Sender: TObject);
begin
label2.Visible:=true; label2.Caption:='*'; x:=1; c:=4; end;
procedure TForm1.Button15Click(Sender: TObject);
begin
label4.Visible:=true;
if c=1 then begin
label4.Caption:='= '+inttostr(strtoint(label1.Caption) + strtoint(label3.Caption));
end;
if c=2 then begin
label4.Caption:='= '+inttostr(strtoint(label1.Caption) - strtoint(label3.Caption));
end;
if c=3 then begin
label4.Caption:='= '+inttostr(strtoint(label1.Caption) div strtoint(label3.Caption));
end;
if c=4 then begin
label4.Caption:='= '+ inttostr(strtoint(label1.Caption) * strtoint(label3.Caption));
end;
if Length(inttostr(strtoint(label1.Caption) * strtoint(label3.Caption))) > 8 then begin
label4.Caption:='= ПЕРЕГРУЗКА';
end; end;
procedure TForm1.Button16Click(Sender: TObject);
begin
a:=''; b:=''; x:=0; c:=5;
label1.Visible:=false; label1.Caption:=''; label2.Visible:=false; label2.Caption:=''; label3.Visible:=false; label3.Caption:=''; label4.Visible:=false; label4.Caption:='';
end;end.
Файлы проекта размещены на диске, в папке “Математика в DELPHI”. Запускаем программу командой RUN .Пробуем посчитать, и идем дальше.
| 
Главная 
