Mensajes

Si has terminado de estudiar un curso sobre Pascal y te das cuenta de que este no se esta utilizando y tampoco hay mcha gente que digamos a la que preguntar sobre el tema, pues ha dejado de ser utilizado, qué lenguaje de programación sería el más recomendable en nuestros días para continuar estudiando con la base que nos ha dado Pascal. Y sobre todo que sea más utilizado y haya más gente con la que compartir.

Una línea me ha sobrado para acabar correctamente el programa.

gracias a todos los que habeis contestado, espero seguir contando con vosotros.

saludos

Leo, no quiero todo a la mano, la cuestion es que si uno no ha visto utilizar un determinado codigo pues no lo ves en la vida aunque te estudies el tema 1000 veces.

Por que no sumaba los caracteres? yo ponía esta línea

num_caracteres:=num_caracteres+1;

pero correctamente expresada es:
NINGUNO DE LOS QUE ME HABEIS CONTESTADO A HABEIS ACERTADO. YO OS ESTOY MUY AGRADECIDO QUE CONSTE.
PERO ESTA LÍNEA NADIE, NI EN UNA DECADA DOY CON ELLA, GRACIAS A GRAN COMPAÑERO QUE ME LA HA DADO. GRACIAS
num_caracteres:=num_caracteres+ord(linea[0]);

EL CÓDIGO EXACTO DE TODO EL PROGRAMA ES:

Program contar;
(*CONSTANTES DEL PROGRAMA, EL TAMAÑO MÁXIMO DE LA LÍNEA Y DEL NOMBRE DEL FICHERO*)
const
    TAMMAX=40;

var

linea: string ;
fichero: text;
url_archivo: string;
num_lineas: integer;
num_caracteres: integer;



begin
url_archivo:='C:\contar.txt';
assign(fichero, url_archivo);
reset(fichero);
(*SE INICIALIZAN LOS CONTADORES*)
num_caracteres:=0;
num_lineas:=0;



begin
(*SE LEE LINEA A LINEA EL FICHERO, PARA CADA UNA SE ACTUALIZA CONTADOR DE LÍNEAS SUMANDO 1 Y CONTADOR DE CARACTERES
   SUMANDO EL TAMAÑO DE LA LÍNEA*)   
    while not eof(fichero) do 
     begin
         readln(fichero, linea);
         num_lineas:=num_lineas+1;
         num_caracteres:=num_caracteres+ord(linea[0]);
   
     end;
   
   
close (fichero);

end;
     
writeln('Nombre del fichero');
readln(url_archivo);


writeln('El numero de lineas es ',num_lineas);
Writeln('El numero de caracteres es ',num_caracteres);

END.

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.

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

Perdona , pero sino me lo pones en Pascal me pierdo, es que estoy empezando..

saludos

lo he compilado pero no funciona

Muchísimas gracias amigo.

saludos

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.

Hola, estoy haciendo un curso de Pascal y como no tengo a quién preguntar pues utilizar otros lenguajes... pues haber si alguno de vosotros me puede ayudar. El ejercicio es este:

Realizar un programa que abra un fichero 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.

ejecutando el archivo contar.exe se tiene que ver así:

Nombre fichero origen: contar.txt
Fichero: contar. txt 
3
30

Gracias de antemano