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