Pascal/Turbo Pascal - Marcos en pascal con procedure

 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 21 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Marcos en pascal con procedure

Publicado por Javs (1 intervención) el 28/08/2017 03:54:30
Hola, me gustaria saber si alguien me puede ayudar a hacer 3 marcos en pascal con procedure, la idea es que sean uno dentro del otro, aunque yo tengo los tres marcos, mi problema es que no los puedo ejecutar al mismo tiempo, no se como poner los 3 juntos, por mas que lo intente sigue apareciendo uno solo.
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

Marcos en pascal con procedure

Publicado por ramon (2112 intervenciones) el 28/08/2017 12:34:19
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
{Algo asín}
 
program marcos;
 uses
    crt;
  const
  inial : char = 'Ú';
  final : char = '¿';
  iniva : char = 'À';
  finva : char = 'Ù';
  lineo : char = 'Ä';
  linev : char = '³';
 
  var
    t : integer;
 
  procedure cuadro(x, y, xx, yy : integer);
  begin
     gotoxy(x,y);write(inial);
     gotoxy(x,yy);write(iniva);
     for t := x + 1 to xx - 1 do
     begin
       gotoxy(t,y);write(lineo);
       gotoxy(t,yy);write(lineo);
     end;
       gotoxy(xx,y);write(final);
       gotoxy(xx,yy);write(finva);
       for t := y + 1 to yy - 1 do
       begin
          gotoxy(x,t);write(linev);
          gotoxy(xx,t);write(linev);
       end;
  end;
 
  begin
     clrscr;
     cuadro(10,10,30,20);
     cuadro(12,12,28,18);
     cuadro(14,14,26,16);
     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
Revisar política de publicidad