Pascal/Turbo Pascal - como hacer un cuadro con tu nombre

   
Vista:

como hacer un cuadro con tu nombre

Publicado por vianney (1 intervención) el 06/03/2014 02:57:08
Hola amigos necesito ayuda saben como hacer un cuadro con tu nombre adentro en turbo pascal?? ayúdenme porfavorrrr
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

como hacer un cuadro con tu nombre

Publicado por ramon (2072 intervenciones) el 06/03/2014 12:38:51
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
{A ver si esto te ayuda}
 
program cuadro;
  uses
    crt;
 
 
  procedure cuadrotexto(posx, posy : integer;tex : string);
  var
    x, y : integer;
  begin
      y := 1;
      for x := 2 to length(tex) + 3 do
      begin
      gotoxy(posx + x,posy + y);write(chr(196));
      gotoxy(posx + x,posy + y + 2 );write(chr(196));
      end;
       gotoxy(posx + 1,posy + y);write(chr(218));
       gotoxy(posx + length(tex) + 4,posy + y);write(chr(191));
       gotoxy(posx + 1,posy + y + 2);write(chr(192));
       gotoxy(posx + length(tex) + 4,posy + y + 2);write(chr(217));
       gotoxy(posx + 1,posy + y + 1);write(chr(179));
       gotoxy(posx + length(tex) + 4,posy + y + 1);write(chr(179));
       gotoxy(posx + 3,posy + 2);write(tex);
  end;
 
  begin
       clrscr;
       cuadrotexto(37,12,'Demo'); {Posiciona el cuadro y el testo en pantalla}
       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
0
Comentar