A voir également:
- Graphisme pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Pascal
- Aide en Pascal - Forum Pascal
1 réponse
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.
