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

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

Le cercle est dessiné dans la couleur actuelle définie par SetColor. Chaque pilote graphique contient un rapport d'aspect utilisé par Circle, Arc et PieSlice pour créer des cercles.
La procédure Circle doit être utilisé en mode graphique.

Exemple

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




Program CircleSamples;

     

Uses Graph;

     


Var Gd,Gm:Integer;

     

BEGIN

 Gd := Detect;


 InitGraph(Gd, Gm,'');

 If(GraphResult <> grOk)Then Halt(1);


 SetColor(Yellow);

 Circle(150,50,50);


 ReadLn;

 CloseGraph;

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

Section courante

A propos

Section administrative du site

CIRCLE