Le das las coordenadas x1,y1 , x2,y2 y dibuja un marco en esas coordenadas

¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
uses
   crt;{Carga libreria de la pantalla}
var
   x1,x2,y1,y2    : integer;
    cantidad      : integer;    cont       : integer;
procedure dibuja(x1,y1,x2,y2:integer);
   {Procedimiento que dibuja un marco en las coordenadas dadas}
   var
      cont  : integer;   begin
      
        {Dibujando desde X1 a X2 en Y1}
        for cont:=x1 to x2 do
         begin               gotoXY(cont,y1);{Posiciona cursor}
                write('°');{Dibuja caracter}
                delay(10);{Retarda la ejecucion}
            end;{Fin del FOR}
         {Dibujando desde Y1 a Y2 en X2}
        for cont:=y1 to y2 do
         begin
               gotoXY(x2,cont);{Posiciona cursor}
                write('°');{Dibuja caracter}                delay(10);{Retarda la ejecucion}
            end;{Fin del FOR}
 
        {Dibujando desde X2 a X1 en Y2}
        for cont:=x2 downto x1 do         begin
            gotoXY(cont,y2);{Posiciona cursor}
                write('°');{Dibuja caracter}
                delay(10);{Retarda la ejecucion}
            end;{Fin del FOR} 
        {Dibujando desde Y2 a Y1 en X1}
        for cont:=y2 downto y1 do
            begin
            gotoXY(x1,cont);{Posiciona cursor}               write('°');{Dibuja caracter}
                delay(10);{Retarda la ejecucion}
            end;{fin del FOR}
 
    end;{Fin del procedimiento} 
begin{Inicia programa principal}
   clrscr;{Limpiamos pantalla}
   write('Cantidad de marcos: ');{Salida en pantalla}
    readln(cantidad);{Entrada desde el teclado}    clrscr;{Limpia pantalla}
   for cont:=1 to cantidad do
      {
         Pide y dibuja los marcos
        }      begin
         gotoxy(70,1);
            write('X1: ');
            readln(x1);
             gotoxy(70,2);
            write('Y1: ');
            readln(y1);
 
            gotoxy(70,4);            write('X2: ');
            readln(x2);
 
            gotoxy(70,5);
            write('Y2: ');            readln(y2);
 
            gotoxy(70,1);write('       ');
            gotoxy(70,2);write('       ');
            gotoxy(70,4);write('       ');            gotoxy(70,5);write('       ');
 
            dibuja(x1,y1,x2,y2); 
        end;
    readkey;end.

Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

  • Si es lenguaje C <code lang="c">Código en C</code>
  • Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.

De esta manera el código coloreas el código.

Deja un comentario

Suscribirse a los comentarios.