Pascal/Turbo Pascal - URGENTE Y MUY IMPORTANTE

 
Vista:
sin imagen de perfil

URGENTE Y MUY IMPORTANTE

Publicado por tugatime (44 intervenciones) el 14/01/2013 15:17:20
En este programa me han dicho que no utilizara la orden ReadKey para las selecciones del usuario para no enlazar la librería crt.

Lo que quiero saber es que quieren decir con eso ??
Es que no lo entiendo muy bien.

Esto es importante y necesito una respuesta lo mas rapido posible

P.S: "Si te han dicho eso, porque no le preguntas a la persona que te lo dijo ?" Para los que piensen esto le dire que no puedo preguntarle a la persona que me lo dijo porque no tengo forma de hacerlo. Pero eso son cosas personales que no voy a estar hablando aqui.
Por favor necesito ayuda rapido.

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
program Copia_documento_de_texto;
 
uses crt;
 
type
    Tfichero= text;
 
var
   fichero, fichero2: Tfichero;
   linea, Nfichero, Nfichero2, texto: string;
 
begin
     writeln;
     writeln('  Bienvenido al programa copion.');
     writeln;
     writeln('El programa que lee un archivo de texto, lo copia a otro archivo y ademas añade el texto que tu quieras.');
     readln;
     clrscr;
     write('Introduzca el nombre del archivo a leer: ');
     readln(Nfichero);
     writeln;
     write('Introduzca el nombre del archivo donde se guardara la copia: ');
     readln(Nfichero2);
     writeln;
 
     if (Nfichero<>Nfichero2) then
        begin
             write('Introduzca el texto que quiere añadir: ');
             readln(texto);
 
             assign(fichero, Nfichero);
             assign(fichero2, Nfichero2);
             {$I-}
             reset(fichero);
             {$I+}
 
             if (ioResult=0) then
                begin
                     rewrite(fichero2);
 
                     while not eof(fichero) do
                           begin
                                readln(fichero, linea);
                                writeln(fichero2, linea);
                           end;
                     close(fichero);
 
                     append(fichero2);
 
                     writeln(fichero2, texto);
 
                     close(fichero2);
                end;
 
             writeln;
             writeln('Su archivo ha sido copiado y su texto añadido.');
        end
     else
         writeln('Lo siento pero el nombre de los 2 archivos tiene que ser diferente.');
 
readln;
end.
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

URGENTE Y MUY IMPORTANTE

Publicado por ramon (2158 intervenciones) el 14/01/2013 17:47:12
La persona que te dijo eso no quiere que emplees la librería de pascal crt puesto que readkey es
una función de sus dicha unidad.
Mira esto tienes quitado lo que no funciona sin la crt y una modificación de error por si el archivo
no esta.

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
program Copia_documento_de_texto;
type
    Tfichero = text;
 
var
   fichero, fichero2 : Tfichero;
   linea, Nfichero, Nfichero2, texto : string;
 
begin
     writeln;
     writeln('  Bienvenido al programa copion.');
     writeln;
     writeln('El programa que lee un archivo de texto, lo copia a otro archivo y ademas añade el texto que tu quieras.');
     readln;
     write('Introduzca el nombre del archivo a leer: ');
     readln(Nfichero);
     assign(fichero,Nfichero);
  {$I-} reset(fichero); {$I+}
  if ioresult <> 0 then
  begin
     writeln('El Fichero No Existe');
     readln;
     halt(1);
  end
  else
     close(fichero);
     writeln;
     write('Introduzca el nombre del archivo donde se guardara la copia: ');
     readln(Nfichero2);
     writeln;
 
     if (Nfichero <> Nfichero2) then
        begin
             write('Introduzca el texto que quiere añadir: ');
             readln(texto);
 
             assign(fichero, Nfichero);
             assign(fichero2, Nfichero2);
             {$I-}
             reset(fichero);
             {$I+}
 
             if (ioResult=0) then
                begin
                     rewrite(fichero2);
 
                     while not eof(fichero) do
                           begin
                                readln(fichero, linea);
                                writeln(fichero2, linea);
                           end;
                     close(fichero);
 
                     append(fichero2);
 
                     writeln(fichero2, texto);
 
                     close(fichero2);
                end;
 
             writeln;
             writeln('Su archivo ha sido copiado y su texto añadido.');
        end
     else
   writeln('Lo siento pero el nombre de los 2 archivos tiene que ser diferente.');
 
readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

URGENTE Y MUY IMPORTANTE

Publicado por tugatime (44 intervenciones) el 14/01/2013 18:38:52
Ok, gracias por la ayuda ahora ya lo entiendo.
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