Exercice 1

program ex1;
var
i, k, n, min, max, tot: integer;
tab: array[1..15] of integer;

function rand (minimum, maximum: integer): integer;
begin
rand := minimum + Abs(Random) mod (maximum - minimum + 1);
end; { Fin de la fonction 'rand' }

begin
writeln('TD 3 informatique. Ex1 par http://www.Software-DS.com');
writeln;
writeln;

min := 20; { initialisation }
max := 5;
tot := 0;
for i := 1 to 15 do
tab[i] := 0;

n := rand(50, 100); { Choix du nombre entre 50 et 100 }

writeln('Les ', n : 0, ' notes:');
for i := 1 to n do { Calcul des notes }
begin
k := rand(5, 20);
tot := tot + k;
writeln(k : 0);
if min > k then
min := k;
if max < k then
max := k;
tab[k - 4] := tab[k - 4] + 1;
end;
writeln;
writeln('Max: ', max : 0, ' Min: ', min : 0);

writeln('Nombre d''occurrences:');
for i := 1 to 16 do
writeln('occurence(', i + 4 : 0, ') = ', tab[i] : 0);

{ on se sert du tableau que pour memoriser les occurences et on a que 15 valeurs à memoriser }
{ donc on n'est oblige d'utiliser un tableau, on peut utiliser 15 valeurs: k1,k2,...k15 et un CASE ... }
writeln;
writeln('©2001 All Rights Reserved to www.Software-DS.com');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 09/10/01 }
end.