Pascal/Turbo Pascal - Urgentisimo Pascal ayuda

   
Vista:

Urgentisimo Pascal ayuda

Publicado por Fernando (5 intervenciones) el 31/03/2013 13:42:33
Hola en pimer lugar a gradecer la ayuda que me vais a prestar y por favor pediros que me ayudes ha hacer los ejercicios tal y como piden los enunciados y que las respuestas esten separadas ya que son dos ejercicios distintos Gracias
==============================================================================
EJERCICIO1
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
RESPUESTA EJERCICIO1

==============================================================================
EJERCICIO2

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.
5. Una vez alcanzado el final del fichero origen, se cerrará el mismo y a continuación, se añadirá una línea adicional al fichero destino. Tras añadir esta línea, se cerrará también el fichero destino.


Escriba su programa en un fichero llamado Unidad9_2_2.pas y envíelo a su tutor. Puede utilizar la sección respuesta 2 para cualquier comentario.
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

Urgentisimo Pascal ayuda

Publicado por ramon (2072 intervenciones) el 31/03/2013 20:04:45
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
{A ver si esto te sirve de ayuda}
 
 program textos;
 uses
    crt;
  var
    cadena : string;
    fichero : text;
    cont, cart, lines : integer;
    nombre : string;
 
 
  procedure leerfichero(nom : string);
  begin
      assign(fichero,nom);
  {$i-} reset(fichero); {$i+}
  if ioresult <> 0 then
  begin
     writeln('El Fichero Solicitado No Existe [ Pulse Enter ]');
     readln;
  end
 else
    begin
       lines := 0;
       cart := 0;
       cont := 0;
     while not Eof(fichero) do
     begin
         readln(fichero,cadena);
         lines := lines + 1;
         cart := cart + ord(cadena[0]);
         writeln(cadena);
         cont := cont + 1;
         if cont > 24 then
         begin
            writeln('pulse [Espacio');
            readkey;
            cont := 0;
         end;
     end;
     close(fichero);
     clrscr;
     writeln('El Nombre Es       = ',nom);
     writeln('Lineas Totales     = ',lines);
     writeln('Caracteres Totales = ',cart);
     writeln;
     writeln('Pulse [Enter]');
     readln;
    end;
  end;
 
  procedure copiaarchivo;
  var
   orijinal, lacopya : string;
   toma, anade : string;
   ff : text;
   begin
      clrscr;
      writeln('Cronacion De Archivo');
      writeln;
      write('Entre Nombre Archivo Orijinal : ');
      readln(orijinal);
      write('Entre Nombre Archivo Copia    : ');
      readln(lacopya);
      if orijinal <> lacopya then
      begin
         assign(fichero,orijinal);
      {$i-} reset(fichero); {$i+}
      if ioresult <> 0 then
      begin
         writeln('Error El Fichero No Existe Pulse Enter');
         readln;
         halt(1);
      end
    else
        begin
           assign(ff,lacopya);
           rewrite(ff);
         while not eof(fichero) do
         begin
            readln(fichero,toma);
            writeln(ff,toma);
         end;
           close(fichero);
           close(ff);
           writeln('Entre Texto Linea A a¤adir ');
           write('Texto : ');
           readln(anade);
           Append(ff);
           writeln(ff,anade);
           close(ff);
        end;
      end
    else
       begin
       clrscr;
       writeln('Los Nombres Son Identicos Buelva a Entrarlos Pulse Enter');
       readln;
       copiaarchivo;
       end;
   end;
 
  begin
      clrscr;
      nombre := 'aapru.pas'; {A qui el nombre que tengas como fichero tu]
      leerfichero(nombre);
      copiaarchivo;
  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