lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
Stefania23
Femeie
24 ani
Dolj
cauta Barbat
25 - 46 ani
lisp2arx / Abecedar Scolar / hc_acgi.pas  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 14 ani
Postari: 519
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}

_______________________________________
pus acum 3 ani
   
Pagini: 1  

Mergi la