знайти периметр прямокутника якщо дано дві сторони цілі числа що вводяться в текстових...

Question

знайти периметр прямокутника якщо дано дві сторони цілі числа що вводяться в текстових полях edit1 і edit2 значення периметра вивести в текстове поле edit 3

Answer 1

В 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;

---

Comments

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;

---

сас

---

спас