Cita:
Empezado por velapuerca88
El ejercicio lo tengo que entregar en delphi, Tengo 2 problemas importantes,
1 ) se podria ir leyendo linea por linea desde el archivo de texto(readln) para separar las palabras ??
2) suponiendo que para separar las palabras tome solo el caracter espacio, habia una funcion en delphi para seleccionar los caracteres anteriores al espacio, no recuerdo cual era.
SE ME OCURRE ALGO ASI PARA SEPARAR PERO NO SE BIEN QUE HACER
procedure separar (var s:string; var p:lista; separador:char; palabra:sring; )
var q : posicionlista;
i: integer;
begin
for i:=1 to lenght(s) do
if s[i]<> " " do // intento decir mientras sea distinto de espacio
palabra: = palabra+ s[i];
|
En principio habría que eliminar todos los símbolos especiales (, . ; : etc.) Hay una funciones que ayudan "strReplace" creo que se llama una de ellas. Puedes ver
aquí para estas funciones.
Luego de eso, si podrías usar como separador el espacio y empezar a contar las palabras.
Para el ordenamiento usariamos la burbuja sin dudas.
Dejame que vea unas cosas y te ayudo un poco mas con el asunto del array con las palabras distintas.