Pascal/Turbo Pascal - PORFAVOR AYUDA ES URGENTE !!!

   
Vista:

PORFAVOR AYUDA ES URGENTE !!!

Publicado por Roberto Tellez bancuenta@hotmail.com (1 intervención) el 08/02/2014 23:59:59
Alguien me podríaa ayudar a imprimir en la pantalla de turbopascal todo el codigo ascii en columnas porfavorrrrr!!!!!................................ No sé como hacerlo !!
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

PORFAVOR AYUDA ES URGENTE !!!

Publicado por ramon (2072 intervenciones) el 11/02/2014 19:07:03
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
{Mira esto}
 
program teclado;
 uses
   crt;
  var
    cont : integer;
    p, x, y : integer;
  begin
      clrscr;
      x := 1;
      y := 1;
    for p := 0 to 254 do
    begin
       gotoxy(x,y);write(p,' ',chr(p));
       y := y + 1;
       if y > 24 then
       begin
          y := 1;
          x := x + 7;
       end;
    end;
    readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

PORFAVOR AYUDA ES URGENTE !!!

Publicado por Roberto Tellez (1 intervención) el 29/03/2014 20:45:54
graciias me ha sido de gran utilidad viejo !!
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