Bonjour. J'ai un projet d'informatique (sous Pascal) à rendre pour la semaine prochaine. J'ai déja programmé quand j'étais plus jeune sous VB, les deux langages n'ont pas l'air enormement different pour ce dont j'ai besoin. Le problème c'est que j'ai d'autres projets (non informatique) assez en retard...J'ai donc ecrit mon programme un peu comme en VB, mais je n'arrive pas à l'adapter en Pascal. Je n'y ai pas encore passé beaucoup de temps, mais je sais que galerer sur des petits problèmes de langage peut etre tres long (comparé à quelqu'un qui maitrise le langage). Donc voila, si vous maitrisez le langage, ca serait sympa d'adapter ma procedure...(j'ai surtout un problème pour déclarer des variables du type : Joueur[i].nom...)
 
C'est une procédure de saisie de données (un score de tennis)
 
 
Procedure Nom_equipe
 If Nbre_joueur =  4 then
  For i from 1 to 2 do
  Equipe[i].nom=”l’équipe”  Joueur[i].nom + Joueur[i+1].nom
  End ;
 
 If Nbre_joueur =  2 then
  For i from 1 to 2 do
  Equipe[i].nom=Joueur[i].nom
  End ;
End ;
 
 
 
 
 
 
Procedure Saisie_score
begin
 
 h :=Nbre_set
 for j from 1 to Nbre_set do
 begin
  If h<Nbre_set then  
   Halt (arrête  la boucle for ??!)
  Else  
   For i from 1 to 2 do
   Begin  
    Repeat
    Writeln(« combien de jeux à gagné » Equipe_nom[i] «dans le set» j « ?»)
    Writeln(« 1, 2, 3, 4, 5, 6, 7, T pour Tie Break, P si le set numéro » j « n’a pas encore commencé»)
    Readln(equipe[i].set[j].jeu)
    Until equipe[i].set[j].jeu IN [1, 2, 3, 4, 5, 6, 7, T, P]
    If equipe[i].set[j].jeu = P then
     h:=j-1
     
   End;
   
 End;
 
 
 
Commentaire : h correspond au numéro de set qui est en train de se jouer.
 
 For k from 1 to 2 do
 Begin
  If equipe[k].set[h].jeu=T then
   Repeat  
   Writeln (« Nombre de point marqué par » Equipe_nom[k] « dans le Tie Break » )
   Readln(equipe[k].point)
   UNTIL équipe[k].point IN integer
  Else  
   Repeat  
   Writeln (« Score » Equipe_denom[k] « dans le dernier jeu en cours »)
   Writeln (0, 15, 30, 40, E pour égalité, A pour avantage, D pour avantage à l’adversaire)
   Readln (equipe[k].point IN (0, 15, 30, 40, E, A, D)
   
  If equipe[1].point = E then
   equipe[2].point = E
   halt  (sortie de la boucle for ?!!)
   
 
  If equipe[1].point = A then
   equipe[2].point = D
   halt  
   
  If equipe[1].point = D then
   equipe[2].point = A
   halt  
   
 End;
End.

Hors charte, merci de lire les règles de la catégorie Programmation.