Discussion :

[toufik61]

bonsoir à tous,

Quelqu'un pourrait-il me corriger ce programme ? Après compilation, il me signale "erreur (85)" ; j'ai ajouté des points-virgules mais la même erreur est signalée chaque fois. 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
{*********************************************
* Geatest common divisor and Smallest common *
*     multiple of several integer numbers    *
* ------------------------------------------ *
* Ref.: "Mathématiques en Turbo-Pascal       *
*        By M. Ducamp and A. Reverchon (2),  *
*        Eyrolles, Paris, 1988" [BIBLI 05].  *
* ------------------------------------------ *
* Sample run:                                *
*                                            *
* GCD and SCM of integer numbers:            *
*                                            *
* First number: 9936                         *
* Next number : 414                          *
* Next number : 3174                         *
* Next number : 0                            *
*                                            *
* GCD =      138                             *
* SCM =   228528                             *
*                                            *
*********************************************}
PROGRAM GCD_SCM;
Uses WinCrt;
 
Var  x,pg,pp : REAL;
 
 
Function GCD(a,b:REAL):REAL;
Var  x,r: REAL;
Begin
  a:=INT(ABS(a));
  b:=INT(ABS(b));
  gcd:=1;
  if (a>1E10) or (b>1E10) then exit;
  if (a=0) or (b=0) then exit;
  if a<b then
  begin
    x:=a; a:=b; b:=x
  end;
  Repeat
    r:=a-b*INT(a/b);
    a:=b; b:=r
  Until abs(r)<1E-10;
  gcd:=a
End;
 
 
BEGIN
 
  clrscr;
  writeln;
  writeln(' GCD and SCM of integer numbers:');
  writeln;
  write(' First number: '); readln(pg); pp:=pg;
  Repeat
    write(' Next number : '); readln(x);
    if x>0 then
    begin
      pg:=gcd(pg,x); pp:=pp*x/gcd(pp,x)
    end
  Until x=0;
  writeln;
  writeln(' GCD = ',pg:12:0);
  writeln(' SCM = ',pp:12:0);
  writeln;
  Readkey; Donewincrt
 
END.
 
{end of file gcd.pas}

[Roland Chastain]

Bonsoir !

Je n'ai pas constaté qu'il manquait des points-virgules.

En revanche, il y a un problème avec la valeur de x :

Code :

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

1
2
3
4
5
6
7
Repeat
  write(' Next number : '); readln(x);
  if x>0 then
  begin
    pg:=gcd(pg,x); pp:=pp*x/gcd(pp,x)
  end
Until x=0;

Tu n'aurais pas modifié cette partie du programme par hasard ?