Pascal/Turbo Pascal - contador de oraciones y palabras

   
Vista:

contador de oraciones y palabras

Publicado por Pascalito (1 intervención) el 20/11/2014 14:14:01
Necesitaria que me muestren un pascal que cuenten el numero de oraciones(todas terminan con . ) y que cuenten la cantidad de palabras de la oracion, le agradeceria mucho si me ayudan.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

contador de oraciones y palabras

Publicado por Rene Gar (58 intervenciones) el 21/11/2014 05:54:38
Aqui te dejo mi version del codigo
si no terminas las frases con punto no te hace el conteo
ya tu lo aplicas a tus necesidades saludos...


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure Contar_Oraciones_y_Palabras(texto:string);
var
i:integer;
oracion,palabras:integer;
begin
    oracion:=1; palabras:=1;
    for i := 1 to length(texto) do
    begin
 
       if (texto[i]=' ') and (texto[i-1]<>' ') and (i>1) then
          inc(palabras);
 
       if texto[i]='.' then
       begin
          writeln('la oracion ',oracion,' tienes ',palabras,' palabras');
          palabras:=1;
          inc(oracion);
       end;
    end;
end;
 
var
texto:string;
begin
   writeln('ingrese su frase');
   readln(texto);
 
   Contar_Oraciones_y_Palabras(texto);
 
   readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar