lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Nou pe simpatie:
Profil Lolo
 | Femeie
24 ani
Galati
cauta Barbat
25 - 52 ani |
|
|
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
adminAdministratorDin: Bucharest
Postari: 523
|
|
function Sum(params arg: array of integer): integer;
begin
Result := 0;
foreach var x in arg do
Result += x;
end;
begin
writeln(Sum(1,2,3));
writeln(Sum(4,5,6,7));
end.
procedure Swap<T>(var a,b: T);
begin
var v := a;
a := b;
b := v;
end;
begin
var a := 2;
var b := 3;
writelnFormat('?? Swap a={0}, b={1}',a,b);
Swap(a,b);
writelnFormat('????? Swap a={0}, b={1}',a,b);
var c := 2.5;
var d := 3.3;
writeln;
writelnFormat('?? Swap c={0}, d={1}',c,d);
Swap(c,d);
writelnFormat('????? Swap c={0}, d={1}',c,d);
end.
{$endregion swap}
_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf
|
|
| |
|
