Question

срочно
Завдання 1. Квадрат значень
procedure TForm1.Button1Click(Sender: TObject);
var
i : ___________;
a: ____[1..__] of ________;
begin
for i:=0 to _____ do
begin
a[i+1] :=___________ (Memo1._________[i]);
a[i+1] :=_________
Memo2.Lines [i] := ________ (a[i+1]);
end;
end;

Завдання 2. Табель
procedure TForm1.Button1Click(Sender: TObject);
begin
var
i, _ , oz: integer;
a: _______[1..7] of ______;
for i := 1 to 7 do
a[i] := ________(StringGrid1.Cells[__,__]);
n:= StrToInt (Edit__.Text);
oz := a[n];
Edit__.Text := _________(oz);
end;

end.

Answer 1

Завдання 1.

procedure TForm1.Button1Click(Sender: TObject);

var

 i: Integer;

 a: Integer[1..100] of Integer;

begin

 for i := 0 to 99 do

 begin

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

   a[i + 1] := Square(a[i + 1]);

   Memo2.Lines[i] := IntToStr(a[i + 1]);

 end;

end;

Завдання 2.

procedure TForm1.Button1Click(Sender: TObject);

begin

 var

   i, n, oz: Integer;

   a: String[1..7] of Char;

 for i := 1 to 7 do

   a[i] := StringGrid1.Cells[i, 1];

 n := StrToInt(Edit1.Text);

 oz := Ord(a[n]);

 Edit1.Text := IntToStr(oz);

end;