Turbo Pascal* Programa el Ahorcado, me presenta unos problemas. Ayuda??
Publicado por Yousaf Jamal (3 intervenciones) el 10/12/2014 20:34:04
Hola Colegas, espero que esten Bien...
eh venido aca buscando ayuda, ya que estoy haciendo un programa que me han dejado de tarea.
Nuestro Prof, Solo nos dio unas hojas con el programa dentro, y nosotros solo la teniamos que copiar en el Turbo Pascal...
Bien, le e copiado todo. y me esta presentado un Error... Uno NO, Varios Errores..
y quiero que me ayuden a solucionarle!
Les dejare imagenes del programa! y mas abajo como me ah quedado. y Ayudenme a Ponerle a Funcionar.
El juego *EL AHORCADO* Porfavor
Imagenes del trabajo que debia de copiar en pascal.
Este es el programa copiado por mi... al parecer cometi errores al copiarlo.. Ayudenme a corregir.
Porfavor, tengo que entregar esto antes del viernes 12/12/2014
eh venido aca buscando ayuda, ya que estoy haciendo un programa que me han dejado de tarea.
Nuestro Prof, Solo nos dio unas hojas con el programa dentro, y nosotros solo la teniamos que copiar en el Turbo Pascal...
Bien, le e copiado todo. y me esta presentado un Error... Uno NO, Varios Errores..
y quiero que me ayuden a solucionarle!
Les dejare imagenes del programa! y mas abajo como me ah quedado. y Ayudenme a Ponerle a Funcionar.
El juego *EL AHORCADO* Porfavor
Imagenes del trabajo que debia de copiar en pascal.
Este es el programa copiado por mi... al parecer cometi errores al copiarlo.. Ayudenme a corregir.
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
Program Juego_Ahorcado; ahorcado
Uses crt, softcrt, softcmd, qetmouse, visual;
Var
I, N,
Error : integer; Adivina,Palabra : String[25];
Letra : char; Ahorcado, HayLetra, Salir : Boolean; Panta : ptrscr;Procedure Iniciar;
Begin
WriteLn('Ahorcado version 1.0á (c) Copyright 1997,98 ING Alexandro Baez');
SetAllASCII;
SetCursor(Off); setBlink(Off);
CheckBreak := False;
VerifyMouse; ft
FXMouse := True; setMouseMenu := True;
End; { Iniciar }
Procedure SalirDOS;
Begin
SetMouse(Hide); setBlink(On); setcursor(on);
RestoreASCII;
Color($07); Clrscr;
writeLn;
WriteLn('Por: Alexandro Ant. Baez Copyright 1997'); .
writeLn('alexandro11@yahoo.com.com );
Halt(0);
End; { SalirDOS }
Procedure Disenno;
Begin
Iniciar; Clrscr;
If changeASCII then wnteAttr(1,1,$0f, #211#6)
Else writeAttr(1,1,$0f, '[]');
FillColor(1,25,80,25, $f0); FillColor(1,2,80,2, $f0),
Centrar(1, 'Ahorcado'); Fillco1or(3,1,80,1, $1f);
FillColor(1,3,80,24, $8f);
Color($8b);
writeMem(50,8, ' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
Color($8f); For N:=1 to 14 do WriteMem(69,8+N, #219);
WriteMem(50,23, ' ÛÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÛÜÜÜÜÛ');
NormVideo;
End; { Disenno }
Procedure Cabeza;
Begin
End;
color($8a); WriteMem(49,9, 'ÚÄÄÄ¿ '); WriteMem(48,10, 'úù, À¿');
WriteMem(48,11, 'À¿ ÚÙ'); WriteMem(49,12, 'ÀÄÂÄÙ'); Normvideo;
End;
Procedure Troncco:
Begin
Color($8a); WriteMem(51,13, 'Å '); writeMem(51,14, '3');
WriteMem(51,15, ,'3'); WriteMem(51,16, '3'); NormVideo;
End;
Procedure Brazo1;
Begin
Color($8a); WriteMem(48,13, 'ÚÄÄ'); WriteMem(47,14, 'úù ');
WriteMem(47,15, '3 '): WriteMem(47,16, 'Á'); NormVideo;
End.
Procedure Brazo2;
Begin
Color($8a); writeMem(52,13, 'ÄÄ¿ '); WriteMem(52,14, ' À¿ ');
WriteMem(52,15, ' 3 ') writemem(52,16, ' À ' normvideo;
End;
Procedure Pierna1;
Begin
Color($8a); WriteMem(45,17, ' ÚÄÁ'); WriteMem(45,18, ' 3 ')
writeMem(45,19, ' ÚÙ '); writeMem(45,20, ' 3 ');
WriteMem(45,21, ' Á '); NormVideo;
End;
Procedure Pierna2;
Begin
Color($8a); WriteMem(52,17, 'Ä¿ '); WriteMem(52,18, ' 3 ');
WriteMem(52,19, ' Á¿ '); WriteMem(52,20, ' 3'); WriteMem(52,21, 'Á');
NormVideo;
End;
Begin
Clrscr;
StrPW := True;
Disenno;
Color($70); For I:=1 to 26 do WriteMem((I*3)-1,4, #32+ chr(64+I) + %32);
Repeat
Ahorcado := False; Salir := False;
Fillcolor(1,5,80,7, $88); FillColor(40,9,60,22, $88);
New(Panta); SaveScr(Pantaᶺ);
Randomize;
Adivina : = 11 ;
ventana(10,'Palabra clave', 25,10,56,17, $bf, On,On);
Color($b0); writeMem(27,15,'['); WriteMem(54,15,']');
Centrar(12, 'Ingrese la palabra para');
centrar(13, ' adivinar :');
color($0f); ,
Palabra := LeerCad(Size0f(Palabra), 27,15, '', On,Off);
setcursor(off);
restoreScr(Pantaᶺ, 25,10,58,18);
CuadroOut(2,5,3+(Length(Palabra)*3),7, $82);
Fillcolor(2,6,3+(Length(Palabra)*3),6, $f2);
For N:=1 to Length(Palabra) do
If palabra[N] = #32 then lnsert(#32, Adivina, N)
Else Insert('?', Adivina, N);
For N:=1 to Length(Palabra) do WriteColor((N*3),6, $f2, #32+Adivina[N]+#32);
Error .:= 0;
Repeat
For I:=1 to 26 do item[1]:= ' <' + Chr(64+I) + #32;
Color($80);
Repeat
MenuBar(Horizont, BNormal, 26, 2,4, 0, $f0,$0b,$lf)5
Until not clickout;
Letra := Item[Positem][2];
HayLetra := False;
For N:=1 to Length(Palabra) do
If Upcase(Palabra[N]) = upcase(Letra) then
Begin Adivina[N] := Letra; HayLetra := True; End;
If not HayLetra then Inc(Error);
For N:=1 to Length(Palabra) do writeColor((N*3) ,6, $f2, #32+Adivina[N]+#32);
Case Error of
1:Cabeza; 2:Tronco; 3:brazol; 4:brazo2; 5:pierna1; 6:pierna2;
End;
If Error = 6 then Ahorcado := True;
Until (Upper(Palabra)=upper(Adivina)) or (Ahorcado);
SaveScr(Pantaᶺ);
WMinY:=3; WMaxY:=24;
For N:=l to Lenqth(Palabra) do writeColor((N*3),6, $f2, #32+Palabra[N]+#32)
If Ahorcado then windFloat('Ahorcado', 'usted ha perdido el juego' , Pantaᶺ, $4f)
Else WindFloat ('Felicitaciones!', 'usted ha ganado el juego' Pantaᶺ, $2f)
WMinY:=l; WMaxY:=25;
ventana(10,'Salir del Ahorcado', 22,10,58,16, $9f, On,on)
Color($9f); Centrar(12, 'Desea continuar el juego ?');
Color($90); PosItem 1;
Item[1] := ' <S! '; Item[2] := ' <NO! ';
MenuBar(Horizont, BPush, 2, 25, 14, 4, $9f, On,On);
RestoreScr(Pantaᶺ, 22,10,60,17)
Until Salir;
Dispose(Panta);
SalirDOS;
End.Porfavor, tengo que entregar esto antes del viernes 12/12/2014
Valora esta pregunta
0