Fonctions exécutant des fonctions mathématiques

**degseb** · 05/01/2008, 17h18

Salut salut

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

si quel'qun pouvais m'éclairer

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

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

**darrylsite** · 05/01/2008, 21h22

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

Code :

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

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 :

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

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.

**droggo** · 05/01/2008, 23h07

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.

**degseb** · 06/01/2008, 08h42

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

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

**degseb** · 06/01/2008, 09h04

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 :

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

**droggo** · 06/01/2008, 14h47

Woe,

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 :

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

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 ?

**degseb** · 06/01/2008, 16h43

heu

oui ... grosse grosse faute de distraction

**darrylsite** · 06/01/2008, 18h37

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

Code :

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

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.

**degseb** · 10/01/2008, 09h50

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

A bientôt

**degseb** · 10/01/2008, 10h12

heu finalement je reposte

car je comprend pas j'ai troujours l'erreur "wrong amout of paramaters specified" qui reviens et la je vois plus pourquoi ca plante

me frappé pas

merci d'avance seb

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

**Alcatîz** · 10/01/2008, 12h55

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.

**degseb** · 10/01/2008, 16h05

a ok ... merci vais essayer

Fonctions exécutant des fonctions mathématiques

Pascal

Discussions similaires

Partager

Partager