|
Mostrar Mensajes
|
Páginas: 1 [2]
|
11
|
Programación / Programación General / Paso lógico de Pascal a.....cual sería el lenguaje más actual al que se debería
|
en: 5 Abril 2011, 14:20 pm
|
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.
|
|
|
13
|
Programación / Programación General / Re: ejercicio Pascal, ayuda para terminarlo
|
en: 4 Abril 2011, 21:01 pm
|
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.
|
|
|
19
|
Programación / Programación General / ejercicio Pascal, ayuda para terminarlo
|
en: 1 Abril 2011, 14:32 pm
|
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.
|
|
|
20
|
Programación / Programación General / Ayuda ejercicio de Pascal, cuando uno no lo ve claro pide ayuda
|
en: 31 Marzo 2011, 14:32 pm
|
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
|
|
|
|
|
|
|