Program S1;
Type
tab = array[1..30] Of integer;
Var
t,ts : tab;
n,p : integer;
//************************************
Function saisie : integer;
Var
x : integer;
Begin
writeln('Donner la taille du tableau: ');
readln(x);
saisie := x;
End;
//************************************
Procedure remplire(Var tab;Var n:integer);
Var
i : integer;
Begin
Repeat
n := saisie;
Until (n In [5..30]);
For i:=1 To n Do
Begin
Repeat
write('donner l''element n°',i,': ');
readln(t[i]);
Until (t[i]>=0);
End;
End;
//************************************
Procedure former(Var ts:tab;Var p:integer;t:tab;n:integer);
Var
i,j,k : integer;
Begin
Repeat
writeln('Donner l''entier K: ');
readln(k);
Until (k>1) And (k<n);
i := 1;
p := 1;
While (i+k-1 <=n) Do
Begin
For j:=i To k+i-1 Do
ts[p] := ts[p]+t[j];
p := p+1;
i := i+1;
End;
p := p-1;
End;
//************************************
Procedure affiche(ts:tab;p:integer);
Var
i : integer;
Begin
For i:=1 To p Do
writeln('ts[',i,']= ',ts[i]);
End;
//************************************
Begin
remplire(t,n);
former(ts,p,t,n);
affiche(ts,p);
End.
Inscription à :
Publier les commentaires (Atom)
