Fonctions exécutant des fonctions mathématiques

Version imprimable

Salut salut

J'ai un exercices pour un cours mais je comprend pas l'énnoncer !

si quel'qun pouvais m'éclairer :D ... l'énoncé c'est adapté l'exercices 6.15 precedement fait (que j'ai mis ci dessous) pour que les quatre calculs soient réaliser dans des fonctions renvoyant le résultat du "calcul"

dois je faire une fonction ln, cos , sin et puis les appeler via le menu ?? si oui comment faire ?? :P

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
Program Fonction8b;
 
{scéance 8.b - fonction math - procedure}
 
{réalisation Sebastien Degreve - http://online.freezee.org}
 
uses math,crt;
 
{------------- DECLARATION -----------------}
 
var i,n : integer;
    x,s,t : real;
    choix : char;
 
{------------- PROCEDURE--------------------}
 
 
procedure exp(var n:integer ; var x,s:real ) ;
 var t:real;
     i:integer;
     begin
     t:=1;
     s:=t;
     For i:=1 to n do begin
       t := t * x / i;
       s:=s+t;
     end;
     writeln('exp(x) =',s:3:2);
     writeln('exp(x) theor =',exp(x):3:2);
     end;
 
procedure ln(var n:integer ; var x,s:real );
 var t:real;
     i:integer;
  begin
 if (x>0) and (x<1) then begin
   t:=x; //n=2 -x²/2     n=3 x³/3
   s:=t;
 For i:=2 to n do begin
   t := -1 * t * x * (i-1) / i;
   s:=s+t;
 end;
 writeln('ln(x) =',s:3:2);
 writeln('ln(x) theor =',ln(x+1):3:2);
 end
 else writeln('Ln(x+1) ne fonctionne que avec un x dans [0,1[ !');
 end;
 
procedure cos(x:real;n:integer;s:longint);
 var t:longint;
     i:integer;
begin
t:=1;
s:=t;
For i:=1 to n do begin
  t := -1 *t * x * x / (2*i*((2*i)-1));
  s:=s+t;
  end;
writeln('cos(x) =',s:3:2);
writeln('cos(x) theor =',cos(x):3:2);
END;
 
procedure sin(x:real;n:integer;s:longint);
 var t:longint;
     i:integer;
 begin
  t:=x;
  s:=t;
For i:=1 to n do begin
  t := -1 * t * x * x / (2*i*(2*i+1));
  s:=s+t;
end;
writeln('sin(x) =',s:3:2);
writeln('sin(x) theor =',sin(x):3:2);
end;
 
{---------------PROGRAMME-------------------}
 
begin
  x:=0;
  n:=0;
  choix := 'i';
  while (choix <> 'Q') do begin
 
{--------------------MENU-------------------}
 
    Repeat
    readln;
    clrscr;
    writeln('Evaluation ');
    writeln('+++++++++++');
    writeln('E   exp(x) ');
    writeln('L   ln(x+1)');
    writeln('C   cos(x) ');
    writeln('S   sin(x) ');
    writeln('-----------');
    writeln('X   changer X                 (',x:3:2,')');
    writeln('N   changer nbre d''iteration  (',n,')');
    writeln('-----------');
    writeln('Q   Quitter');
    writeln();
    writeln('Votre choix ? ... ');
    readln(choix);
    Until upcase(choix) in ['E','L','C','S','X','N','Q'];
 
{----------------- FIN MENU -------------------}
 
    case upcase(choix) of
     'E' : exp(n,x,s);
     'L' : ln(n,x,s);
     'C' : cos(n,x,s);
     'S' : sin(n,x,s);
 
     'X' : begin
         writeln('Entrez une nouvelle valeur pour X entier');
         readln(x);
           end;
     'N' : begin
         writeln('Entrez une nouvelle valeur pour n entier');
         readln(n);
           end;
 
{------------------QUITTER-------------------}
 
     'Q' : begin
         repeat
         writeln('Voulez vous vraiment quitter ? [O/N]');
         readln(choix);
         until upcase(choix) in ['O','N'];
            if (upcase(choix)='N') then choix:='i'
            else begin
             writeln;
             writeln('---------------------------------------');
             writeln;
             writeln('Au revoir');
             writeln;
             writeln('Programme réalisé par Degreve Sébastien');
             writeln;
             writeln('Ephec 2007 - 2008');
             writeln;
             writeln('----------------------------------------');
             choix := 'Q';
             readln();
             end;
 
          end;
 
      end;
 
   end;
 
end.

Essie d' etre plus explicite. Si j' essaie de comprendre, tu veux qu' au lieu de faire
Code:

1 2 3 4 5 6 7 8 9 10 11 case upcase(choix) of 'E' : begin t:=1; s:=t; For i:=1 to n do begin t := t * x / i; s:=s+t; end; writeln('exp(x) =',s:3:2); writeln('exp(x) theor =',exp(x):3:2); end;
tu veux faire une fonction un truc du genre :
Code:

1 2 case upcase(choix) of 'E': mon_expo(x,n) ...
Si c'est ça, il faudra créer les fonctions nécessaires comme tu l'as dit. Sinon explique-nous clairement ce que tu veux faire.

05/01/2008, 23h07
droggo

Wio,

+1 sur darrylsite.

Le code que tu donnes en exemple est du "mauvais code". Il faut découper tout ça en fonctions, chacune ayant un travail précis à faire. :)
06/01/2008, 08h42
degseb

oui je dois découper ca en fonction, je fais du pascal que depuis 3mois donc excusé moi si c'est du mauvais code:D

mais en fait ce que je pige pas vraiment c'est les ("variable" pour la fonction)

mon_exposant(x,y) je sais pas quelle valeur je dois donner a x et y et puis dans une fonction faut il laiser les begin et end; ??

merci d'avance

seb

bon bien je viens d'essayer et ca me donne ca ... mais j'arrive pas a compiler j'ai l'erreur : expected but found ) ... pour les parenthèses des procédure vois pas vraiment comment je dois faire alors ... merci de m'aider :D

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Program Fonction8;
 
uses math,crt;
 
var i,n : integer;
    x,s,t : real;
    choix : char;
 
procedure exp(x,n,s);
   begin
   t:=1;
   s:=t;
   For i:=1 to n do begin
      t := t * x / i;
      s:=s+t;
      end;
   writeln('exp(x) =',s:3:2);
   writeln('exp(x) theor =',exp(x):3:2);
   end;
 
procedure ln(x,n,s);
 begin
 if (x>0) and (x<1) then begin
 t:=x;
 s:=t;
 For i:=2 to n do
    begin
    t := -1 * t * x * (i-1) / i;
    s:=s+t;
    end;
 writeln('ln(x) =',s:3:2);
 writeln('ln(x) theor =',ln(x+1):3:2);
 
 end
 else writeln('Ln(x+1) ne fonctionne que avec un x dans [0,1[ !!!');
 end;
 
Procedure cos(x,n,s);
begin
t:=1;
s:=t;
For i:=1 to n do begin
  t := -1 *t * x * x / (2*i*((2*i)-1));
  s:=s+t;
  end;
writeln('cos(x) =',s:3:2);
writeln('cos(x) theor =',cos(x):3:2);
end;
 
procedure sin(x,n,s);
begin
t:=1;
s:=t;
For i:=1 to n do begin
  t := -1 *t * x * x / (2*i*((2*i)-1));
  s:=s+t;
  end;
writeln('cos(x) =',s:3:2);
writeln('cos(x) theor =',cos(x):3:2);
END;
 
 
begin
modx:=0;
modn:=0;
choix := 'i';
while (choix <> 'Q') do begin
Repeat
readln;
clrscr;
writeln('Evaluation ');
writeln('+++++++++++');
writeln('E   exp(x) ');
writeln('L   ln(x+1)');
writeln('C   cos(x) ');
writeln('S   sin(x) ');
writeln();
writeln('T   toutes ');
writeln('-----------');
writeln('X   changer X                 (',x:3:2,')');
writeln('N   changer nbre d''iteration  (',n,')');
writeln('-----------');
writeln('Q   Quitter');
writeln();
writeln('Votre choix ? ... ');
readln(choix);
Until upcase(choix) in ['E','L','C','S','X','N','Q'];
 
case upcase(choix) of
    'E' : exp(x,n,s)
 
    'L' : ln(x,n,s)
 
    'C' : cos(x,n,s)
 
    'S' : sin(x,n,s)
 
    'x' : BEGIN
         writeln('Entrez une nouvelle valeur pour X entier');
         readln(x);
           END;
    'n' : BEGIN
         writeln('Entrez une nouvelle valeur pour n entier');
         readln(n);
           END;
     'Q' : BEGIN
         repeat
         writeln('Voulez vous vraiment quitter ? [O/N]');
         readln(choix);
         until upcase(choix) in ['O','N'];
         if (upcase(choix)='N') then choix:='i'
         else begin writeln('Au revoir'); choix := 'Q'; readln(); end;
          END;
      end;
   end;
end.

06/01/2008, 14h47
droggo

Woe,

Citation:

Envoyé par degseb

bon bien je viens d'essayer et ca me donne ca ... mais j'arrive pas a compiler j'ai l'erreur : expected but found ) ... pour les parenthèses des procédure vois pas vraiment comment je dois faire alors ... merci de m'aider

Code:

procedure exp(x,n,s);

Tu as déjà vu quelque part une déclaration de procédure ou fonction où on ne précise pas le type des paramètres ?
06/01/2008, 16h43
degseb

heu :cry: oui ... grosse grosse faute de distraction:oops:

Tu devrais revoir tes cours sur le fonctions. Je te donne un exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure cos(x:real;n:integer;s:real); var t:real; i:integer; begin t:=1; s:=t; For i:=1 to n do begin t := -1 *t * x * x / (2*i*((2*i)-1)); s:=s+t; end; writeln('cos(x) =',s:3:2); writeln('cos(x) theor =',cos(x):3:2); END;
Les variables declarées dans la fonctions n' existent que dans la fonction et nul par ailleur. Elles sont bien differentes des variables declarées hors de la fonction. Tu pourras alors appeller la procedure où tu voudras.

10/01/2008, 09h50
degseb

hep

merci a tous pour votre aide je comprend déjà mieux les focntions et procédure... mon programme ne foncitonne pas encore mais bon j'y arriverai un jour ^^.

:mouarf:

A bientôt

heu finalement je reposte :cry:

car je comprend pas j'ai troujours l'erreur "wrong amout of paramaters specified" qui reviens et la je vois plus pourquoi ca plante :cry: me frappé pas :aie: :D

merci d'avance seb

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
Program Fonction8b;
 
{scéance 8.b - fonction math - procedure}
 
{réalisation Sebastien Degreve - http://online.freezee.org}
 
uses math,crt;
 
{------------- DECLARATION -----------------}
 
var i,n : integer;
    x,s,t : real;
    choix : char;
 
{------------- PROCEDURE--------------------}
 
 
procedure exp(var n:integer ; var x,s:real ) ;
 var t:real;
     i:integer;
     begin
     t:=1;
     s:=t;
     For i:=1 to n do begin
       t := t * x / i;
       s:=s+t;
     end;
     writeln('exp(x) =',s:3:2);
     writeln('exp(x) theor =',exp(x):3:2);
     end;
 
procedure ln(var n:integer ; var x,s:real );
 var t:real;
     i:integer;
  begin
 if (x>0) and (x<1) then begin
   t:=x; //n=2 -x²/2     n=3 x³/3
   s:=t;
 For i:=2 to n do begin
   t := -1 * t * x * (i-1) / i;
   s:=s+t;
 end;
 writeln('ln(x) =',s:3:2);
 writeln('ln(x) theor =',ln(x+1):3:2);
 end
 else writeln('Ln(x+1) ne fonctionne que avec un x dans [0,1[ !');
 end;
 
procedure cos(x:real;n:integer;s:longint);
 var t:longint;
     i:integer;
begin
t:=1;
s:=t;
For i:=1 to n do begin
  t := -1 *t * x * x / (2*i*((2*i)-1));
  s:=s+t;
  end;
writeln('cos(x) =',s:3:2);
writeln('cos(x) theor =',cos(x):3:2);
END;
 
procedure sin(x:real;n:integer;s:longint);
 var t:longint;
     i:integer;
 begin
  t:=x;
  s:=t;
For i:=1 to n do begin
  t := -1 * t * x * x / (2*i*(2*i+1));
  s:=s+t;
end;
writeln('sin(x) =',s:3:2);
writeln('sin(x) theor =',sin(x):3:2);
end;
 
{---------------PROGRAMME-------------------}
 
begin
  x:=0;
  n:=0;
  choix := 'i';
  while (choix <> 'Q') do begin
 
{--------------------MENU-------------------}
 
    Repeat
    readln;
    clrscr;
    writeln('Evaluation ');
    writeln('+++++++++++');
    writeln('E   exp(x) ');
    writeln('L   ln(x+1)');
    writeln('C   cos(x) ');
    writeln('S   sin(x) ');
    writeln('-----------');
    writeln('X   changer X                 (',x:3:2,')');
    writeln('N   changer nbre d''iteration  (',n,')');
    writeln('-----------');
    writeln('Q   Quitter');
    writeln();
    writeln('Votre choix ? ... ');
    readln(choix);
    Until upcase(choix) in ['E','L','C','S','X','N','Q'];
 
{----------------- FIN MENU -------------------}
 
    case upcase(choix) of
     'E' : exp(n,x,s);
     'L' : ln(n,x,s);
     'C' : cos(n,x,s);
     'S' : sin(n,x,s);
 
     'X' : begin
         writeln('Entrez une nouvelle valeur pour X entier');
         readln(x);
           end;
     'N' : begin
         writeln('Entrez une nouvelle valeur pour n entier');
         readln(n);
           end;
 
{------------------QUITTER-------------------}
 
     'Q' : begin
         repeat
         writeln('Voulez vous vraiment quitter ? [O/N]');
         readln(choix);
         until upcase(choix) in ['O','N'];
            if (upcase(choix)='N') then choix:='i'
            else begin
             writeln;
             writeln('---------------------------------------');
             writeln;
             writeln('Au revoir');
             writeln;
             writeln('Programme réalisé par Degreve Sébastien');
             writeln;
             writeln('Ephec 2007 - 2008');
             writeln;
             writeln('----------------------------------------');
             choix := 'Q';
             readln();
             end;
 
          end;
 
      end;
 
   end;
 
end.

10/01/2008, 12h55
Alcatîz

Bonjour !

En fait, Exp, Ln, Cos et Sin sont à la fois les noms de tes fonctions et de celles de l'unité Math. Pour lever cette ambiguité, tu devrais choisir d'autres noms.
10/01/2008, 16h05
degseb

a ok ... merci vais essayer