Mappa del sito
Indice degli aggiornamenti  27/10/18
Metti formule tra i preferiti
Contattaci
Segnalaci ad un amico

Formule e argomenti di matematica, fisica e scienze
Albert Einstein: ... la nostra conoscenza, se paragonata alla realta' e' primitiva e infantile. Eppure e' il bene piu' grande che possediamo.
... all our science, measured against reality, is primitive and childlike-and yet it is the most precious thing we have.


Versione stampabile della scheda visualizzata sotto


Informatica : Code snippets

Triangolo di Tartaglia

Costruzione del triangolo di tartaglia fino 30-esima potenza



Linguaggio: PASCAL

 
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;


Made by Formule Development Team





Ti potrebbe interessare anche:



Argomenti correlati e altri percorsi:


Triangolo di Tartaglia
Matematica, Elementi di algebra, triangolo di Tartaglia
(locale-Formule)

 




  Metti la scheda negli appunti    Click per visualizzare il blocco appunti Visualizza appunti    Click x svuotare blocco appunti Azzera appunti


Seguici in Google+     Seguici in Facebook     Seguici in Tumblr     Seguici in Pinterest     Seguici in Twitter  


UTILITY
FormuLe-MATEMATICALC

TROVA FORMULE

 




UTILITY
FormuLe-FISICALC


TROVA FORMULE

UTILITY
FormuLe-STATISTICALC

UTILITY
Formule-MATFINCALC

ARGOMENTI
Matematica

Frattali di Mandelbrot
Benoit Mandelbrot e la Geometria Frattale. Introduzione e immagini.

Statistica e giochi

Lotto e superEnalotto
Una sintetica comparazione statistica e finanziaria dei due giochi.

Informatica e Internet

Voip

Voip, Telefonare gratis via Internet.

Ultimo aggiornamento - Last update:  27/10/2018
Privacy and cookies
© www.gobnf.com 2008-2018 - Tutto il materiale contenuto nel sito PUO' essere liberamente usato per scopi personali (studio, creazione di relazioni e tesine etc). Non e' consentito qualsiasi altro tipo di utilizzo o riproduzione. - The entire content of this site may be freely used ONLY for personal purposes (study, creation of reports etc.). It is not allowed any other use or reproduction.