👤

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


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!


ID Learners: Alte intrebari