Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  juegodidac
Language: C/C++
Code:
PROGRAM JuegoDidactico;
        Uses Crt;
var numpremate, numpreing, numpreleo, numprequim, numprebase, numpreprom,Iy,Ig:REAL 
{=======================================================================}
{avanza un lugar el usuzario}
PROCEDURE yo
             BEGIN
                  Iy:=Iy+1
             END;
{=======================================================================}
{vanza un lugar la ignorancia}
PROCEDURE ignorancia
             BEGIN
                  Ig:=Ig+1
             END;
{=======================================================================}
{preguntas de mate}
PROCEDURE Mate (var op:REAL;);
           Begin
           numpremate:numpremate+1;
                   case numpre of
                                          1: Begin
                      writeln(‘pregunta’);
                                                   writeln(‘respuesta 1’);
        writeln(‘respuesta 2’);
         writeln(‘respuesta 3’);
         readln (op)
                                                  If op= A then
                                yo
                                                            Else
                                                            Begin
                                                            TEXTBACKGROUND(15);
                                                             writeln(‘respuesta 1’);
                                                            ignorancia;
                                                   End;
                                             End;
                            End;
{preguntas de Leo}
PROCEDURE Mate (var op:REAL;);
           Begin
           numpremate:numpremate+1;
                   case numpre of
                                          1: Begin
                      writeln(‘pregunta’);
                                                   writeln(‘respuesta 1’);
        writeln(‘respuesta 2’);
         writeln(‘respuesta 3’);
         readln (op)
                                                  If op= A then
                                yo
                                                            Else
                                                            Begin
                                                            TEXTBACKGROUND(15);
                                                             writeln(‘respuesta 1’);
                                                            ignorancia;
                                                   End;
                                             End;
                            End;

{=======================================================================}
Begin {empieza programa principal}
     Whiteln(‘ROSSELIN NATALIA LEON DE LOS SANTOS’);
     Tablero;
                     REPEAT              
                      If  R>20
                       GOTO(X,Y);
                       Mate;
                       R:=R+1
                              If  R>20
                                GOTO(X,Y);
                                 Ing;
                                 R:=R+1
                                 If  R>20
                                            GOTO(X,Y);
                                             Leo;
                                              R:=R+1
                                              If  R>20
                                                    GOTO(X,Y);
                                                     Quim;
                                                      R:=R+1
                                                     If  R>20
                                                          GOTO(X,Y);
                                                          Base;
 R:=R+1
                                                           If  R>20
                                                                    GOTO(X,Y);
                                                                    Prom
                         R:=R+1
                                                             Else
                                                                  R:=20
                                                      Else
                                                             R:=20
                                              Else
                                                                  R:=20
                                    Else
                                        R:=20
                               Else
                                      R:=20
                       Else
                            R:=20;
                       UNTIL  R >20 
  
      Readln;
End.
Comments: