Discussion :

[Rojirosk]

Salut
j'ai besoin d'aide svp, je veux créer ce programme



J'arrive à faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
program devoir;
uses wincrt;
type tab=array [1..30] of integer;
 
var  a,K,N:integer; t,ts:tab;
 
 
 
 
procedure saisie(var t:tab;K,N:integer);
var i:integer;
 
begin
repeat
write('donnez N : ');
readln(N);
until N in [5..30];
repeat
write('donnez K : ');readln(K);
until K in [2..N-1] ;
for i:=1 to N do
begin
repeat
write('t[',i,']=');
readln(t[i]);
until t[i]>0;
end;
for i:=1 to N do
write(t[i],'|'); writeln(' ');
end;
 
 
procedure remplirts(var K,a:integer;ts:tab);
var s,i,j:integer;
 
begin
s:=0;
a:=1;
for j:=1 to N-K+1 do
begin
for i:=a to K do
begin
s:=t[i]+s;
end;
ts[j]:=s;a:=a+1;K:=K+1;
end;
end;
 
 
procedure afficherts(N,K:integer;ts:tab);
var i:integer;
begin
for i:=1 to N-K+1 do
write(ts[i],'|');
end;
 
 
begin
saisie(t,K,N);
remplirts(K,a,ts);
afficherts(K,N,ts);
end.

mais quand je fais la compilation j'obtiens



J'ai beau chercher où je me suis trompé mais en vain. help :s
Merci d'avance.