Strona 1 z 1
Jak narysowac ruszające się koło w Free Pascalu ??
: 6 cze 2006, o 13:55
autor: Goja
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??
Jak narysowac ruszające się koło w Free Pascalu ??
: 6 cze 2006, o 15:29
autor: mat1989
Jak narysowac ruszające się koło w Free Pascalu ??
: 6 cze 2006, o 17:20
autor: Goja
NIe ma tam czegos takiego .....
Jak narysowac ruszające się koło w Free Pascalu ??
: 6 cze 2006, o 18:06
autor: mat1989
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...