графика, нужна любая программа с графикой! Опции

[электрик]

О боги!
задали написать любую прогу с графикой. Вот основные требования:
1) элементы закрашивания
2)желательно с элементами двжения
пожалуйста,закиньте любую прогу, наверное она у вас есть!

[volvo]

Поиск по форуму используй - найдешь десятки программ...
Один из вариантов: Прыгающий шарик

[hiv]

Вот еще качели! :yes:
Обеспечить движение качелей

[Atos]

Здесь ещё исходники с графикой выкладывали

[электрик]

вот сам решил:

program sneg;
uses crt,graph;
const n=500; 
var gx, gy, gd, gm, x1, y1, i :integer;
var x, Y, 
 vx, vy, 
 P:array [1..n] of integer;
begin
  Gd:=detect; initgraph(gd, gm, 'с:\');
  gx:=getmaxx; gy:=getmaxy; randomize;

  for i:=1 to n do begin
    x[i]:=random(gx); 
    y[i]:=random(gy-180); putpixel (x[i], y[i], 15)
  end;
  setlinestyle(0,1,3);
  rectangle (200, gy-100, gx-200, gy); 
  line(200,380,320,300);
  line(440,380,320,300);
  rectangle (280, 400, 360, 450);
  line(280,425,360,425);
  line(320,400,320,450);
  repeat
  for i:=1 to n do begin

    if (y[i]<gy) and (getpixel (x[i]+1, y[i]+1)=0)
    then begin
      putpixel(x[i], y[i], 0);
      y[i]:=y[i]+1;
      x[i]:=x[i]+1;
      putpixel(x[i], y[i],15)
    end
    else 
    begin 
      y[i]:=random (gy div 10);
      x[i]:=random (gx);
      putpixel (x[i], y[i], 15)
    end;
  end;
  until keypressed;
  readkey;
  closegraph;
end.

Сообщение отредактировано: volvo - 5.06.2005 17:58