Archivo por meses: Oct PM


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: […]


Recursivo 1

program recursivo;   var     a, b, c: integer;function prod(aa:integer; n:integer):integer;begin   if  n=1 then       prod:=aa   else       prod:=aa+prod(aa,(n-1));end;begin   writeln(‘Ingrese el primer número del producto’);   readln(a);   writeln(); writeln(‘Ingrese el segundo: ‘);   readln(b);   c:=prod(a,b);   writeln();   writeln(a, ‘ por ‘, b,’ es ‘, c);   readln();end.