graphisme pascal Fermé

Question

Bonjour, comment je fait un programme pascal qui permet de m'obtenir une courbe avec  (x,y) . comme initgraph et uses graph; . merci

KX · Answer

Voici un petit exemple (la fonction valeur absolue) :

program AhlaBilom; uses graph;

var i, Mode, Pilote : smallint;
    x,y : real;
begin
  Mode := Detect ; // indispensable
  InitGraph(Pilote,Mode,'c:\bp\bgi'); // initialisation de la fenêtre

  SetColor(white);
  line(0,getMaxY div 2,getMaxX,getMaxY div 2); // axe des abscisses
  line(getMaxX div 2,0,getMaxX div 2,getMaxY); // axe des ordonnées

  for i:=0 to getMaxX do
  begin
       x:= (getMaxX div 2)-i;      // abscisse DANS LE REPERE
       y:= (getMaxY div 2)+abs(x); // ordonnée DANS LE REPERE
       putPixel(i,GetMaxY-trunc(y),Yellow); //!\ l'axe des ordonnées est inversé
  end;

  readln;
  closeGraph;
end.

Graphisme pascal

1 réponse

Discussions similaires