Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Marcos en pascal con procedure

Pascal/Turbo Pascal - Marcos en pascal con procedure

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

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