practica 6 ejercicio 3, Pascal

Language: Layout:

//fpc 3.0.4

program HelloWorld;

{----------------------------------------------------------------
TYPE - Define los tipos}
type
    Tsecuencia = record
        oraciones : integer;  
        palabras : integer;
        letras : integer;
        de : integer;
    end;
        
{----------------------------------------------------------------
VAR - Variables globales del programa}
var
    car,ult,ant,pri: char;
    s:Tsecuencia;
    primera:char;
    maxLong, maxOracion, maxPalabras : integer;
    
    
{--------------------------------------------------------------------------------------------------------------------------------}    
{----------------------------------------------------------------
INICIALIZAR - Inicializa las variables globales segun sea necesario}    
procedure INICIALIZAR;
begin
        maxPalabras := 0;
        s.oraciones:=0;
        s.de :=0;
        maxLong:=0;
end;
{----------------------------------------------------------------
INFORMAR - Informa lo pedido al final}
procedure INFORMAR ;
begin
        writeln;
        writeln('la cantidad total de oraciones leidas es ',s.oraciones);                 //.............A
        writeln;
        writeln('el numero de oracion con mas palabras leidas es ',maxOracion);           //............C
        writeln;
        writeln('la cantidad de veces que aparece la palabra "de" son ',s.de);             //............D
        writeln;
        writeln('la primera letra de la palabra mas larga es ', primera);                  //............E
end;
{----------------------------------------------------------------
PALABRA MAS LARGA - Calcula la palabra mas larga y guarda la primera letra
para la consigna "e"}
procedure palabraMasLarga;
begin
        if s.letras > maxLong then begin
                maxLong:= s.letras;
                primera:=pri;
        end;
end;
{----------------------------------------------------------------
MAXIMO - Calcula la oracion con mas cantidad de palabras }
procedure maximo;
begin
        if s.palabras > maxPalabras then begin
                maxPalabras := s.palabras;
                maxOracion := s.oraciones;
        end;
end;
{----------------------------------------------------------------
CONTAR 'DE' - Cuenta todas las veces que aparece la palabra 'de' en
el programa }
procedure contarDe;
begin
            if (ant = 'd') and (ult = 'e') then
                s.de:= s.de + 1;
end;

{--------------------------------------------------------------------------------------------------------------------------------}
{----------------------------------------------------------------
LETRAS - }
procedure Xletra;
begin
        s.letras:=s.letras+1;
        ant:= ult;
        ult:=car;
        read(car);
end;

{----------------------------------------------------------------
PALABRA - }
procedure Xpalabra;
begin
        s.letras:=0;
        pri := car;
    	
        while (car <> '.')and (car <> '*')and (car <> ' ')do begin
            Xletra;
        end;
        
        palabraMasLarga;

s.palabras:= s.palabras + 1;
end;

{----------------------------------------------------------------
ORACION - }
procedure Xoracion;
begin
        s.palabras := 0;
        
        while (car <> '.')and (car <> '*')do begin
        
            Xpalabra;
        
            contarDe;
                                                     // limpiar blancos
            while car = ' ' do
                read(car);
                
        end;
        
        s.oraciones := s.oraciones + 1;
        
        while car = '.' do
            read(car);
        
        writeln;
        writeln('la cantidad total de palabras en la oracion ', s.oraciones,' es ',s.palabras);         //............B

end;

{----------------------------------------------------------------
PARRAFO (PROGRAMA PRINCIPAL) - }
begin
        INICIALIZAR;
        read(car);
        while car <> '*' do begin
            Xoracion;
            maximo();
        end;
        INFORMAR;
end.

Show compiler warnings [ - ] Show input
Compilation time: 0.12 sec, absolute running time: 0.16 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,59 sec