[TP] Tracé de courbe

Version imprimable

02/01/2008, 18h40
fouberge

[TP] Tracé de courbe

j'aimerai tracé la fonction f(x)=cos(x²-1) seulement je n'ai jamais utilisé le mode graphique.
03/01/2008, 13h48
darrylsite

Dis nous d' abord quel compilateur tu veux utiliser pour tracer la courbe.
04/01/2008, 13h37
fouberge

complément d'information

en fait j'utilise turbo pascal 7
04/01/2008, 14h28
droggo

Die,

Citation:

Envoyé par fouberge

j'aimerai tracé la fonction f(x)=cos(x²-1) seulement je n'ai jamais utilisé le mode graphique.

Eh bien c'est le moment d'essayer (quand on veut programmer, il faut prendre le temps d'apprendre).

Puisque tu utilises TP, il y a quelques exemples dans l'aide. Teste-les et apprends comment ça marche.

Une fois que tu auras compris, fais quelques essais supplémentaires.

Ensuite, tracer ta courbe sera de la routine. :)
04/01/2008, 17h08
darrylsite

Tu dois savoir que pour utliser l' ecran graphique, il faut d' abord l' initialiser avec la procedure initgraph contenu dans l' unité graph. Tu peux consulter l' aide fournie avec tp7 pour svoir comment on l' utilise.
Il faudra savoir le troisieme parametre est le chemin absolu du dossier bgi contenu dans le dossier tp7.
Ensuite pour la coube, tu n' auras qu' à faire une boucle qui fait changer la valeur de x dans la fonction voulue.
Voici quelques procedures dont tu auras besion :
line:trace une ligne;
putpixel:allume un pixel sur l' ecran
cleardevice: efface l' ecran
setcolor: definit une couleur pour le tracé
08/01/2008, 15h38
fouberge

slt

un exemple de code svp
08/01/2008, 15h41
M.Dlb

Il y en a dans l'aide. Press F1 :)
08/01/2008, 20h30
darrylsite

Citation:

Il y en a dans l'aide. Press shift+F1

puis double clique sur initgraph et descend la page. Recopie l' exemple en bas. Modifie le troisieme parametre de initgraph qui indique le chemin absolu du dossier bgi contenu dans le dossier tp7:exemple :'c:\tp7\bgi' si le dossier tp7 se trouve sur le c.
Il te reste plus qu' à l' executer.
Enfin ce que je veux dire c' est que tu dois faire plus d' effort si tu veux faire de la programmation. Il faut etre curieux mais pas attendre qu' on te montre tout.

mon code ne marche pas

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
program courbe_fb;
uses crt,graph;
var
    Gd,Gm:integer;
type fonction=function(x:real):real;
    function f(x:real):real;
      begin
        f:=2*cos(x*x-2);
      end;
procedure courbe(f:function;x0,y0:integer;dx,dy:real);
     var
        x,y,Xreel,Yreel:real
     begin
       for x:=0 to 630 do
            begin
              Xreel:=(x-x0)*dx
              Yreel:=f(Xreel);
              y:=y0+Yreel*dy
              putpixel(x,y,red);
            end;
     end;
begin
 clrscr;
 Gd:= detect;
 initgraph(Gd,Gm,'c:\tp\bgi');
 if graphresult<>grok then
        halt(1);
     raondomize;
 courbe(f,320,220,0.01,0.01);
 closegraph;
end.

09/01/2008, 13h05
M.Dlb

Et la marmotte... Pourquoi ca ne marche pas ? On n'est pas devins.
09/01/2008, 13h15
krachik

Et j'ajoute qu'il y a pas mal de choses qui vont pas aller ton code
D'abord ici

Code:

procedure courbe(f:function;x0,y0:integer;dx,dy:real);

Ensuite ici oùu je vois dans ton code x est reel

Code:

for x:=0 to 630 do

Sans oublier les ";" oublié un peu partout et d'autres fautes ...
Prends juste la peine de compiler toi meme ton code(s'il est de toi ,ce qui m'etonnerait) 8-)
@+