Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 6 ejercicio 3
//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.
run
|
edit
|
history
|
help
0
подсчёт символов и цифр пока не точка
Perimetro y Area (con validaciones)
codigo
LewisCableCompanyPasProgramme
Largest Prime Factor
gfdresz
число пи с помощью ряда
Tri
Deskripsi
Zad 3 a