Delphi neumí sčítat – Delphi – Fórum – Programujte.com

Dobrý den,
Dělám úkol do školy a mám problém s tím, že Delphi nedokáže sečíst dvě hodnoty:

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Math, Grids;



type

  TForm1 = class(TForm)

    Button1: TButton;

    StringGrid1: TStringGrid;

    Memo1: TMemo;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var

x, y, a, b: integer;

p: array [0..11,0..10] of integer;

begin

p[0,10]:=0;

 for y := 0 to 9 do begin

  p[0,y]:=0;

  for x := 0 to 10 do begin

   p[x,0]:=0;

   p[1,0]:=1;

   p[x+1,y+1]:=p[x,y]+p[x+1,y];

  end;

 end;

for b := 0 to 10 do begin

   for a := 0 to 11 do begin

    StringGrid1.Cells[a,b]:=IntToStr(p[a,b]);

   end;

 end;

end;

end.

Ty v ničem, to přece Delphi neumí sčítat.
34

Ten titulek je takový schválně, aby upoutal. Ale vážně, co je tam špatně?

To Potkan : s urcitou jistou pravdepodobnosti muzes napriklad scitat neco, co neni inicializovane... vypis si napriklad pred scitanim cele pole.. co v nem je.. pak teprve muzes nadava ze to neumi scitat

Vážně. Tím "34" jsem myslel číslo řádku.

To Potkan:
Zkus to pole nadefinovat jako dynamické.
Potom když mu procedurou SetLength() přiřadíš délku, tak se pole vyplní
automaticky v našem případě nulami.
Tady máš funkční kód:
procedure TForm1.Button1Click(Sender: TObject);
var i,j: Integer;
p: array of array of Integer;
begin
SetLength(p,12,11);
for i := 0 to 9 do
for j := 0 to 10 do
begin
p[1,0]:=1;
p[j+1,i+1]:=p[j,i]+p[j+1,i];
end;

for i := 0 to 10 do
for j := 0 to 11 do
StringGrid1.Cells[j,i]:=IntToStr(p[j,i]);
end;
Jinak mezi námi. To má asi (určitě) udělat Pascalův trojúhelník.
Ještě bych to snad vylepšil tak, že bych ten druhý cyklus napsal takto:
for i := 0 to 10 do
begin
p[0,i] := i;
for j := 0 to 11 do
StringGrid1.Cells[j,i]:=IntToStr(p[j,i]);
end;

Moc vám všem děkuji.
Chyba se opravdu týkala řádku 34. Asi si budu muset zvyknout, že Delphi není CSS.

To Honzc:
Ano, má to být Pascalův trojúhelník. Díky za praktické návrhy,