Pascal/Turbo Pascal - Ahorcado

   
Vista:

Ahorcado

Publicado por Ismael (1 intervención) el 24/01/2008 21:43:59
He de realizar el juego del ahorcado y como parte del juego tengo "hecho" estos 2 procedimientos para q combierta la palabra q metes en guiones, y el otro para ir descubriendola pero no me compila.dice tipe mistake el la llamada a guiones.

PD en free pascal si compila giones

Si alguien me ayuda se lo agradeceria muxo

program Ahorcado;

uses CRT;

const
TPalabra=10;

Var palabra:string[tpalabra];
con_guiones:string[tpalabra];
palabra:string[tpalabra];
guion:string;
posicion:integer;
letra:char;

Procedure guiones(var con_guiones:string; i:integer);
var num:integer;
Begin
con_guiones:=' ';
num:=length(palabra);
For i:=1 to num do
con_guiones:=con_guiones+'_';
End;

Procedure cambiarporletra(Var con_guion:string; letra:char);
var i,numero:integer;
Begin
i:=1
numero:=length(palabra);
for i:=1 to numero
If letra=palabra[i] then con_guiones[i]:=letra
end;

begin {programa principal}
clrscr;
writeln('Escribe una palabra');
readln(palabra);
guiones(palabra;length(palabra));
writeln(con_guiones);
repeat
clrscr;
writeln('Escribe una letra');
Readln('letra');
cambiarporletra(con_guiones,letra);
readln;
until (palabra=conguiones)
end
writeln();

readln;
end.
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

RE:Ahorcado

Publicado por Diego Romero (997 intervenciones) el 25/01/2008 00:57:19
En la llamada al procedimiento guines() estás separando ambos parámetros con punto y coma cuando debería ser solo coma.

Pero aparte de eso, el segundo parámetro "i" no tiene sentido puesto que lo inicializas dentro del procedimiento y es un parámetro por valor. Por si fuera poco, el primer parámetro "con_guiones" lo modificas dentro del procedimiento y ese parámetro está declarado por referencia, es decir, estás perdiendo el valor que contenía la variable que usas en ese parámetro.
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