Jak narysowac ruszające się koło w Free Pascalu ??

Goja · Post autor: **Goja** » 6 cze 2006, o 13:55

Potrzebuje narysować w Pascalu koło , a nastepnie przypisać tak cyfry ze np. klikajć 2 bedzie poruszać sie w prawo , 3- w lewo , 4- na dol , 5 - do gory .... NIe zna ktoś może linka gdzie moglabym znależć tego typu zadania??

mat1989 · Post autor: **mat1989** » 6 cze 2006, o 15:29

Goja · Post autor: **Goja** » 6 cze 2006, o 17:20

NIe ma tam czegos takiego .....

mat1989 · Post autor: **mat1989** » 6 cze 2006, o 18:06

ale jest napisane jak narysować koło

Kod: Zaznacz cały

uses Graph;

var Gd, Gm: Integer;
begin
 Gd := Detect;
 InitGraph(Gd, Gm, 'c:bpbgi');
 if GraphResult <> grOk then
   Halt(1);
 SetColor(GetMaxColor);
 Circle(50, 50, 20);
 FloodFill(50, 50, GetMaxColor);
 Readln;
 CloseGraph;
end.

a przesuwanie będzie polegać po prostu na przesuwaniu środka koła.
trzeba narysować koło o współrzędnych za które podstawisz jakieś zmienne i po naciśnięciu 2 będzie się zwiększać współrzędna x czy tam zmniejszać bo o ile dobrze pamiętam układ współrzędnych w pascalu jest inaczej ułożony niż w matematyce...