Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Ayudaaa Urgente _Necesito Hacer un Robot Interactivo En Turbo pascal

Pascal/Turbo Pascal - Ayudaaa Urgente _Necesito Hacer un Robot Interactivo En Turbo pascal

Volver
Nuevo Tema
<<>>
 
Vista:

Ayudaaa Urgente _Necesito Hacer un Robot Interactivo En Turbo pascal

Publicado por CaRLOS (3 intervenciones) el 23/05/2016 14:43:54
Quien me puede ayudar hacr um robot interactivo en turbo pascal..!!
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

Ayudaaa Urgente _Necesito Hacer un Robot Interactivo En Turbo pascal

Publicado por CARLOS (3 intervenciones) el 26/05/2016 23:54:37
manoooo como ago para que me ayuden en serio necesito esto urgente
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

Ayudaaa Urgente _Necesito Hacer un Robot Interactivo En Turbo pascal

Publicado por ramon (2158 intervenciones) el 27/05/2016 00:14:08
Primero tienes que dar los datos que tienes que realizar puesto que sino podría no servir de nada la ayuda que tienes que realizar
informa y seras ayudado en lo que se pueda pero recuerda esto solo en pascal.
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

Ayudaaa Urgente _Necesito Hacer un Robot Interactivo En Turbo pascal

Publicado por CaRLOS (3 intervenciones) el 28/05/2016 02:53:39
bUENO NECESTIO Y PROGRAMA O CODIGO DE PASCAL..

Principio un Robot interactivo IMangen de l robot copilado en pascal y que camine Que Hable y pregunte cosas sobre mi y pueda responder (Opcional) Cualquier Tipo De Pregunta Tambien..
Cuando Termine De conversar preguntar Si quiero hacer una Mezcla de cemento decirme si o no yo seleccionar. si. Darme 10 Tipo de Realizar cemento Seleccionar alguno y explicarme El Robot Como hacerla despues preguntar si quiero hacer otro tipo de cemento si no salir si si comenzar seleccionarlo y explicarlo despues fin del algoritmo..

En este Caso Soy estudiante de ingeneria Civil pero Veo Programacion y el PRofesor Me MAto.. De verdad EStoy TRancado en pensamiento no se como comenzar y como realizar y de verdad necesito tener a unque sea una parte para el lunes
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

Ayudaaa Urgente _Necesito Hacer un Robot Interactivo En Turbo pascal

Publicado por ramon (2158 intervenciones) el 28/05/2016 14:19:26
Para lo que pides tendremos que utilizar un archivo que recoja las preguntas y respuestas a ciendo las
veces de memoria en un sistma electronico,
Intentare ayudarte pero el tiempo que pides se poco espero el ejemplo que te ponga te valga sera en modo texto.
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

Ayudaaa Urgente _Necesito Hacer un Robot Interactivo En Turbo pascal

Publicado por ramon (2158 intervenciones) el 29/05/2016 22:13:06
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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
{Mira Este pequeño ejemplo de como seria pero empleando archivo tanto para las preguntas como para las respuestas}
 
 
program elrobot;
  uses
    crt;
    const
       lapregunta : array[1..10] of string[50] = (
       ('Cuantos Bit Tiene Un Byte'),
       (''),(''),(''),(''),(''),(''),(''),(''),(''));
 
       respuestas : array[1..10] of integer = (
       (8),(0),(0),(0),(0),(0),(0),(0),(0),(0));
 
       paso1 : array[1..14,1..11] of byte = (
       (0,0,0,0,1,1,1,0,0,0,0),
       (0,0,0,1,0,0,0,1,0,0,0),
       (0,0,1,0,0,0,1,0,1,0,0),
       (0,0,1,0,0,0,0,0,1,1,0),
       (0,0,1,0,0,1,1,0,1,0,0),
       (0,0,0,1,0,0,0,1,0,0,0),
       (0,0,0,0,1,1,1,0,0,0,0),
       (0,0,0,0,1,0,1,0,0,0,0),
       (0,0,0,1,1,0,1,1,0,0,0),
       (0,0,1,0,1,0,1,0,1,0,0),
       (0,1,0,0,1,1,1,0,0,1,0),
       (0,0,0,1,0,0,0,1,0,0,0),
       (0,0,0,1,0,0,1,0,0,0,0),
       (0,0,0,1,1,0,1,1,0,0,0));
 
      paso2 : array[1..14,1..11] of byte = (
       (0,0,0,0,1,1,1,0,0,0,0),
       (0,0,0,1,0,0,0,1,0,0,0),
       (0,0,1,0,0,0,1,0,1,0,0),
       (0,0,1,0,0,0,0,0,1,1,0),
       (0,0,1,0,0,1,1,0,1,0,0),
       (0,0,0,1,0,0,0,1,0,0,0),
       (0,0,0,0,1,1,1,0,0,0,0),
       (0,0,0,0,1,0,1,0,0,0,0),
       (0,0,0,1,1,0,1,1,0,0,0),
       (0,0,1,0,1,0,1,0,1,0,0),
       (0,1,0,0,0,1,0,0,0,1,0),
       (0,0,0,0,1,0,1,0,0,0,0),
       (0,0,0,1,0,1,0,0,0,0,0),
       (0,0,0,1,1,1,1,0,0,0,0));
 
 
       paso3 : array[1..14,1..11] of byte = (
       (0,0,0,0,1,1,1,0,0,0,0),
       (0,0,0,1,0,0,0,1,0,0,0),
       (0,0,1,0,0,0,1,0,1,0,0),
       (0,0,1,0,0,0,0,0,1,1,0),
       (0,0,1,0,0,1,1,0,1,0,0),
       (0,0,0,1,0,0,0,1,0,0,0),
       (0,0,0,0,1,1,1,0,0,0,0),
       (0,0,0,0,1,0,1,0,0,0,0),
       (0,0,0,1,1,0,1,1,0,0,0),
       (0,0,1,0,1,0,1,0,1,0,0),
       (0,1,0,0,0,1,0,0,0,1,0),
       (0,0,0,0,1,1,0,0,0,0,0),
       (0,0,0,0,1,0,1,0,0,0,0),
       (0,0,0,0,1,1,1,1,0,0,0));
 
      tex : string[13] = ' La Respuesta';
   var
      resp, abx, aby, modoinicio : integer;
      n, g, x, y, h, l : integer;
 
 
   procedure anulapasos(ax, ay : integer);
   begin
      for h := 1 to 14 do
        for l := 1 to 11 do
        begin
          gotoxy(ax + l,ay + h);write(' ');
        end;
   end;
 
   procedure presenta1(px, py : integer);
   begin
      for h := 1 to 14 do
        for l := 1 to 11 do
        begin
           if paso1[h,l] = 1 then
           begin
           gotoxy(px + l,py + h);write('#');
           end;
        end;
        delay(160);
   end;
 
   procedure presenta2(px, py : integer);
   begin
      for h := 1 to 14 do
        for l := 1 to 11 do
        begin
           if paso2[h,l] = 1 then
           begin
           gotoxy(px + l,py + h);write('#');
           end;
        end;
        delay(160);
   end;
 
   procedure presenta3(px, py : integer);
   begin
      for h := 1 to 14 do
        for l := 1 to 11 do
        begin
           if paso3[h,l] = 1 then
           begin
           gotoxy(px + l,py + h);write('#');
           end;
        end;
        delay(160);
   end;
 
 
   begin
      modoinicio := lastmode;
      textmode(c80 + font8x8);
      clrscr;
      abx := 2;
      aby := 2;
      n := 1;
      gotoxy(2,40);write('Pregunta = ',lapregunta[n]);
    repeat
      anulapasos(abx,aby);
      presenta1(abx,aby);
      if abx > 50 then
      begin
      anulapasos(abx,aby);
      for g := 1 to length(tex) do
      begin
       gotoxy((abx + 11) + g,aby + 5);write(' ');
      end;
      abx := 2;
      end
    else
       inc(abx,1);
       anulapasos(abx,aby);
       presenta2(abx,aby);
       anulapasos(abx,aby);
       inc(abx,1);
       presenta3(abx,aby);
       anulapasos(abx,aby);
       for g := 1 to length(tex) do
       begin
       gotoxy((abx + 11) + g,aby + 5);write(tex[g]);
       end;
    until keypressed;
      resp := ord(readkey) - 48;
      if resp = respuestas[1] then
      begin
      gotoxy(2,45);write('La Respuesta Es Cierta Se Compone De ',
      respuestas[1]);
      end
    else
       begin
         gotoxy(2,45);write('La Respuesta Es Incierta Se Compone De ',
         respuestas[1],' Y No De ',resp);
       end;
       readkey;
      textmode(modoinicio);
   end.
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