Eugeniusz Jakubas |
Stąd można pobrać teksty źródłowe poniższych 57 programów w Pascalu pr-pascal.zip - 34 kB
10. Krzywe - obwarzanek
Program Obwarzanek; uses graph,crt; var karta,tryb,n:integer; x,y,r,alfa,beta:real; const tk:array[1..4] of integer= (lightCyan,lightRed,yellow,lightBlue); begin karta:=detect; initGraph(karta,tryb,''); alfa:=0; repeat r:=160; beta:=alfa; x:=r*cos(alfa)+320; y:=r*sin(alfa)+240; setColor(red); fillEllipse(round(x),round(y),1,1); r:=r/6; beta:=beta*12; for n:=1 to 4 do begin x:=x+r*cos(beta+n*pi/2); y:=y+r*sin(beta+n*pi/2); setFillStyle(1,tk[n]); setColor(tk[n]); fillEllipse(round(x),round(y),7,7); end; alfa:=alfa+0.005; until (keyPressed) or (alfa>=2*pi); readLn; closegraph; end. |