SHARE
TWEET

flt

jesus777matias Oct 13th, 2019 (edited) 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PROGRAM flt;
  2.  
  3. PROCEDURE Create(format:string);
  4. var
  5.   archivo:file;
  6.   i:integer;
  7. begin
  8.   for i:=2 to paramcount do
  9.   begin
  10.     Assign(archivo,paramstr(i)+format);
  11.     Rewrite(archivo);
  12.     Close(archivo);
  13.   end;
  14. end;
  15.  
  16. PROCEDURE Create(format, title : string);
  17. var
  18.   archivo:file;
  19.   i:integer;
  20. begin
  21.   for i:=3 to paramcount do
  22.   begin
  23.     Assign(archivo, title+'-'+paramstr(i)+format);
  24.     Rewrite(archivo);
  25.     Close(archivo);
  26.   end;
  27. end;
  28.  
  29. VAR
  30.   format :  string[6];
  31.   title  : string[50];
  32. BEGIN
  33.   format    := paramstr(1);
  34.   format[1] := '.';
  35.  
  36.   title := paramstr(2);
  37.   title := copy(title,2,length(title));
  38.  
  39.   if      (paramstr(1)[1] <> '-') then     writeln('falta ingresar parametro')
  40.   else if (paramstr(2)[1] <> '-') then     Create(format)
  41.   else                                     Create(format, title);
  42. END.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top