SHARE
TWEET

Untitled

a guest Apr 20th, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program Project1;
  2. choix_joueur_un: integer;
  3. choix_joueur_deux: integer;
  4. choix_joueur_dame: integer;
  5. TableauN: Array [0..9,0..9] of integer;
  6. TableauB: Array [0..9,0..9] of integer;
  7. A,B,C,D,N : integer;
  8. Couleur_joueur_un: string;
  9. Couleur_joueur_deux: string;
  10. Case_Vide:integer;
  11. Case_Remplie:integer;
  12. begin
  13.   WriteLn ('Joueur 1 quelle couleurs voulez vous choisir ? 1 pour Blanc , 2 pour noir ');
  14.   ReadLn(choix_joueur_dame);
  15.   While
  16.  choix_joueur_dame <= 3 do
  17.  begin
  18.  WriteLn ('Joueur 1 quelle couleurs voulez vous choisir ? 1 pour Blanc , 2 pour noir ');
  19.   ReadLn(choix_joueur_dame);
  20.   end;
  21. if choix_joueur_dame = 1 then
  22.   begin
  23.  Couleur_joueur_un:= B ;
  24.  Couleur_joueur_deux:= N ;
  25.  end
  26. else
  27. Couleur_joueur_un:= N;
  28. Couleur_joueur_deux:= B;
  29. end;
  30. If Case_Remplie = 1
  31. then
  32. WriteLn('Cette casse est déjà remplie');
  33. Else
  34. Case_Vide=0
  35. WriteLn('Cette case est vide');
  36. TableauB[0,0]=0;
  37. TableauB[1,0]=1;
  38. TableauB[2,0]=0;
  39. TableauB[3,0]=1;
  40. TableauB[4,0]=0
  41. TableauB[5,0]=1
  42. TableauB[6,0]=0
  43. TableauB[7,0]=1
  44. TableauB[8,0]=0
  45. TableauB[9,0]=1
  46.   ReadLn;
  47. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top