Pascal/Turbo Pascal - Espacios en pascal! AYUDAAA

   
Vista:

Espacios en pascal! AYUDAAA

Publicado por Sabrina (8 intervenciones) el 30/06/2016 20:13:45
Hola! Me dieron una actividad que consiste en encriptar un mensaje cualquiera desde el segundo espacio en blanco hasta el quinto.
Como hago para que el programa me reconozca los espacios?
Screenshot_2016-06-30-14-54-00
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

Espacios en pascal! AYUDAAA

Publicado por ramon (2072 intervenciones) el 30/06/2016 22:08:38
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
32
33
34
35
{Mira como}
 
program espacios;
 uses
    crt;
  var
     linea : string[80];
     blancos, cont : integer;
 
 
 
   function numblancos(cad : string) : integer;
   begin
      blancos := 0;
      numblancos := 0;
      for cont := 1 to length(cad) do
      begin
      if cad[cont] = #32 then
      blancos := blancos + 1;
      end;
      numblancos := blancos;
   end;
 
   begin
      clrscr;
      writeln;
      writeln('   Entre Linea Texto');
      write('  : ');
      readln(linea);
      writeln;
      writeln('  La Cantidad De Blancos Son = ',numblancos(linea));
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Espacios en pascal! AYUDAAA

Publicado por Sabrina (8 intervenciones) el 01/07/2016 04:42:05
Muchas Gracias! Ramón, me sirve bastante, pero lo que yo quería saber es como hago para buscar el primer espacio en blanco y el quinto, y dar vuelta la oración entre estos para que me quede como en el ejercicio.
Básicamente, como hacer el ejercicio que esta encerrado con naranja.
Si pudieras ayudarme te dejo mi mail sabrinasantalla@hotmail.com
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

Espacios en pascal! AYUDAAA

Publicado por David (139 intervenciones) el 01/07/2016 20:32:31
Te dejo aquí la funcion que te ayudará a voltear la cadena

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function Invertir_cadena (cadena : string) : string;
 
var
  longitud:byte; {longitud del string cadena }
  a:byte; { contador bucle }
  Xcadena:string;{ cadena temporal}
begin
 
 
longitud:=length(cadena);
 
for a:=longitud downto 1 do Xcadena:=Xcadena+cadena[a];
 
Invertir_cadena:=xcadena; { retorno de la funcion }
 
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

Espacios en pascal! AYUDAAA

Publicado por Sabrina (8 intervenciones) el 02/07/2016 00:34:50
Gracias david, pero no tengo problemas para voltear la cadena entera sino para obtener la cadena que me queda entre el segundo y el quinto espacio, no se me cae ni una idea y me estoy volviendo loca.

Digamos, lo que yo quiero saber es como puedo determinarla.
como por ejemplo

"Hoy vamos a la casa de la abuela"

como hago para formar una cadena con las letras o caracteres que tengo desde el segundo espacio hasta el quinto para que me quede:

"Hoy vamos al ed asac al a abuela"

Si vos me pudieras dar una mano seria genial.
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