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