Informatica : Code snippets

 
 Parametri  : Esponente
 Ritorna    : Triangolo di tartaglia n-esima potenza (Esponente) ...
 
     Formato Str: Esponente+','+Coeff_1+','+Coeff_2+','+Coeff_n+';' 

            es.(Esponente = 3): 0,1; 1,1; 2,2,1; 3,1,3,3,1;

 
 

 
 
 function CoeffBinomio(Esponente: Integer): String;
 
 const MAX_X = 31;
       MAX_Y = 31;
 
 var Matrix      : array[0..MAX_Y, 0..MAX_X] of LongInt;
     i,j,UltPos  : integer;
     Str         : String;
 
 begin
 
   if Esponente > (MAX_X-1) then begin
      CoeffBinomio:=':ERROR: - Valore massimo esponente = ' +
                                IntToStr(MAX_X-1);
      Exit;
   end;
   CoeffBinomio:='';
 
   i:=0;
   j:=0;
   UltPos:=0;
 
   Str:='';
 
   // Inizializzazione Matrix
   for i:=0 to MAX_Y do begin
      for j:=0 to MAX_X do begin
          Matrix[i,j] := 0;
      end;
   end;
 
   // Calcolo dei coefficienti
   for i:=0 to Esponente do begin
       j:=0;
       UltPos := i+1;
       while j<=UltPos do begin
           if j=0 then // Posizione 0 --> Esponente
              Matrix[i,j] := i
           else if (j=1) or (j=UltPos) then // Prima o Ultima
                                            //  Posizione
                Matrix[i,j] := 1
           else if i>1 then
                Matrix[i,j] := Matrix[i-1,j] + Matrix[i-1,j-1];
           inc(j);
       end;
   end;
 
   // Stringa di output
   for i:=0 to Esponente do begin
     if i>0 then
        Str:=Str+';'+#13#10; // ;+CR+LF
 
     UltPos := i+1;
     for j:=0 to UltPos do begin
         Str:=Trim(Str) + IntToStr(Matrix[i,j]);
         if j<>UltPos then
            Str:=Trim(Str)+',';
     end;
   end;
 
   if Length(Str)>0 then
      Str:=Str+';'+#13#10;   // ;+CR+LF
 
   CoeffBinomio := Str;
 
 end;