Question

Треба відредагувпти код procedure TForm1.Button1Click(Sender: TObject); var a: array [1..5] of integer; i: integer; begin for i:=1 to 5 do a[i]:= StrTolnt(Memo1.Lines[i-1]); Shape1.Height := a[1]; Shape1.Width := a[1] Shape2.Height := a[2] Shape3.Height := a[3]; Shape4.Height = a[4]; Shape5.Height := a[5]; end; Coll​

Answer 1

Відповідь:

procedure TForm1.Button1Click(Sender: TObject);

var

 a: array [1..5] of integer;

 i: integer;

begin

 for i := 1 to 5 do

   a[i] := StrToInt(Memo1.Lines[i-1]);

 Shape1.Height := a[1];

 Shape1.Width := a[1];

 Shape2.Height := a[2];

 Shape3.Height := a[3];

 Shape4.Height := a[4];

 Shape5.Height := a[5];

end;

Виправив наступне:

Shape1.Width := a[1]; додав ";"

Shape4.Height := a[4];  додав ":" до =. Тепер код буде працювати коректно.

Answer 2

procedure TForm1.Button1Click(Sender: TObject); var a: array[1..5] of integer; i: integer; begin for i := 1 to 5 do a[i] := StrToInt(Memo1.Lines[i-1]);

Shape1.Height := a[1]; Shape1.Width := a[1]; Shape2.Height := a[2]; Shape3.Height := a[3]; Shape4.Height := a[4]; Shape5.Height := a[5]; end;