Pascal/Turbo Pascal - voltear caracteres

 
Vista:

voltear caracteres

Publicado por Cesar (3 intervenciones) el 04/04/2016 01:58:22
Quiero hacer un programa en pascal que me voltee los caracteres string y me los muestre, pero da error. qe estoy haciendo mal?

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
program inicio;
uses crt;
 
 var
  texto,volteado:string;
  i:integer;
 
BEGIN
 writeln ('Escribe texto a voltear');
 readln (texto);
 writeln;
 
 volteado:='';
 i:=length (texto);
 
while (i>0) do
 begin
  volteado:= volteado+texto[i];
  i:=i+1;
 end;
 
writeln ('El texto volteado es ',volteado);
 
readkey;
 
END.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder

voltear caracteres

Publicado por Cesar (3 intervenciones) el 04/04/2016 02:19:44
SOLUCIONADO , CAMBIAR I:=i+1; por I:=I-1; y ya, se estaba produciendo un ciclo infinito porque i nunca iba a llegar a 0. el programa completo por si lo quieren:

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
program inicio;
uses crt;
 
 var
  texto,volteado:string;
  i:integer;
 
BEGIN
 writeln ('Escribe texto a voltear');
 readln (texto);
 writeln;
 
 volteado:='';
 i:=length (texto);
 
while (i>0) do
 begin
  volteado:= volteado+texto[i];
  i:=i-1;
 end;
 
writeln ('El texto volteado es ',volteado);
 
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
Imágen de perfil de xve

voltear caracteres

Publicado por xve (25 intervenciones) el 04/04/2016 08:59:32
Gracias por compartirlo!!!
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