Discussion :

[ricomix]

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

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

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

[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 :

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

ce serait pas plutot :

Code :

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

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