Program S5;
Type
tab = array[1..11] Of integer;
Var
t : tab;
n,e : integer;
//*******************************
Procedure remplir (Var t:tab; Var n:integer);
Var
i : integer;
Begin
Repeat
writeln('donner la taille du tableau entre 4 et 10');
readln (n)
Until n In [4..10];
writeln ('donner le premier element');
readln(t[1]);
For i:= 2 To n Do
Repeat
writeln('donner l''element num',i);
readln(t[i])
Until (T[i] > t[i-1]);
End;
//*******************************
Procedure insertion (Var E:integer; Var t:tab; n:integer);
Var
i : integer;
Begin
i := n;
writeln('donner l''element d''insertion');
readln(E);
While (t[i] >E) And (i>=1) Do
Begin
t[i+1] := t[i];
i := i-1;
End;
t[i+1] := E;
End;
//*******************************
Procedure affiche (t:tab;n:integer);
Var
i : integer;
Begin
For i:= 1 To n+1 Do
write(t[i],'/');
End;
Begin
remplir(t,n);
insertion (e,t,n);
affiche (t,n);
End.
Inscription à :
Publier les commentaires (Atom)
