ejercicio recursivo duda
Publicado por ricardo (6 intervenciones) el 17/05/2016 21:19:13
Buenas!
Veran, tengo un ejercicio que dice asi: Encontrar un procedimiento recursivo que lea una serie de caracteres hasta encontrar una 鈥淔鈥 e imprimirlos en orden inverso.
Lo resolvi asi:
Si pruebo A B C D E F devuelve F E D C B A.
Ahi funciona bien, lo que no entiendo es porque imprime solos F cuando modifico el parametro Car por un entrada/salida (por referencia creo que dice) quedando asi:
Procedure Invertir (Var Car:Char);
En este caso, si pruebo otra vez A B C D E F devuelve F F F F F F
Esa es mi duda, si la pudieran constestar se los agradeceria!
Veran, tengo un ejercicio que dice asi: Encontrar un procedimiento recursivo que lea una serie de caracteres hasta encontrar una 鈥淔鈥 e imprimirlos en orden inverso.
Lo resolvi asi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program tp6;
Procedure Invertir (Car:Char);
Begin
If (Car<>'F') then
Begin
Write ('Ingrese caracter: ');
Readln(Car);
Invertir(Car);
Writeln (Car);
End;
End;
Var
Car:char;Begin
Invertir (Car);
Writeln;
End.Si pruebo A B C D E F devuelve F E D C B A.
Ahi funciona bien, lo que no entiendo es porque imprime solos F cuando modifico el parametro Car por un entrada/salida (por referencia creo que dice) quedando asi:
Procedure Invertir (Var Car:Char);
En este caso, si pruebo otra vez A B C D E F devuelve F F F F F F
Esa es mi duda, si la pudieran constestar se los agradeceria!
Valora esta pregunta
0