Discussion :

[marcm]

Bonjour à vous tous.
Je fais un petit programme qui va lire un document txt et affiche une moyenne. Le problème, c'est que je dois ajouter un code qui posera comme question.
Que voulez vous faire avec les données? 1= les affichées à l'écran, 2= les imprimés. Je ne connais pas le code qui m'aidera à faire cette démarche et aussi je ne sais pas où je dois l'inscrire. Je suis débutant en programmation.

Merci de votre aide
Voic mon code.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
Program Note_plongeurs;
 
const FileName = 'resultat.txt';
 
type Plongeurs = record
                    nom:  string;
                    plongeons: array [1..3] of array [1..7] of real;
                    coefficient: array[1..3] of real;
                    note: real;
                  end;
var competition : array [1..5] of Plongeurs;
 
 
procedure FillRecord(FileName: string);
var i,j,k : integer;
    f: Textfile;
    tampon:string;
    code:integer;
begin
   Assign(f,Filename); {associe le fichier à la variable f}
{$I-}
   Reset(f);
{$I+}
  if IOresult<>0 then
   begin
     writeln('Le fichier est introuvable ');
     readln;
     halt;
   end;
 
   while not EOF(F) do
   begin
     for i:=1 to 5 do {pour chaque plongeur}
     begin
       readln(f,competition[i].nom);
       for j:=1 to 3 do {pour chaque plongeons}
       begin
         readln(f,tampon);
         Val(tampon,competition[i].coefficient[j],code);
         for k:= 1 to 7 do {pour chaque note}
         begin
           readln(f,tampon);
           Val(tampon,competition[i].plongeons[j][k],code);
         end;
       end;
     end;
   end;
   close(F);
end;
 
procedure Calculnote;
var
minnote,maxnote,moyenne:real;
i,j,k:integer;
begin
     for i:=1 to 5 do {pour chaque plongeur}
     begin
     competition[i].note:=0;
       for j:=1 to 3 do {pour chaque plongeons}
       begin
       moyenne:=0;
       minnote:=10;
       maxnote:=0;
         for k:= 1 to 7 do {pour chaque note}
         begin
                if competition[i].plongeons[j][k]<minnote then
                 minnote:=competition[i].plongeons[j][k];
                if competition[i].plongeons[j][k]>maxnote then
                 maxnote:=competition[i].plongeons[j][k];
                moyenne:=moyenne +competition[i].plongeons[j][k];
 
         end;
         moyenne:=moyenne -minnote -maxnote;
         moyenne:=moyenne/5;
         moyenne:=moyenne*competition[i].coefficient[j];
         competition[i].note:= competition[i].note + moyenne;
       end;
        competition[i].note:= competition[i].note/3;
     end;
   end;
procedure trierplongeur;
var i,j,minj:integer;
    minx:plongeurs;
begin
        for i:= 1 to (5-1) do
        begin
                minj:=i;
                minx:= competition[i];
                For j:= (i+1) to 5 do
                begin
                        if( competition[j].note>minx.note) then
                        begin
                                minj:=j;
                                minx:= competition[j];
                        end;
                end;
                competition[minj]:=competition[i];
                competition[i]:=minx;
        end;
end;
 
 
procedure ShowCompetition;
var i,j,k : integer;
begin
  for i:=1 to 5 do  begin{pour chaque plongeur}
    writeln(competition[i].nom, '  (', competition[i].note:0:3, ')');
    for j:=1 to 3 do begin{pour chaque coefficient de plongeon}
      (*writeln(f,competition[i].plongeons[j]);*)
      for k:= 1 to 7 do begin{pour chaque note}
          write('    ', competition[i].plongeons[j][k]:0:2, ', ');
      end;
      writeln;
    end;
  end;
end;
 
begin
fillrecord(FileName);
calculnote;
trierplongeur;
Showcompetition;
readln;
end.

[relena93]

bonjour
Je pense que le mieu pour poser une question et proposer différentes reponces est d'utiliser un CASE que tu mes dans ton programme principal:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Begin 
...
   writeln('Que voulez vous faire?');
   Writeln('Afficher 1');
   Writeln('imprimer 2 ');
   readln(rep); {repondre 1 ou 2}
   case rep fo
      1: {ta fonction ou procedure pour afficher}
      2 : {ta fonction ou procedure pour imprimer}
   end;
 
end.

Regarde sur cette page comment fonctionne un case:
http://cyberzoide.developpez.com/info/turbo/chap5.php3

[marcm]

Bonjour Relena93
Merci pour ton aide.

J'ai beau chercher dans mes livres, qu'elles est la procédure pour sortir le texte à l'écran et la procédure pour sortir le texte à l'impression.

merci encore pour ton aide

marc

[droggo]

Gao,

Pour afficher, tu sais déjà le faire, puisque tu as utilisé des writeln.

Pour imprimer , c'est plus délicat, car ça dépend de ton matériel ET de ton compilateur ET de ton système d'exploitation.

[marcm]

Bonjour
j'utilise Delphi 6.0 et Windows XP professionnel

merci de votre aide

[droggo]

Jeo,

Avec Delphi, il y a moyen d'utiliser la classe TPrinter.

N'ayant jamais essayé, je ne suis pas sûr qu'on puisse l'utiliser depuis une application console, même si je ne vois pas d'impossibilité a priori.

Mais il y a si longtemps que je ne fais plus ni Pascal, ni applications console que je ne m'avancerais pas plus.