Programación General > Pascal

 exit code 201: Alguien puede decirme xk falla el programa

(1/1)

esplu:
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.

epayan:
te desborda la pila del string, al poner i+1


--- Código: Pascal --- for i:=1 to length(frase) doletra:=frase[i+1];end; 
trata de dejarlo solo con este codigo:

--- Código: Pascal --- for i:=1 to length(frase) doletra:=frase[i];end; 

aun que este problema ya se resolvio en otro foro


--- Código: Pascal ---  program Fercuencia;uses crt; varletra:char;Frase:string;Frecuencia : array ['a'..'z'] of longint;contador:integer;columna:integer; Begin clrscr;gotoxy(1,20);write('pulse . para salir...'); RepeatColumna:=1; for contador:=1 to 26 dobegingotoxy(1+columna,1);write(chr(96+contador));gotoxy(1+columna,2);write(Frecuencia[chr(96+contador)]);inc(columna,3);end; gotoxy(1,10);write('Proporcione una Frase :');Letra:=Readkey; If letra in ['a'..'z'] thenBeginFrecuencia[letra]:= Frecuencia[letra] + 1;End;Frase:=Frase+letra;gotoxy(1,11);write(frase);Until Letra = '.'; End.   

h t t p :  / / http://www.lawebdelprogramador.com/news ... &n9=0&n0=0

esplu:
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

Navegación

[0] Índice de Mensajes