Eugeniusz Jakubas
programy źródłowe w Pascalu

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.
obwarzank.gif (6884 bytes)