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);
Достарыңызбен бөлісу: |