• Martes 18 de Junio de 2019, 19:33

Autor Tema:  exit code 201: Alguien puede decirme xk falla el programa  (Leído 5673 veces)

esplu

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
exit code 201: Alguien puede decirme xk falla el programa
« en: Miércoles 6 de Enero de 2010, 17:07 »
0
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.

¡Un error ha ocurrido!

Class 'Geshi' not found