Ejercicio 15 (Procedimientos y funciones)

Plantee e implemente en PASCAL el subprograma quitaEspacios, que recibe una cadena y la devuelve sin los espacios que ésta incluya. Además del subprograma, implemente un programa principal apropiado para probar su funcionamiento.



PROGRAM stringg (input,output);
(*Ejercecio que une un string*)
TYPE
Tcadena = PACKED ARRAY [1..40] OF char;
VAR
Cadena:Tcadena;
c:integer;
(******************************************************************************)
PROCEDURE unir;
VAR
I,espacio,final:integer VALUE(1);
BEGIN
Writeln('Escribe la frase: ');
Read(Cadena);
final:=INDEX (Cadena,' ');
FOR I:=1 TO final DO
BEGIN
espacio:= INDEX (Cadena,' ');
IF espacio>0 THEN Cadena:= substr(Cadena,1,espacio-1) + substr(Cadena,espacio+1);
END; 
writeln(Cadena); 
END;
(******************************************************************************)
PROCEDURE leerc;
BEGIN
readln(c);
END;
BEGIN
unir;
leerc;
END.


Ejemplo de ejecución: