Discussion :

[much1707]

Bonsoir,
Salut tout le monde
j'ai un exercice que je l'ai déjà fait mais il existe trop d'erreurs
alors je vous donne l'exercice et j'attends la réponse svp

soit un tableau T qui conient les notes des stagiaires
ecrire un programme qui permet de :
1)-calculer les moyénnes general des stagiaires
2)-calculer les notes moyénnes des modules
3)-chercher les meilleurs note pour un module donnée -----> max de ligne
4)-chercher la meilleur note du semestre pour quel stagiaire et quel module

j'attends bien vos réponses , Merci d'avance !
Langage pascal bien sur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
programm moy;
function som(t)
begin
s:=s+[i,j];
end;
procedure(t:array;vc:araay[1..3]);
begin
s:=som(t);
mg=s/n;
vc[j]:=mg;

Je suis auxiliaire

[M.Dlb]

Le code qui tu nous donnes ici n'est absolument pas compilable, et ca a été écrit en 2 minutes sans réflexion. Réfléchis d'abord sur les algos à utiliser puis traduit les en pascal et enfin nous pourrons t'aider.

[droggo]

Vie,

Bonsoir,
Salut tout le monde
j'ai un exercice que je l'ai déjà fait mais il existe trop d'erreurs
alors je vous donne l'exercice et j'attends la réponse svp

soit un tableau T qui conient les notes des stagiaires
ecrire un programme qui permet de :
1)-calculer les moyénnes general des stagiaires
2)-calculer les notes moyénnes des modules
3)-chercher les meilleurs note pour un module donnée -----> max de ligne
4)-chercher la meilleur note du semestre pour quel stagiaire et quel module

j'attends bien vos réponses , Merci d'avance !
Langage pascal bien sur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
programm moy;
function som(t)
begin
s:=s+[i,j];
end;
procedure(t:array;vc:araay[1..3]);
begin
s:=som(t);
mg=s/n;
vc[j]:=mg;

Je suis auxiliaire

Disons plutôt que tu as écrit quelques lignes, littéralement sans avoir réfléchi une seconde au problème, et que tu attends qu'on fasse ton travail.

Mais dommage pour toi, nous ne sommes pas sur www.On-fait-tes-devoirs-a-ta-place.org

[much1707]

salut a tous
est ce que ce programme just ou non
svp aidez moi

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
 
program  module;
     uses  crt;
    const  n=3;m=6;
     type
          tab=array[1..n,1..m]of real;
           vt1=array[1..n]of real;
           vt2=array[1..m]of real;
      var 
           T:tab;
          L:vt1;                             
          C:vt2;       
           max1,max2,n,m,s,z:real;
           i,j,u,k:integer;
           ch:char;
procedure  charge(var t1:tab);
      var  x:real;
    begin  for i:=1 to n do begin textcolor(12);
           clrscr;gotoxy(10,02);write('lES NOTES DES ',b,' ETUDIANTS DANS LES ',a,' MODULES');
           gotoxy(12,4);textcolor(10);writeln('Donner les notes du module : ',i);j:=1;
           while j<= m do begin
           gotoxy(12,5+j);textcolor(11);write('La Note De L`Etudiant Nø ',j,' : ');readln(x);
           if (x<0) or (x>20) then begin gotoxy(42,5+j);end else
           begin t1[i,j]:=x; j:=j+1; u:=u+1;end;end;end;end;
procedure  search(v1:tab);
      var  max1:real;
begin  gotoxy(10,03);textcolor(10);write('Donner Le Numero de Module Entre [ 1..',a,' ]  : ');readln(i);
           if (i>=1)and(i<=a) then begin
           max1:=v1[i,1];for j:=1 to b do
           begin if max1 < v1[i,j] then max1:=v1[i,j]; end;
           gotoxy(10,04);textcolor(12);write(max1:2:2);textcolor(11);write(' : Est La Meilleure Note Dans Le MODULE ',i);
           end 
Else
 begin gotoxy(10,14);writeln('Le Module N`‚xiste Pas');end;end;
procedure  searche(v2:tab);
      var  
max2:real;
    begin  max2:=v2[1,1];
           for i:=1 to n do for j:=1 to m do begin
           if max2 < v2[i,j] then
 begin max2:=v2[i,j]; end;end;
           gotoxy(10,05);textcolor(12);write(max2:2:2);textcolor(11);writeln(' : Est La Meilleure Note Des Etudiants ');
           textcolor(10);for i:=1 to n do for j:=1 to m do begin if v2[i,j]=max2 then
           writeln('Etudiant Nø ':29,j,' Dans Le Modumle ',i);end;end;
 function  mng(v3:tab):real;
      var  s,m1:real; function  som(v4:tab):real;
    begin  s:=s+v4[i,j];som:=s;end;
    begin  gotoxy(10,08);textcolor(12);writeln('LES MOYENNES GENERALES DES ETUDIENTS ');writeln;
           for j:=1 to b do begin s:=0;
           for i:=1 to a do begin s:=som(v3);m1:=s/a;C[j]:=m1;end;end;
           for j:=1 to b do begin textcolor(12);write('':09,C[j]:2:2);
           textcolor(11);writeln(' : Est La Moyenne De L`Etudiant : ':32,j);end;end;
    begin  clrscr;charge(t);writeln;clrscr;search(t);searche(t);mng(t);readln; end.

merci

[droggo]

Bie,

Mets ton code en forme, qu'il soit lisible sans se crever les yeux.