знайти периметр прямокутника якщо дано дві сторони цілі числа що вводяться в текстових полях edit1 і edit2 значення периметра вивести в текстове поле edit 3
Ответы
Ответ дал:
0
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;
Приложения:
![](https://st.uroker.com/files/aaa/aaa1a271ea45d5da824209904b3f554a.png)
Ответ дал:
0
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
Edit3.Text:= IntToStr((a+b)*2)
end;
var a,b:integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
Edit3.Text:= IntToStr((a+b)*2)
end;
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад