Question

Va rogg dau coroana Incercati sa elaborati un program care ar desena o spirala fara utilizarea ciclului cu conditie.
Estimati numarul de instructiuni ale unui astfel de progarm

Answer 1

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.