Graphisme pascal
Fermé
ahla bilom
-
24 janv. 2010 à 13:06
KX Messages postés 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 - 28 janv. 2010 à 10:12
KX Messages postés 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 - 28 janv. 2010 à 10:12
Bonjour, comment je fait un programme pascal qui permet de m'obtenir une courbe avec (x,y) . comme initgraph et uses graph; . merci
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
- Pb pascal - Forum Pascal
1 réponse
KX
Messages postés
16760
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
12 février 2025
3 020
28 janv. 2010 à 10:12
28 janv. 2010 à 10:12
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.
