Головна | Реєстрація | Вхід | RSS | Субота, 04.20.2024, 2:12 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
Затемнення сонцяvar i, dv, dm: integer; begin Initgraph (dv,dm,' '); setfillstyle(1,14); fillellipse(320,100,50,51); floodfill(320,100,14); setbkcolor(3); for i:=180 to 320 do begin setcolor(3); setfillstyle(1,3); fillellipse(i,100,50,51); floodfill(i,100,3); delay(20); end; for i:=320 to 480 do begin setfillstyle(1,14); fillellipse(320,100,50,51); floodfill(320,100,14); setcolor(3); setfillstyle(1,3); fillellipse(i,100,50,51); floodfill(i,100,3); delay(20); end; repeat until keypressed; closegraph end. |
|
Guide-for-students © 2024 |
Створити безкоштовний сайт на uCoz |