Trabajo

#include <conio.h> /* se declara una libreria */
#include <stdlib.h> /* se declara una libreria */
#include <stdio.h> /* se declara una libreria */
#include <string.h> /*se declara una libreria */
int salir; /* variable global */

Procedimiento ahorca(int fallo) /* subrutina que se ejecuta en caso de que no se adivine la letra */
{
Según_sea fallo hacer
1:escribir(“dibujo cuerda ”)
2: escribir(“dibujo + cabeza”)
3: escribir(“dibujo + brazo izquierdo”)
4: escribir(“dibujo + brazo derecho”)
5: escribir(“dibujo + tronco”)
6: escribir(“dibujo +pie izquierdo”)
7: escribir(“dibujo + pie derecho”)
Salir  1 /* variable global */
Fin_según
}

Var
Palabras[11][9], cadena2[10], palabra[10], *P, letra, repetir: carácterPlantilla[10], lonpal, i, fallos, acierto, puntos, adivina: entero

Inicio

/* PRESENTACION MENU PRINCIPAL */

Limpiar pantalla
Escribir (“ INSTRUCCIONES JUEGO DEL AHORCADO")
Escribir(“ Adivinarpalabra en un maximo de 7 oportunidades en cada oportunidad puede elegir una letra, si acierta letra tendra 2 puntos, si no acierta se os restara un punto . Gana quien tenga más puntos. Laspalabras son de 4, 5, 6, 7 u 8 letras cada una.………….. SUERTE")
Escribir (“ Pulsa una letra para empezar...")

Repetir /* Hacer desde aqui mientras se quiera seguir jugando */
Desde i=0 hasta i<10incremento 1 hacer /* bucle for */
cadena2[i] ” ” /* Limpia con espacios en blancos por ser char la cadena */
palabra[i]  “ “ /* Limpia con espacios en blancos por ser char la cadena */plantilla[i]  0 /* Limpia con 0 la cadena por ser entera */
fin_desde
adivinarandom(11-1)+1
desde i=0 hasta palabras[adivina][i]=/0 incremento 1 hacer
palabra[i]=palabras[adivina][i]fin_desde
Limpiar pantalla
Lonpal  0 /* variable global */
Salir  0 /* variable global */
Fallos  0 /* variable global */
Puntos  0 /* variable global */
escribir ("Adivine palabra:...