Wert - Quadrat - Kubus

[Bummi]

Delphi-Quellcode:

implementation
uses Math;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
C_LIMIT=100;
var
  i,j:Integer;
begin
  StringGrid1.RowCount :=  C_LIMIT + 1;
  StringGrid1.ColCount := 3;
  for I := 0 to C_LIMIT do
    begin
       for j := 1 to 3 do
       StringGrid1.Cells[j - 1,i] := FloatToStr(Power( i, j));
    end;
end;