Section courante

A propos

Section administrative du site

CIRCLE

Cercle
Turbo Pascal 4+ Graph

Syntaxe

Procedure Circle(x,y:Integer;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
r Ce paramètre permet d'indiquer le rayon

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