Section courante

A propos

Section administrative du site

CIRCLE

Cercle
Turbo Pascal 3+ Graph.p (Turbo Pascal 3) ou unité Graph (Turbo Pascal 4+)

Syntaxe

Procedure Circle(x,y,r,Color:Integer); Turbo Pascal 3 ou unité Graph3 (Turbo Pascal 4 ou supérieur)
Procedure Circle(x,y:Integer;r:Word); Turbo Pascal 4 ou supérieur

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
r Ce paramètre permet d'indiquer le rayon
Color Ce paramètre permet d'indiquer la couleur du cercle. Ce paramètre est uniquement disponible avec le Turbo Pascal 3.

Description

Cette procédure permet de tracer un cercle dans un écran graphique.

Remarques

Exemple

Voici un exemple typique de l'utilisation de cette procédure :

  1. Program CircleSamples;
  2.      
  3. Uses Graph;
  4.      
  5. Var Gd,Gm:Integer;
  6.      
  7. BEGIN
  8.  Gd := Detect;
  9.  InitGraph(Gd, Gm,'');
  10.  If(GraphResult <> grOk)Then Halt(1);
  11.  SetColor(Yellow);
  12.  Circle(150,50,50);
  13.  ReadLn;
  14.  CloseGraph;
  15. END.

on obtiendra le résultat semblable au suivant :

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 121.

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