Pascal/Turbo Pascal - mostrar 2 lineas d texto a la vez?

   
Vista:

mostrar 2 lineas d texto a la vez?

Publicado por sanguedolce franco (32 intervenciones) el 26/05/2012 07:58:42
okey aqi va mi duda... Es posible hcer qe pascal elija aleatoriamente 2 filas y escriba numeros aleatorios a la vez? La idea es hcer qe los numeros vayan apareciendo uno a uno en cada fila, y qe este proceso se repita en varias filas a la vez.
Es esto posible? Y de serlo, como se logra?
Desde ya muchas gracias
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

mostrar 2 lineas d texto a la vez?

Publicado por ramon (2072 intervenciones) el 26/05/2012 16:02:10
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
{Espero esto te sirva como ejemplo}
 
 program aleatori;
 uses
   crt;
  var
    x, y, x1, y1, num1, num2  : integer;
    tec : char;
 
  begin
     randomize;
     clrscr;
     gotoxy((80 div 2) - 23,1);write('Para Finalizar Pulse [Enter]');
   repeat
    if keypressed then
    tec := readkey;
    num1 := random(100);
    num2 := random(150);
    x := random(67);
    y := random(25);
    x1 := random(67);
    y1 := random(25);
    if x < 1 then
    x := 1;
    if y < 3 then
    y := 3;
    if x1 < 1 then
    x1 := 1;
    if y1 < 3 then
    y1 := 3;
    gotoxy(x,y);write('Linea 1 : ',num1);
    gotoxy(x1,y1);write('Linea 2 : ',num2);
    delay(500);
    gotoxy(x,y);clreol;
    gotoxy(x1,y1);clreol;
   until tec = #13;
  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