Section courante

A propos

Section administrative du site

CIRCLE

Cercle
QuickPascal 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 :



Dernière mise à jour : Vendredi, le 13 février 2015