Pascal/Turbo Pascal - Unidad9_2(1)

   
Vista:

Unidad9_2(1)

Publicado por Sara1290 (2 intervenciones) el 03/12/2014 02:02:17
Realmente me siento desesperada, nada mas que decir, lo mismo que en el tema 9_1... en este caso serian dos programas por separado. Gracias de antemano, enserio.


1. PRIMERA CUESTIÓN:

Realizar un programa que abra un fichero de texto para lectura, y lo vaya leyendo línea a línea. Deberá presentar como resultado final el nombre del fichero, el número de líneas y el número de caracteres.

NOTA: Recuerde que en la posición cero de una cadena de caracteres se almacena la longitud, pero debe usar la orden ord para tratar esta longitud como un entero.


2. SEGUNDA CUESTIÓN:

Realizar un programa que abra un fichero de texto, cree una copia del mismo y añada al final de la copia una cadena de caracteres.

El programa deberá:
1. Solicitar el nombre del fichero de entrada, y abrirlo para lectura.
2. Solicitar el nombre del fichero destino, comprobar que es distinto del nombre del fichero de entrada, y si es así abrirlo para escritura.
3. Solicitar la línea a añadir al final del fichero.
4. Leer línea a línea el fichero de entrada: en cada iteración del bucle leerá una línea del fichero de entrada y escribirá esa misma línea en el fichero destino.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Unidad9_2(1)

Publicado por ramon (2072 intervenciones) el 22/12/2014 14:16:33
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
{Esto te servirá mira tendrás que cambiar el camino según tu lo tengas  }
 
program unudad2_1;
  uses
    crt;
  const
     camino = 'c:\tp\bin\';
  var
    tex : string;
    f1, f : text;
    nomarchi : string;
    orig, copi : string;
 
 
   procedure lee_archvo_texto(camino, archi : string);
   var
     numline, numcar : longint;
   begin
      assign(f,camino + archi);
   {$I-} reset(f); {$I+}
    if ioresult <> 0 then
    begin
      writeln('   Error De Archivo O No Existe Pulse Una Tecla');
      readkey;
    end
  else
     begin
        numline := 0;
        numcar := 0;
     while not eof(f) do
     begin
        readln(f,tex);
        numline := numline + 1;
        numcar := numcar + ord(tex[0]);
     end;
     clrscr;
     writeln('   El Nombre Del Fichero Es   : ',archi);
     writeln('   El Numero De Lineas Es     : ',numline);
     writeln('   El Nomero De Caracteres Es : ',numcar);
     writeln;
     writeln('   Pulse Una Tecla');
     readkey;
     end;
  end;
 
  procedure copia_archivo(cami, o, c : string);
  var
    linea : string;
  begin
     assign(f,cami + o);
  {$I-} reset(f); {$I+}
     if ioresult <> 0 then
     begin
        writeln('   Error De Archivo O No Existe Pulse Una Tecla');
        readkey;
     end
   else
      begin
         assign(f1,cami + c);
         rewrite(f1);
       while not eof(f) do
       begin
          readln(f,linea);
          writeln(f1,linea);
       end;
         close(f);
         close(f1);
         write('  Entre Linea De Texto : ');
         readln(linea);
         Append(f1);
         writeln(f1,linea);
         close(f1);
        end;
     end;
 
 
 
 
  begin
     clrscr;
     writeln('  ***** Lectura De Un Fichero De Texto *****');
     writeln;
     write('  Entre Nombre de Archivo : ');
     readln(nomarchi);
     lee_archvo_texto(camino,nomarchi);
     writeln('  ***** Copia De Archivo Origen A Destino *****');
     writeln;
     write('   Entre Nombre y Extension Archivo Origen  : ');
     readln(orig);
     write('   Entre Nombre y Extension Archivo Destino : ');
     readln(copi);
     copia_archivo(camino,orig,copi);
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar