Discussion :

[fouberge]

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

[darrylsite]

Dis nous d' abord quel compilateur tu veux utiliser pour tracer la courbe.

[fouberge]

en fait j'utilise turbo pascal 7

[droggo]

Die,

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.

[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é

[fouberge]

un exemple de code svp

[M.Dlb]

Il y en a dans l'aide. Press F1

[darrylsite]

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.

[fouberge]

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
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.

[M.Dlb]

Et la marmotte... Pourquoi ca ne marche pas ? On n'est pas devins.

[krachik]

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

Code :

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

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

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

Code :

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

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)
@+