besoin de votre aide

Version imprimable

voilà ce ke g fait mais j'aurais besoin de votre aide
program courbes;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  procedure Test(x1,y1,x2,y2,p,b:Integer);
    var x3,k: Integer;
    begin
      k:=(y2-y1)*b mod(p);
         x3:=k*k-x1-x2 mod(p);
      writeln(x3);
    end;
 
  var x1,y1,x2,y2,k,p:integer;
  Begin
  write('x1=');readln(x1); 
  write('x2=');readln(x2); 
  write('y1=');readln(y1);
  write('y1=');readln(y1);
  write('p=');readln(p);
  for b=0 to p-1 do  Test(k,x3,x1,x2,y1,y2,p,b);
    ReadLn;
  End.

je voudrais tester le k et prendre la plus petite valeur de b pour laquelle k=1 mod(p) pour la réutiliser dans x3 ensuite

04/06/2006, 21h24
khayyam90

bien le bonsoir,

le forum algos, comme son nom l'indique, concerne les algos, donc pas un langage particulier.
C'est pourquoi le code en Pascal ... moyen.

tu veux faire quoi au juste ?
ton code et tes explications ne sont pas clairs du tout.

Déjà, il y a un gros souci, ta procédure Test prend 6 arguments et tu lui en passes 8. Il y a un léger malaise.

Mon petit doigt me dit que tu veux faire un passage par adresse mais sans plus de précision, on ne peut faire que des suppositions.
04/06/2006, 22h46
Graffito

Bonjour,

Mieux vaut de parenthéser la fonction (x mod y) à moins d'être parfaitement sur de la priorité des opérateurs.

Sinon, j'ai rien compris au but du programme.

De plus, au lieu de :

Citation:

write('x1=');readln(x1);

ce serait pas plutot :

Code:

readln(x1);write('x1=');