Анимация расширения окружности при нажатии определенной клавиши

Kein2108

Помогите, пожалуйста, сделать. Составьте программу по следующему сценарию: в центре экрана расположена окружность радиусом 5 пикселей. При нажатии на одну из клавиш <к>, <с>, <ж>, <з> окружность окрашивается в соответствующий цвет (красный, синий, жёлтый или зелёный) и начинает расти в диаметре до тех пор, пока не упрётся в края экрана. Буду очень благодарен.
3 ответа

Kein2108

uses crt,graph;
var key:char;
    device,mode,x,y,r:integer;
    cvet:byte;
 
procedure zalivka;
begin
  setcolor(black);
  circle(x,y,r);
  r:=r+5;
  setcolor(cvet);
  circle(x,y,r);
end;
 
begin
  device:=0;
  initgraph(device,mode,'d:\program\tp\bgi'); {здесь указывайте свой путь к графическим драйверам}
  setlinestyle(0,0,thickwidth);
  x:=320; y:=240; r:=5;
  circle(x,y,r);
  repeat
    if keypressed then
      begin
        key:=readkey;
        case key of
        'r':begin cvet:=4; zalivka; end;
        'c':begin cvet:=1; zalivka; end;
        ';':begin cvet:=14; zalivka; end;
        'p':begin cvet:=2; zalivka; end;
      end;
    end;
  until r>240;
end.


Kein2108

Metallnote, Эй, тут виндоус и делфи. Нафиг эти досовские заморочки?


Kein2108

Форум программистов > Форум Pascal (Паскаль) - что не так?