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. |