[ROZWIĄZANE] Program - rysujący 10 kółek

Kiedys juz tutaj uzyskalem pomoc z "Pracą domową", dlatego pisze do was ponownie licząc na jakąkolwiek pomoc. mam takie zadanie "Napisz program rysujący 10 kółek o wspólnym środku, róznych promieniach i kolorach". Otrzymalem takie zadanie do zrobienia, lecz niemam pojecia jak to zrobic, pomoglby mi ktos? Chociaz zrobic kilka kółek reszte sam bym zrobił

Ma to wyglądac mniej więcej tak:


Z góry dziękuje za pomoc!

Otrzymalem takie zadanie do zrobienia, lecz niemam pojecia jak to zrobic,

moze zacznij od tego co potrafisz?? i powiedz czy chcesz abysmy napisali za ciebie program czy zebysmy ci pomogli ?

Składnia: Circle ( X,Y:integer; R:word ); biblioteka: GRAPH

Procedura rysuje koło o środku umieszczonym o współrzędnych X,Y, promieniu R i kolorze określonym przez procedurę SetColor.


Teraz już powinieneś sobie poradzić.

Chodzi mi o to zeby ktos zrobił mi ze dwa kółka tylko a reszte to juz bym samemu zrobił.

Nudziło mi się to zrobiłem
Myślę że pomogłem.

Uses crt,graph;

Var
ster,karta,x,y,r,a,kolor:integer;
ktory:boolean;

begin
clrscr;
randomize;
ktory:=FALSE;
ster:=detect;
initgraph(ster,karta,'');
r:=220;
for a:=1 to 11 do
begin
repeat
kolor:=random(16);
until (kolor<>0) and (kolor<>1);
setfillstyle(1,kolor);
setcolor(kolor);
circle(500,350,r);
if ktory=FALSE then floodfill(500,350,kolor) else floodfill(500+r,350,kolor);
ktory:=TRUE;
r:=r-20;
end;
readln;
closegraph;
end.

dziekowac dziekowac dziekowac panu! Myslalem, ze pewnie bedzie rysowalo jedno kolko a tu tak pieknie SZOK! dzięki jeszcze raz ziom Praca domowa z głowy bedzie MEGA +

Użytkownik Scripting edytował ten post 02.03.2012 14:33

Wiadomość wygenerowana automatycznie


Ten temat został zamknięty przez moderatora.

Powód: Pomoc udzielona

Jeśli się z tym nie zgadzasz, raportuj ten post, a moderator lub administrator rozpatrzy go ponownie.


Z pozdrowieniami,
Zespół AMXX.PL