SRL Archive - Other Scripts

Uses Sumensions to get the triangluar numbers

Yes the sumension thing is just my facotrial function edited


For Permutation or combination or factorial help go:


here




[PHP]const

Tri = 3; // the numberth triangluar number to get


function Simension(x:Integer):Integer;
var
G, A:Integer;
begin
A:=x;
for G:= 1 to x-1 do
begin
a:= a+(x-G);
end;
Result:= A;
end;



function GetTriangularNumber(x:Integer):Integer;
begin
Result:=Simension(x)
end;


begin
Writeln(IntToStr(GetTriangularNumber(Tri)))
end.[/PHP]

Nice, even if i don't know what is that triangular shit