Discussion :

[hardthof]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

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

[Alcatîz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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