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 » Ayuda con este programa

Pascal/Turbo Pascal - Ayuda con este programa

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

Ayuda con este programa

Publicado por Luis (14 intervenciones) el 17/06/2015 01:46:06
Realice un procedimiento llamado cuadro2 que escriba un marco en pantalla y que
reciba en orden los siguientes parámetros:
• x1: coordenada x donde comienza el cuadro
• y1: coordenada y donde comienza el cuadro
• x2: coordenada x donde termina el cuadro
• y2: coordenada y donde termina el cuadro
• car: caracter con el que se hará el marco del cuadro.
• Color: entero que representa el color con el que se hará el cuadro.

alguien me podria ayudar como hacerlo le agradeceria mucho
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

Ayuda con este programa

Publicado por ramon (2158 intervenciones) el 17/06/2015 14:00: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
{Mira esto}
   uses
         crt;
 
 
  procedure cuadro(x1, y1, x2, y2 : integer;caracter : char;color : byte);
  var
      x, y : integer;
   begin
           textcolor(color);
           for x := x1 to x2 do
             begin
                   gotoxy(x.y1);write(caracter);
                   gotoxy(x,y2);write(caracter);
              end;
           for x := y1 to y2 do
             begin
                   gotoxy(x1.y);write(caracter);
                   gotoxy(x2,y);write(caracter);
              end;
           textcolor(7);
     end;
 
 
   begin
         clrscr;
        cuadro(10,20,5,15,'*',12);
        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

Ayuda con este programa

Publicado por ramon (2158 intervenciones) el 17/06/2015 20:48:06
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
{En el anterior existe un pequeño fallo en este corregido }
 
uses
         crt;
 
 
  procedure cuadro(x1, y1, x2, y2 : integer;caracter : char;color : byte);
  var
      x, y : integer;
   begin
           textcolor(color);
           for x := x1 to x2 do
             begin
                   gotoxy(x,y1);write(caracter);
                   gotoxy(x,y2);write(caracter);
              end;
           for y := y1 to y2 do
             begin
                   gotoxy(x1,y);write(caracter);
                   gotoxy(x2,y);write(caracter);
              end;
           textcolor(7);
     end;
 
 
   begin
         clrscr;
        cuadro(10,10,25,20,'*',12);
        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