problème d'execution d'un programme

problème d'execution d'un programme - Delphi/Pascal - Programmation

Marsh Posté le 19-04-2008 à 22:31:12    

Bonjour. J'ai un un petit dont je ne trouve pas la solution. (j'ai meme aucune idée de piste pour la trouver...)
 
 

Code :
  1. begin
  2. procedure1;
  3. procedure2;
  4. procedure3;
  5. procedure4;
  6. end.


 
 
Lorsque je lance mon programme, les procédures 1 et 2 s'executent sans problème, mais le programme refuse de passer à la suite (ici à la procédure 3).
D'où est-ce que cela peut venir ? (sachant que dans la procédure 2, il y a quelques "break" ; mais je ne pense pas que cela intervienne en dehors de la procédure).
Merci de votre aide.
Voici une copie de mon code :
 
 

Code :
  1. uses crt;  {clrscr; }
  3. type NomDeStructure = record
  6. nom : string ;
  7. point : integer;
  8. points_tie_break : integer ;
  9. sett :array [0..5] of integer ;   {equipe[i].set[j]=nbre de jeu de l'equipe i dans le j-iŠme set}
  11. end;
  14. var Joueur : array[0..4] of NomDeStructure;
  15. var equipe : array[0..2] of NomDeStructure;
  16. var Nbre_set : integer;
  18. var Nbre_joueur : integer;
  19. var h : integer;
  21. {**************************************************************************************}
  23. Procedure Nom_equipe;
  24. var i :integer;
  25. begin
  27.           if Nbre_joueur = 4 then
  29.                          Equipe[1].nom:= 'l''‚quipe '+ Joueur[1].nom + '/' + joueur[2].nom;
  30.                          Equipe[2].nom:= 'l''‚quipe '+ Joueur[3].nom + '/' + joueur[4].nom;
  32.           If Nbre_joueur = 2 then
  33.                          for i:=1 to 2 do begin
  34.                          Equipe[i].nom:=joueur[i].nom
  35.                          end;
  36. writeln('fin Nom_equipe');
  37. end;
  40. {**************************************************************************************}
  41. Procedure Initialisation_score; {0 jeux marqu‚s}
  42. var i,j : integer;
  43. begin
  44.     for j := 1 to Nbre_set do begin
  45.         for i := 1 to 2 do begin
  46.             equipe[i].sett[j]:=0;
  47.         end;
  48.     end;
  49. writeln('fin initialisation_score');
  50. end;
  54. {**************************************************************************************}
  56. Procedure Saisie_score; {saisie des jeux gagn‚s dans chaques sets}
  57. var i,j,l : integer;
  58. begin
  59. h:=Nbre_set;
  60. for j := 1 to Nbre_set do begin
  61.     for i := 1 to 2 do begin
  62.         equipe[2].sett[j]:=10; {empeche de quitter la boucle ; voir en dessous}
  63.         If h<Nbre_set then
  64.            begin
  65.            break;
  66.            end
  67.            Else
  68.            begin
  69.            repeat
  70.            writeln('combien de jeux ', Equipe[i].nom, ' a gagn‚ dans le set',j,'?');
  71.            writeln('1,2,3,4,5,6,7, 9 si le set numero ',j,' n''a pas encore commenc‚');
  72.            readln(equipe[i].sett[j])
  73.            until equipe[i].sett[j] IN [1,2,3,4,5,6,7,9];
  75.            if equipe[1].sett[j] = 9 then begin
  76.               equipe[2].sett[j]:= 9;
  77.               h:=j-1;
  78.            end;
  80.            if (equipe[1].sett[j]<6) and (equipe[2].sett[j]<6) then begin
  81.               h:=j;
  82.            end;
  84.            if (equipe[1].sett[j] = equipe[2].sett[j]) and  (equipe[1].sett[j]= 6) then begin
  85.               equipe[1].sett[j]:=8;    {8 egal tie break}
  86.               equipe[2].sett[j]:=8;
  87.               h:=j;
  88.            end;
  90.         end;
  91.     end;
  92. end;
  93. writeln('fin saisie_score');
  94. end;
  97. {**************************************************************************************}
  100. Procedure Synthese_score; {affiche le score}
  101. var i,j :integer;
  102. begin
  103. writeln('bonjour la synthese');
  104.     for j := 1 to Nbre_set do begin
  105.         for i := 1 to 2 do begin
  106.             writeln('set ', 'j','   ','equipe[i].sett[j]', ' jeux');
  107.         end;
  108.     end;
  109. writeln('fin synthese_score');
  110. end;
  116. {**************************************************************************************}
  120. BEGIN
  121. clrscr;
  122. Nbre_set :=5;
  123. Nbre_joueur :=4;
  124. Joueur[1].nom := 'olivier';
  125. Joueur[2].nom := 'laura';
  126. Joueur[3].nom := 'ANTOINE';
  127. Joueur[4].nom := 'jfb';
  128. writeln('bienvenue');
  129. Initialisation_score;
  130. Nom_equipe;
  131. Saisie_score;
  132. Synthese_score;
  133. END.

Reply

Marsh Posté le 19-04-2008 à 22:31:12   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed