Pascal/Turbo Pascal - Marcos en pascal con procedure

   
Vista:

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 (2113 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