Autor
|
Tema: ejercicio Pascal, ayuda para terminarlo (Leído 9,755 veces)
|
manu3742
Desconectado
Mensajes: 20
|
NO veo por qué no sumas las líneas de este programa, me podeís ayudar.
Program contar;
var
c: char; fichero: text; url_archivo: string; lineas: integer; caracteres: integer;
begin url_archivo:='C:\contar.txt'; assign(fichero, url_archivo); reset(fichero); caracteres:=0; lineas:=0;
begin while not eof(fichero) do begin readln(fichero,c); caracteres:=caracteres+1; if not eof(fichero) then lineas:=lineas+1; readln(fichero); end;
end; writeln('El nombre del fichero es ', url_archivo); writeln('El numero de lineas es ',lineas); Writeln('El numero de letras es ',caracteres);
END.
|
|
|
En línea
|
|
|
|
d(-_-)b
|
|
|
|
En línea
|
Max 400; caracteres restantes: 366
|
|
|
manu3742
Desconectado
Mensajes: 20
|
Muchísimas gracias amigo.
saludos
|
|
|
En línea
|
|
|
|
manu3742
Desconectado
Mensajes: 20
|
lo he compilado pero no funciona
|
|
|
En línea
|
|
|
|
Khronos14
Desconectado
Mensajes: 443
A lie is a lie
|
Utiliza las etiquetas GeSHi para poner el código. program Project1; {$APPTYPE CONSOLE} uses SysUtils; var Text: TextFile; Buffer, Archivo: string; Lines: integer = 0; Size: integer = 0; begin {$I-} Archivo:= 'C:\prueba.txt'; AssignFile(Text, Archivo); FileMode:= 0; //ReadOnly Reset(Text); if IOResult = 0 then begin while not EOF(Text) do begin ReadLn(Text, Buffer); Inc(Lines); Size:= Size + Length(Buffer); end; CloseFile(Text); WriteLn('Numero de lineas: ', Lines); WriteLn('Numero de caracteres: ', Size); end else WriteLn('Se produjo un error abriendo el archivo: ', Archivo); {$I+} Readln; end.
Está hecho en Delphi pero debería funcionar en FreePascal. Las directivas {$I-} y {$I+} son para controlar los errores de tipo Input/Output. Si la función IOResult() devuelve 0 es que el archivo se abrió con éxito. FileMode es una variable de Delphi que establece el modo de apertura de un archivo, por defecto, se abren los archivos en modo lectura y escritura, el 0 es modo lectura. Saludos.
|
|
|
En línea
|
|
|
|
manu3742
Desconectado
Mensajes: 20
|
Perdona , pero sino me lo pones en Pascal me pierdo, es que estoy empezando..
saludos
|
|
|
En línea
|
|
|
|
Khronos14
Desconectado
Mensajes: 443
A lie is a lie
|
Delphi es Object Pascal, si te fijas la sintaxis del código que te puse es idéntica a la de tu código. Prueba a compilarlo en FreePascal y pregunta las dudas que tengas Saludos.
|
|
|
En línea
|
|
|
|
manu3742
Desconectado
Mensajes: 20
|
La cuestión es que tengo que enviar el ejercicio con el código Pascal. en el momento se me identifique con Delhi que es el proximo xurso que voy a hacer me dice que no lo acepta
|
|
|
En línea
|
|
|
|
Khronos14
Desconectado
Mensajes: 443
A lie is a lie
|
manu3742, te estoy diciendo que Delphi es Pascal jajaja
Delphi es un compilador que utiliza el lenguaje de programación Object Pascal, creas un archivo con la extensión .pas, le pones el código y lo compilas con FreePascal y listo.
|
|
|
En línea
|
|
|
|
manu3742
Desconectado
Mensajes: 20
|
no te enfades que me esta costando un mundo el curso de trabajo y lo hago a ratos . Es que no utilizo el FreePascal , utilizo el Notepad ++ como editor del curso por eso el código que me has mandado no lo compila.
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Ayuda ejercicio de Pascal, cuando uno no lo ve claro pide ayuda
Programación General
|
manu3742
|
1
|
3,526
|
31 Marzo 2011, 15:43 pm
por d(-_-)b
|
|
|
Necesito ayuda con un ejercicio de turbo pascal
Programación General
|
Madsmarco
|
1
|
3,086
|
10 Abril 2011, 22:17 pm
por skapunky
|
|
|
ayuda, Ejercicio para examen!
Programación C/C++
|
edu__87
|
1
|
2,183
|
15 Febrero 2013, 19:43 pm
por durasno
|
|
|
Ayuda ejercicio en Pascal
Programación General
|
mardek
|
1
|
2,120
|
1 Mayo 2013, 22:03 pm
por Ferno
|
|
|
Ayuda con ejercicio! Free Pascal
Ejercicios
|
DiegoCorrea
|
0
|
4,115
|
4 Septiembre 2015, 18:40 pm
por DiegoCorrea
|
|