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

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

жүктеу 1,5 Mb.

бет	55/94
Дата	03.02.2022
өлшемі	1,5 Mb.
	#35447

1 ... 51 52 53 54 55 56 57 58 ... 94

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,5 Mb.

Достарыңызбен бөлісу:

1 ... 51 52 53 54 55 56 57 58 ... 94