Delphi визуалды программалау ортасы


var Form1: TForm1; A, B, kosyndy: Integer; procedure



бет56/98
Дата07.02.2022
өлшемі1,51 Mb.
#85980
1   ...   52   53   54   55   56   57   58   59   ...   98
Байланысты:
Delphi

var
Form1: TForm1;
A, B, kosyndy: Integer;
procedure kos(A, B: Integer);
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
Kos(A, B);
Caption:=IntToStr(kosyndy);
end;

procedure kos (A, B: Integer);
begin
kosyndy:=A+B;
end;

Мұнда процедура оны шақыруды ұйымдастыратын өңдеуіштен кейін орналасты және процедура тақырыбы мәліметтерді сипаттау блогына енгізілді. Бұл бағдарлама сол себептен орындалады. Бірақ оның орындалуы онша нақты емес сияқты.


Енді осы операцияларды функция көмегімен атқарайық:
var
Form1: TForm1;
A, B, kosyndy: Integer;
function kos (A, B: Integer): Integer;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
kosyndy=kos(A, B);// бұл жерде ненің, қайдан //алынатындығы әлдеқайда түсінікті сияқты
Caption:=IntToStr(kosyndy);


Достарыңызбен бөлісу:
1   ...   52   53   54   55   56   57   58   59   ...   98




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет