funciones


Pasar de Pascal a C – para probar

Encontré en los repos de linux un programa que pasa códigos de Pascal (*.pas) a lenguaje C.Se instala y se traduce el código de esta forma en la terminal$ p2c ejemplo.pasdespués del proceso sale ejemplo.c.Está para Ubuntu y Mint.Acá el link para la descarga http://pkgs.org/download/p2cSaludos desde Mint LMDE.


Procedimiento y vector, suerte 1

program multi; var    vec1, vec2: array [1..10] of integer;    mult: real;    arch: text;    j: integer; procedure multiplo(num1:real);var    i:integer;begin     for i:=1 to 10 do         vec2[i]:=vec1[i]*trunc(num1);end; function entero(num2:real):boolean;begin     if (num2/trunc(num2))=1 then         entero:=true     else         entero:=false;end; begin    for j:=1 to 10 do        repeat              begin                  writeln(‘Ingrese el dato de vector mayor que cero: ‘);                  readln(vec1[j]);              […]


Genera CUIL con generación de archivo de texto

program gencuit; {$mode objfpc}{$H+} uses  {$IFDEF UNIX}{$IFDEF UseCThreads}  cthreads,  {$ENDIF}{$ENDIF}  Classes , sysutils , crt  { you can add units after this };  var    isexo:integer;    sDNI, sCuit, sprefijo:string;    arch: text; {$IFDEF WINDOWS}{$R gencuit.rc}{$ENDIF} function GeneraCuit(cad1:string;cad2:string):string;     var        isuma, iresto:integer;        sdigito:string[1];begin     isuma:=strtoint(cad1[1])*5+strtoint(cad1[2])*4+strtoint(cad2[1])*3+strtoint(cad2[2])*2+strtoint(cad2[3])*7;     isuma:=isuma+strtoint(cad2[4])*6+strtoint(cad2[5])*5+strtoint(cad2[6])*4+strtoint(cad2[7])*3+strtoint(cad2[8])*2;     iresto:=isuma MOD 11;     case iresto of          0: GeneraCuit:=cad1+’-‘+cad2+’-0′;          1: […]