Discussion :

[AmineDrX]

Bonsoir,
Pour mon premier post sur le forum je me présente:
Moi c'est Amine étudiant en L1 mathématique-informatique, & j’espère ne pas me tromper de section en postant ici.
J'ai un exercice à faire pour demain, je pense que ma façon de l'avoir écrit est bonne, tout de même j'ai une erreur affichée au premier Read(x) de type : Runtime error 200 at 0001:0123.
& je ne comprend pas d'ou ça vient.
Voila 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
51
52
program exo5;
uses wincrt;
var sinx,x: real;
procedure saisie(var x:real);
begin
repeat
clrscr;
writeln('calcul de sinus(x) ');
write('donner une valeure à x : ');
readln(x);
until (x<=100);
end;
function factorielle(n: integer): integer;
var f: integer;
begin
f := 1;
while (n > 1) do
begin
f := f * n;
n := n - 1;
end;
factorielle := f;
end;
function puissance(x: real; n: integer): real;
var i: integer; p: real;
begin
p := 1;
for i := 1 to n do
p := p * x;
puissance := p;
end;
function somme(x: real):real;
var i,n: integer; som,s: real;
begin
somme := 0;
s := 0;
repeat
for i := 3 to 100 do
begin
som := som + s;
if ((i mod 2)<> 0) then n := i;
s := (puissance(x,n) / factorielle(n));
end;
until (s <= 0.0001);
somme := som;
end;
begin
writeln('Calcul de Sin(x) ');
saisie(x);
sinx := x - somme(x);
write(sinx);
end.

Énoncé de l'exercice :
J’espère que vous m'aiderez ! Merci.
EDIT : : Merci pour la remarque Paul TOTH , je vais utilisé les balises CODE.

[Paul TOTH]

calcule factorielle(35)

nb: il faut utiliser les balises CODE (ou CODEINLINE) et non QUOTE pour du code

[AmineDrX]

calcule factorielle(35)

Je n'ai pas compris votre remarque ? Un peu de precision svp
EDIT: ma fonction factorielle renvoyé toujours 0
& désormais il n'ya plus d'erreur runtim.. mais dés que je donne une valeur à ma variable x ça bug, & le TPW se ferme.
EDIT 2Désole, je ne suis pas habitué au forum. Voia, j'ai essayé d’espacer 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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
 
program exo5;
uses wincrt;
 
var sinx,x: real;
 
 
procedure saisie(var x:real);
 
begin
 repeat
  clrscr; 
  writeln('calcul de sinus(x) ');
  write('donner une valeure à x : ');
  readln(x);
 until (x<=100);
end;
 
 
function factorielle(n: integer): integer;
 
var f,i: integer;
begin
 for i:=1 to (n-1) do
  f := f * n;
 factorielle := f;
end;
 
 
function puissance(x: real; n: integer): real;
 
var i: integer; p: real;
begin
 p := 1;
 for i := 1 to n do
  p := p * x;
 puissance := p;
end;
 
 
function somme(x: real):real;
 
var i,n: integer; som,s: real;
begin
 somme := 0;
 s := 0;
 repeat
  for i := 3 to 100 do
   begin
    som := som + s;
    if ((i mod 2)<> 0) then n := i;
    s := (puissance(x,n) / factorielle(n));
   end;
 until (s <= 0.0001);
 somme := som;
end;
 
 
begin
 
 writeln('Calcul de Sin(x) ');
 saisie(x);
 
 sinx := x - somme(x);
 
 write(sinx);
 
end.

[droggo]

Soe,

Il faut faire un effort sur la présentation du code : indentation, aérer pour séparer les blocs logiques ...

Ça a été imaginé pour faciliter la lecture, et donc la maintenance du code, pas seulement pour "faire joli".

[AmineDrX]

Vous n'avez pas essayé mon code ? Ou remarqué un truc d'anormal ?

[Paul TOTH]

Vous n'avez pas essayé mon code ? Ou remarqué un truc d'anormal ?

oui et l'erreur est simple, elle est dans la fonction factorielle, as-tu calculé factorielle(35) comme demandé ? le résultat est-il juste ? pourquoi ne l'est-il pas ?