program essai;
const
DIM_TAB = 10;
type
tab_entier = array[1..DIM_TAB] of integer;
var
m: integer;
tab: tab_entier;
function somme (n: integer): integer;
var
i, s: integer;
begin
s := 0;
for i := 1 to n do
s := s + i;
somme := s;
end; {Fin de
'somme' }
procedure remplir (n: integer; var tab:
tab_entier);
var
i: integer;
begin
for i := 1 to n do
tab[i] := somme(i);
end; {Fin de
'remplir' }
procedure affiche (n: integer; tab: tab_entier);
var
i: integer; {
j'aime bien le i minuscule :-) }
begin
for i := 1 to n do
writeln(tab[i] : 3);
end; {Fin de
'affiche' }
begin
repeat
writeln('entrer une valeur (<10)');
readln(m); {
dimension du tableau }
until (m > 0) and (m <
11);
remplir(m, tab);
affiche(m, tab);
{ Le prog
remplit un tableau de dimension m en mettant dans la i eme
case la somme de 1 à i }
{ http://www.Software-DS.com
13/11/01 }
end.
|