Document, comentariu, eseu, bacalaureat, liceu si facultate
Top documenteAdmitereTesteUtileContact
      
    


 


Ultimele referate adaugate

Adauga referat - poti sa ne ajuti cu un referat?

Politica de confidentialitate



Ultimele referate descarcare de pe site
  CREDITUL IPOTECAR PENTRU INVESTITII IMOBILIARE (economie)
  Comertul cu amanuntul (economie)
  IDENTIFICAREA CRIMINALISTICA (drept)
  Mecanismul motor, Biela, organe mobile proiect (diverse)
  O scrisoare pierduta (romana)
  O scrisoare pierduta (romana)
  Ion DRUTA (romana)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  COMPORTAMENT PROSOCIAL-COMPORTAMENT ANTISOCIAL (psihologie)
  Starea civila (geografie)
 

Ultimele referate cautate in site
   domnisoara hus
   legume
    istoria unui galban
   metanol
   recapitulare
   profitul
   caract
   comentariu liric
   radiolocatia
   praslea cel voinic si merele da aur
 
despre:
 
SUBPOGRAME ORIENTATE SPRE ARCURI, CERCURI SI ALTE CURBE
Colt dreapta
Vizite: ? Nota: ? Ce reprezinta? Intrebari si raspunsuri
 

6.1. Proceduri si functii p3k24kj
Circle
Procedura Circle deseneaza un cerc de centru si raza data; culoarea de desenare este stabilita de procedura SetClolor. Procedura este stabilita astfel.
Procedure Circle (x, y:integer ; raza:word);
X si Y definesc coordonatele cercului
Raza defineste lungimea razei
Arc
Procedura Arc deseneaza un arc de cerc si este definita astfel:
Procedure Arc (x, y:integer;Ustrat, Ufinal:word);
Coordonatele cercului sunt definite de x si y, raza arcului de cerc este definita de r, iar Ustrat si Ufinal reprezinta unghiul de inceput si de sfarsit al arcului, valorile lor sunt date in grade, in sensul trigonometric. Deci, daca Ustrat este 0, iar Ufinal este 360, atunci este de desenat un cerc complet.
Elipse
Procedura elipse deseneaza un arc de elipsa si este definita astfel:
Procedure elipse (x,y:integer;Ustrat, ufinal:word;Xraza,Yraza:word);
X si Y reprezinta coordonatele cetrului.
Ustrat si Ufinal reprezinta unghiul de sfarsit al arcului de elipsa, in grade, in sens trigonometric. Valorile Xraza si Yraza definesc raza orizontala respectiv axa verticala a elipsei.
GeatArcCoords
Procedura GteArcCords returneaza centrul si coordonatele de inceput si de sfrarsit ale ultimului arc desenat. Procedura este definita astfel:
Procedure GetArcCoords (var coordonare:ArcCoordsType);
Coordarc detip predefinit ArcCoordsTzpe va contine coordonatele centrului crcului sau elipsei si cordonatele punctului de inceput si de sfarsit al arcului . Tipulpredefinit ArcCordsTzpe este:
Type ArcCoordsType=record x,y: integer; AcentruS
Xstart, Ystart:integer Ainceputul arculuiS
Xend,Yend:ineteger Asfarsitu arculuiS
End;
PieSlice
Procedure PieSlince deseneza si hasureaza un sector de cerc si este definita astfel:
Procedure PieSlice (x, y:integer; Ustart, Ufinal, r:word);
X si y Ufinal reprezinta unghiul de inceput si de sfarsit al sectorului, iar r este raza.
Culoarea cercului este culoarea actuala, iar modelul de hasurare si culoare de hasurare este definita este definita de procedurile SetFillStyle sau SetFillPattern.
Sector
Procedura Sector deseneaza si hasureaza un sector de elipsa si este definita astfel:
Procedure Sector (x,y:integer; Ustar, Ufinal, Xraza, Yraza:word);
X si y reprezinta coordonatele centrului;
Ustart, Ufinal reprezinta unghiul de inceput si de sfarsitul al sectorului de elipsa in grade, in sens trigonometric. Variabilele Xraza si Yraza definesc axa orizontala respectiv axa verticala a elipsei. Culoarea este culoarea actuala, iar modelul de hasurare este definit de procedurile SetFillStyle si SetFillPattern.
FillEllipse
Procedura FillEllipse deseneaza si hasureaza o elipsa si este definita astfel:
Procedure FillEllipse (x, y:integer;Xraza;Yraza:word); x,y reprezinta coordonatele centrului;
Xraza si Yraza reprezinta axa orizontala respectiv verticala a elipsei.
Culoarea elipsei este culoarea actuala, iar modelul si culoarea de hasurare este definita de procedurile SetFillStyl sau SetFillPattern.
GetAspectRatio
Procedura GetAspectRatio determina dimensiunile maximale ale ecranului grafic. Procedura se determina astfel:
Procedure GetAspectRatio (var xasp; vasp:word);
Xasp, yasp reprezinta valoarea maxima a abscisei si a ordonatei, adica rezolutia efectiva a ecranului grafic. Din aceste valori se poate calcula raportul dimensional xasp; yasp. Acest raport este utilizabil la „rotunjiri” necesare la trasarea cercurilor, sectoarelor si arcelor de cerc.
SetAspectRetio
Procedura SetAspectRatio defineste raportul dimensional implicit. Procedura se defineste astfel:
Procedure SetAspectRatio (xasp, yasp:word); xasp, yasp reprezinta valorile amxime pentru abscisa si ordonata. Cu aceste valori definite, un cerc torsionat poate fi rectificat pe baza raportului dimensional definti.




6.2. Aplicatie
Programul curbe realizeaza trasarea de cercuri, arcuri, elipse, sectoare de cerc, sectoare de elipse.
Program curbe;
Uses crt, graph;
Var Raza, gd, dm:integer; ch: char;
Xasp, yasp:word;
Begin gd:=detect; initgraph (gd, gm,’c:\bp\bgi’); if graphresult<>grOk then halt (1); repeat outTextXY(11. 0. ’apasati’); outTextXY(10. 10. ’1-cerc 2-arc 3-elipsa 4-sector de cerc 5-sector elipsa 6-hasurarea elipsei);
OuttextXY(10. 470. ‘0-iesire’); ch:=readkey; case ch of
‘1’ :begin for raza:=1 to 5 do circle (100.100. raza*10); end;
‘2’ begin for raza:=1 to 5 do arc(200.200.0.90. raza* 10); end;
‘3’ begin elipse(300.100.0.360.30.50); end;
‘4’:begin pieslice(400.100.0.270.40); end;
‘5’:begin sector(getmaxx div 2. getmay div 2.0.45.50.50); getaspectratio(xasp, yasp); Asector circularS sector(getmaxx div 2. getmaxy div 2 180.135.50.50*longint(xasp) div yasp); Apunc centratS end;
‘6’:begin fillellipse(100.350.50.50); getaspectration(xasp,yasp); Aelipsa circularaS fillellipse(50.50.30.30); end; end; until ch=’0’; closegraph; end.


Colt dreapta
Creeaza cont
Comentarii:

Nu ai gasit ce cautai? Crezi ca ceva ne lipseste? Lasa-ti comentariul si incercam sa te ajutam.
Esti satisfacut de calitarea acestui document, eseu, cometariu? Apreciem aprecierile voastre.

Nume (obligatoriu):

Email (obligatoriu, nu va fi publicat):

Site URL (optional):


Comentariile tale: (NO HTML)


Noteaza documentul:
In prezent fisierul este notat cu: ? (media unui numar de ? de note primite).

2345678910

 
Copyright© 2005 - 2024 | Trimite document | Harta site | Adauga in favorite
Colt dreapta