Programme C pour dessiner la Tour Eiffel à l’aide d’infographies

#include

#include

#include

vide principal()

{

int gd = DETECT, gm;

initgraph(&gd, &gm, « C:\turboc3\bgi »);

int a = 390, b = 390, c = 700 ;

ligne (300, 1000, 450, 1000);

ligne (300, 1000, 480, 940) ;

ligne (450, 1000, 330, 940) ;

ligne (330, 940, 480, 940) ;

ligne (330, 940, 510, 880);

ligne (480, 940, 360, 880);

ligne (360, 880, 510, 880);

ligne (360, 880, 540, 820);

ligne (390, 820, 510, 880);

ligne (390, 820, 540, 820);

ligne (300, 1000, 390, 820);

ligne (450, 1000, 540, 820);

ligne (390, 820, 810, 820);

ellipse (600, 900, 15, 165, 90, 80);

ligne (750, 1000, 900, 1000);

ligne (750, 1000, 870, 940) ;

ligne (720, 940, 900, 1000);

ligne (720, 940, 870, 940);

ligne (720, 940, 840, 880);

ligne (870, 940, 690, 880);

ligne (690, 880, 840, 880);

ligne (690, 880, 810, 820);

ligne (840, 880, 660, 820);

ligne (660, 820, 810, 820);

ligne (750, 1000, 660, 820);

ligne (900, 1000, 810, 820);

rectangle (390, 800, 810, 820);

rectangle (380, 780, 820, 800);

rectangle (390, 760, 810, 780);

tandis que (a <= 790) {

ligne(a, 820, a + 10, 800);

ligne(a + 10, 800, a + 20, 820);

a = a + 20;

}

tandis que (b <= 810) {

ligne(b, 760, b, 780);

b = b + 20 ;

}

ligne (410, 760, 530, 760);

ligne (410, 760, 560, 700);

ligne (530, 760, 440, 700);

ligne (440, 700, 560, 700);

ligne (440, 700, 590, 640);

ligne (560, 700, 470, 640);

ligne (470, 640, 590, 640);

ligne (410, 760, 470, 640);

ligne (540, 760, 590, 640);

ligne (670, 760, 790, 760);

ligne (670, 760, 760, 700);

ligne (790, 760, 640, 700);

ligne (640, 700, 760, 700);

ligne (640, 700, 730, 640);

ligne (760, 700, 610, 640);

ligne (610, 640, 730, 640);

ligne (670, 760, 610, 640);

ligne (790, 760, 730, 640);

ligne (470, 640, 730, 640);

rectangle (460, 620, 740, 640);

rectangle (470, 600, 730, 620);

b = 470 ;

tandis que (b <= 730) {

ligne(b, 600, b, 620);

b = b + 10 ;

}

a = 600 ;

b = 500 ;

ligne (600, 600, 600, 140);

tandis que (b >= 240) {

si (b == c)

Pause;

autre {

ligne(b, a, c, a);

ligne(b, a, c – 10, a – 40) ;

ligne(b + 10, a – 40, c, a);

a = a – 40 ;

b = b + 10 ;

c = c – 10;

}

}

ligne (500, 600, 590, 240);

ligne (700, 600, 610, 240);

rectangle (590, 200, 610, 240);

getch();

closegraph();

}