Răspuns :
Spirala lui Arihmede:
uses GraphABC; //modul grafic
var k,r,fi:real;
x0,y0,x,y:integer;
begin
//coordonatele centrului ferestrei grafice
x0:=WindowWidth div 2;
y0:=WindowHeight div 2;
// Grosimea liniei și setarile de culoare
SetPenWidth(3); //3 pixeli grosime
SetPenColor(clRed); //culoarea rosie
//Productia spirala
k:=5;
fi:=0; //unghiul de pornire
while fi<=12*pi do //desenam 6 rotatii
begin
r:=k*fi;//raza spiralei
x:=x0+round(r*cos(fi)); //coordonatele punctului
y:=y0-round(r*sin(fi));
if fi=0 then moveto(x,y)//ajungem la primul punct
else lineto(x,y); //tragem o linie la celelalte
sleep(1); //pentru a desena cu intarziere,daca nu ai nevoie poti sa scoti
fi:=fi+0.01;
end;
end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!