"Script Nou" - Processing

ID Autor Duplicat din Ultima modificare
#4079 Ivana Florin (Florin_Snowy) - Marti, 20 oct 2020, 11:56
x
 
1
int main()
2
{
3
   int i, j = 0, gd = DETECT, gm;
4
5
   initgraph(&gd,&gm,"C:\\TC\\BGI");
6
7
   settextstyle(DEFAULT_FONT,HORIZ_DIR,2);
8
   outtextxy(25,240,"Press any key to view the moving car");
9
10
   getch();
11
12
   for( i = 0 ; i <= 420 ; i = i + 10, j++ )
13
   {
14
      rectangle(50+i,275,150+i,400);
15
      rectangle(150+i,350,200+i,400);
16
      circle(75+i,410,10);
17
      circle(175+i,410,10);
18
      setcolor(j);
19
      delay(100);
20
21
      if( i == 420 )
22
         break;
23
      if ( j == 15 )
24
         j = 2;
25
26
      cleardevice(); // clear screen
27
   }
28
29
   getch();
30
   closegraph();
31
   return 0;
32
}
Du-te sus!