• Viernes 15 de Noviembre de 2024, 02:45

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - esplu

Páginas: [1]
1
Pascal / Re: error: no identifica el readkey
« en: Lunes 18 de Enero de 2010, 19:58 »
Si, ya me di cuenta de que el fallo estaba ahi, se me olvido sin querer y la cague, gracias por la respuesta!!!
Un saludo.

2
Pascal / error: no identifica el readkey
« en: Sábado 16 de Enero de 2010, 21:37 »
Hola, estoy resolviendo un problema y a la hora de cerrarlo he puesto:

write('pulsa para salir');
readkey;
end.

Entonces al compilar me dice que no se indentifica "readkey", el programa utiliza variables de tipo longint y boolean,es por esto que no me lo identifica??? Tambien uso una funcion.

Alguien podria decirme por que falla o una pista o algo? Gracias de antemano!

3
Pascal / Re: exit code 201: Alguien puede decirme xk falla el programa
« en: Miércoles 6 de Enero de 2010, 23:23 »
Ey muchas gracias, se solucionó ese problema, ahora tengo que terminar de perfilar el ejercicio, pero por lo menos ya no voy tan perdida, muchas gracias de verdad. Un saludo

4
Pascal / exit code 201: Alguien puede decirme xk falla el programa
« en: Miércoles 6 de Enero de 2010, 17:07 »
Hola!!
Estoy resolviendo un problema sobre contar letras de una frase. Llevo hecho esto del programa, pero no se porque falla, me gustaria saber donde para poder corregirlo, asi que a ver si alguien me pudiese echar una mano. Gracias, soy nuevisima en programacion y me gustaria sacarlo adelante.

program contar;

uses crt;
var
frase:string;
i:integer;
letra:char;
frecuencia:array['a'..'z'] of integer;

begin
 clrscr;
 begin
  write('escribe una frase: ');
  read(frase);
  for i:=1 to length(frase) do
  letra:=frase[i+1];
  end;
  frecuencia[letra]:=0;
  if letra>='a' and letra<='z' then
  frecuencia[letra]=frecuencia[letra]+1;
  for letra:='a' to 'z' do
  if frecuencia[letra]>0 then
  writeln('frecuencia de',letra,':',frecuencia[letra]);
 readkey;
end.

Páginas: [1]