Pascal/Turbo Pascal - estrella de david programada en pascal

   
Vista:

estrella de david programada en pascal

Publicado por melissa (1 intervención) el 05/05/2012 03:48:41
necesito ayuda... tengo un proyecto para mañana de programar una estrella de david en donde el profesor pueda ver toda la programación que se hizo y que imprima en pantalla la estrella finalizadaa
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

estrella de david programada en pascal

Publicado por ramon (2072 intervenciones) el 05/05/2012 21:33:14
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
{Esto servirá}
 
 uses
     crt;
 
  procedure linea(x, y, x2, y2 : integer);
  var
     z, dx, dy, ap, bp, xe, ye : integer;
  begin
     if x < x2 then
    begin
      xe := 1;
      dx := x2 - x;
    end
  else
     begin
       xe := - 1;
       dx := x - x2;
  end;
     if y < y2 then
      begin
         ye := 1;
         dy := y2 - y;
     end
  else
     begin
        ye := - 1;
        dy := y - y2;
     end;
       gotoxy(x,y);write('.');
     if dx > dy then
     begin
        ap := (dy - dx) * 2;
        bp := dy * 2;
         z := bp - dx;
    repeat
      if z >= 0 then
      begin
        inc(y,ye);
        inc(z,ap);
      end
      else
        inc(z,bp);
        inc(x,xe);
        gotoxy(x,y);write('.');
    until x = x2;
    end
  else
    begin
    ap := (dx - dy) * 2;
    bp := dx * 2;
    z  := bp - dy;
    repeat
      if z >= 0 then
      begin
        inc(x,xe);
        inc(z,ap);
      end
      else
        inc(z,bp);
        inc(y,ye);
        gotoxy(x,y);write('.');
    until y = y2;
    end;
  end;
 
  begin
      clrscr;
      linea(30,10,50,10);
      linea(30,10,40,20);
      linea(50,10,40,20);
      linea(30,17,50,17);
      linea(30,17,40,7);
      linea(50,17,40,7);
      readln;
  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