Remplissage de tableau

Version imprimable

2 pièce(s) jointe(s)

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

Pièce jointe 146683

J'arrive à faire ceci :

Code:

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

Pièce jointe 146684

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

Je ne sais pas si j'aurai le temps de te suivre jusqu'au bout, mais déjà :
- Ton code doit être lisible, donc :
-- places-le entre les balises de code : bouton # à l'édition du message,
-- indentes correctement, cela permet de voir des problèmes, ou de voir ce qui est inutile.
Cela donne (programme non corrigé) :
Code:

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 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.
- Je mets un "begin … end" lorsqu'il y a plusieurs instructions. Une boucle est "une seule" instruction, donc dans "for…begin…repeat…", le begin est a priori inutile.
- Si je lis rapidement ton programme tel qu'indenté, je ne comprends pas pourquoi ton tableau t s'affiche sur une seule ligne. Avec la bonne indentation, je comprends plus vite.
- Donne un nom plus rapide à comprendre aux procédures : "remplir_ts" au lieu de "remplirts". Ce n'est pas grand chose, mais ça aide.
- La procédure saisie : ton tableau est déclaré en paramètre variable, mais pas les entiers qui suivent : pourquoi ? ton "var" de paramètre s'arrête au premier ";", il ne va pas jusque ")" ! (ou alors quelque chose a changé depuis que je n'en ai plus fait ?)
- Idem procédure "remplirts" : k est en "var", or il n'a aucune raison de l'être; pourquoi passer le paramètre "a" alors qu'il ne sert que dans la procédure, "a" devrait plutôt être une variable locale à la procédure, isn't-it ?
- Procédure "remplirts" : le "for i:=a" me gêne, serait-ce plutôt "for i:=j" ? du coup, on se demande si "a" a vraiment une utilité.
- Procédure "remplirts" : pour "K" est-il passé en variable ? une fois affecté, il n'est pas censé changer de valeur ! Et pire, il change justement de valeur encours de route. "K" représente ton "plateau", la largeur imposé de l'intervalle de sommation, il n'a donc a priori aucune raison de changer.

Ceci dit, tu est déjà bien avancé.
J'espère ne pas avoir dit de bêtise, je fais cela vite fait.

22/05/2014, 21h40
Rojirosk

merci AdmChiMay pour votre temps, vous m'avez vraiment aidé j'ai corrigé presque tout ce que vous m'avez dites .
néanmoins mon problème le plus important c'est le remplissage de ts j'obtiens toujours 0 :/ .
23/05/2014, 07h09
AdmChiMay

Quand on ne voit pas, le mieux est de faire des traces à l'écran (pour ce genre de taille de programme, car sinon, la prochaine étape c'est le debugger).

Par exemple : tu as lu t (et phonétiquement ça reste valable ;) ), alors tu l'affiches. Pour le coup, tu gardes le begin-end autour du while, et tu ajoutes une 2è commande : writeln ( 'vous avez rentré t[',i,'] = ', t[i]); . Cela te permet de faire de la vérification à la volée.
Ou alors, juste avant de sortir de la procédure, tu affiches n, k, et le tableau. Ce code, tu pourras :
- le mettre en commentaire une fois que c'est correct,
- le recopier à l'entrée de la procédure suivante, pour vérifier que les paramètres n'ont pas été cabossés par le transit.

Tu fais la même chose juste après avoir affecté ts[j]. Voir même tu writeln ta somme s en cours de calcul.

Déjà, tu sauras si tes données sont passées correctement d'une procédure à l'autre. C'est comme cela qu'on s'aperçoit très vite que quelque chose aurait dû passer en var ou pas, ou bien que l'on a affecté quelque chose au mauvais moment. Bref, c'est le debug, mais sans l'outil qui fait avancer le programme pas-à-pas et t'affiches tout seul le contenu de toutes les données.

Essayes, bidouilles, pendant la journée, et re-postes ton programme modifié ce soir, je repasserai jeter un oeil.

L'avantage du Pascal, c'est que le nombre d'erreurs possibles est généralement limité, c'est une première étape d'apprentissage. Et d'une manière générale, afficher les données qu'on vient de recevoir, puis afficher celles qu'on est censé renvoyer, ça repère déjà pas mal de problèmes. Et après, tu mets cet affichage en commentaire une fois que c'est correct.

p.s. : pour le listing, j'avais mis en forme à coups de tabulations sous Notepad++, mais ça peut faire large à l'affichage selon les réglages. Autre solution : des paquets de 2 à 4 espaces.

enfin :/

voià ce que j'ai pu corriger , pour le traitement j'ai commis une erreur TREEES STUPIDE " dans l'appel de la procedure afficher j'ai inverser le n et le k c'est pourquoi le programme me donne la valeur 0....
le programme est loin d'etre parfait mais celui-là au moins donne le résultat correcte..

Code:

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 k,n:integer; t,ts:tab;
 
procedure saisie(var t:tab;var k:integer;var 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;
 
  end;
 
 
function somme(t:tab;a:integer;b:integer):integer;
 var i,s:integer;
  begin
  s:= 0 ;
   for i:=a to b do
    s:= s+t[i];
  somme :=s;
  end;
 
procedure remplir_ts(t:tab;n,k:integer;var ts:tab);
 var i:integer;
 
  begin
   for i:=1 to n-k+1 do
   begin
    ts[i] :=somme(t,i,k);
   k:=k+1;
   end;
  end;
 
procedure afficher_ts(n:integer;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);
 
	remplir_ts(t,n,k,ts);
	afficher_ts(n,k,ts);
end.

MERCI encore AdmChiMay!