Section courante

A propos

Section administrative du site

ARC

Arc
Turbo Pascal 4+ Graph

Syntaxe

Procedure Arc(x,y:Integer; angle_a,angle_b,r:Word);

Paramètres

Nom Description
x Ce paramètre permet d'indiquer la coordonnée X
y Ce paramètre permet d'indiquer la coordonnée Y
angle_a Ce paramètre permet d'indiquer l'angle en degré de début. L'angle est standard au norme trigonométrique et commence à 3 heures et va dans le sens contraire des aiguilles d'une montre.
angle_b Ce paramètre permet d'indiquer l'angle en degré de fin. L'angle est standard au norme trigonométrique et commence à 3 heures et va dans le sens contraire des aiguilles d'une montre.
r Ce paramètre permet d'indiquer le rayon

Description

Cette procédure permet d'effectuer le traçage d'un arc de cercle dans un écran graphique.

Remarques

Exemple

Voici un exemple de générer les 100 en arc dans le quatrième cadran :

  1. Program ArcSamples;
  2.  
  3. Uses Graph;
  4.  
  5. Var
  6.  Gd,Gm:Integer;
  7.  I:Integer;
  8. BEGIN
  9.  Gd:=Detect;
  10.  InitGraph(Gd,Gm,'');
  11.  If(GraphResult <> grOk)Then Halt(1);
  12.  For I := 1 to 100 do Begin
  13.   SetColor(Random(GetMaxColor)+1);
  14.   Arc(0,0,270,360,I*3);
  15.  End;
  16.  Readln;
  17.  CloseGraph;
  18. END.

on obtiendra le résultat semblable au suivant :

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - CIRCLE
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - ELLIPSE
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - GETARCCOORDS

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 96.

Dernière mise à jour : Dimanche, le 25 janvier 2015