Calculette graphique

Bonjour à tous.
J'ai une calculette graphique à faire pour la fac et je galère un peu.
Dans un premier temps j'aimerais faire apparaitre les axes sur le graphique.
Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

program Graphique3; uses crt, Graph; CONST ox=500; oy=350; unitx=100; unity=100; d=4; h=0.001; VAR GraphPilote, GraphMode : INTEGER; x, y : real; i : integer;       procedure Point(x,y:real); VAR a, b : integer; begin; a:= round(ox+unitx*x); b:= round(oy-unity*y); moveto(a,b); lineto(a,b); end;   procedure Axes; VAR px,py :real; begin; px:= -3; py:= -3; repeat px:= px+h; py:=py+h; point(px,0); point(0,py); until px> 3;   end;   Begin GraphPilote := Detect; InitGraph(GraphPilote, GraphMode, ' '); setcolor(4);   readln;   end.

---

Le run s'effectue niquel sauf que j'obtient un graph avec rien dessus. J'ai tenté de rajouté une couleur (le setcolor(4) qui se balade au milieu ^^) mais rien n'y fais.
A vi, j'aimerais mettre l'axe pile poil au milieu de l'écran mais j'suis obligé de faire à taton pour trouver la bonne valeur de ox et oy suivant le pc utilisé (la fac et chez moi), quelqu'un aurait la formule miracle ? :D

P.S: j'ai suivi les instructions du poly de notre prof pour le code (j'suis dans une section biologie alors l'info j'suis pas trop callé :s).

D'avance merci :D

Bonjour !

Ben le readln ne dessine pas grand chose ! :)

Pour déterminer la taille de la fenêtre (et ainsi en trouver le centre), tu peux utiliser GetViewSettings.
Les instructions suivantes dessinent une ligne verticale au milieu de la fenêtre :

Code:

---

1 2 3 4 5

Var VP : ViewPortType; ... GetViewSettings(VP); MoveTo(VP.x2 div 2,0); LineTo(VP.x2 div 2,VP.y2);

---

;)