Progra

Solo disponible en BuenasTareas
  • Páginas : 8 (1961 palabras )
  • Descarga(s) : 0
  • Publicado : 21 de febrero de 2011
Leer documento completo
Vista previa del texto
uses crt;
type
vec=array[1..50] of string;
var
pal:vec;
i,oportunidades:integer;
palabra,intento,letras,letra:string;
alazar,a,j:integer;
opcion,opcion2:byte;
acertado:boolean;
begin
clrscr;
textbackground(8);
clrscr;
a:=0;
repeat
clrscr;
gotoxy(5,9); textcolor(13); writeln('**********************');
gotoxy(5,11); textcolor(13); writeln('*********** ***********');
gotoxy(4,10); textcolor(13); writeln(' ********** _ _ **********');
gotoxy(25,11); textcolor(13); writeln('* ( o ) ( o ) *');
gotoxy(25,12); textcolor(13); writeln('* -=-*');
gotoxy(25,13); textcolor(13); writeln('* *');
gotoxy(25,14); textcolor(13); writeln('******** ********');
gotoxy(33,13); textcolor(13); writeln('****************');
gotoxy(33,15); textcolor(13); writeln('****************');
gotoxy(33,16); textcolor(13); writeln(' * ');
gotoxy(33,17); textcolor(13);writeln(' * * ');
gotoxy(33,18); textcolor(13); writeln(' * * ');
gotoxy(33,19); textcolor(13); writeln(' ************* ');
gotoxy(31,20); textcolor(13); writeln(' * * ');
gotoxy(29,21); textcolor(13); writeln(' * ************* * ');
gotoxy(27,22); textcolor(13); writeln(' * *');
gotoxy(27,5);textcolor(14); writeln('M E N U P R I N C I P A L');
gotoxy(6,10); textcolor(2); writeln('1 JUGAR');
gotoxy(34,14); textcolor(2); writeln('2 CATEGORIAS');
gotoxy(67,10); textcolor(2); writeln('3 AYUDA');
gotoxy(37,20); textcolor(2); writeln('4 SALIR');
gotoxy(29,23); textcolor(8); writeln('elija una de las opciones');
gotoxy(38,24); textcolor(5); writeln('=([])=');
gotoxy(41,24); textcolor(9); readln(opcion);


if (opcion = 1) and (a=0) then
begin
textbackground(8);
clrscr;
gotoxy(37,5); textcolor(12); writeln(' /');
gotoxy(37,6); textcolor(12); writeln(' / ');
gotoxy(37,7); textcolor(12); writeln(' / ');
gotoxy(37,8); textcolor(12); writeln('/______');
gotoxy(40,7);textcolor(14); writeln('!');
gotoxy(34,12); textcolor(11); writeln('N O H A Y');
gotoxy(32,14); textcolor(11); writeln('C A T E G O R I A');
gotoxy(29,16); textcolor(11); writeln('S E L E C C I O N A D A');
gotoxy(25,18); textcolor(11); writeln('P R E S I O N E');
gotoxy(46,18); textcolor(12); writeln('E N T E R');
gotoxy(28,20); textcolor(15);writeln('y seleccione su categoria');
readln;
end;

if (opcion =1) and (a=1) then
begin
randomize;
alazar:=random(9);
palabra := pal[alazar+1];

clrscr;
oportunidades := 7;
intento := '';
for i:=1 to length(palabra) do
if palabra[i]= ' ' then
beginintento:=intento+' '
end
else
begin
intento:=intento+'_';
letras:='';
letra:='';
end;

repeat
clrscr;
gotoxy(15,3); textcolor(15); writeln('_ - _ - _ J U E G O D E L A H O R C A D O _ - _ - _ ');
textcolor(6);
gotoxy(10,6); writeln(' ****** ');delay(15000);
gotoxy(10,7); writeln(' * + '); delay(15000);
gotoxy(10,8); writeln(' * ');
gotoxy(10,9); writeln(' * ');
gotoxy(10,10); writeln(' * ');
gotoxy(10,11); writeln(' * ');
gotoxy(10,12); writeln(' * ');
gotoxy(10,13); writeln(' * ');
gotoxy(10,14); writeln(' *...
tracking img