éclatement d'un tableau

Aller en bas

éclatement d'un tableau

Message  Admin le Ven 11 Mar - 13:15

ÉNONCÉ
Ecrire une analyse, un algorithme et une traduction pascal d’un programme intitulé ECLAT permettant de saisir N entiers non nuls d’un tableau T, de ranger les éléments négatifs dans un tableau TNEG et les éléments positifs dans un tableau TPOS et de les afficher.

Exemple : si T --> 15 -5 11 -2 14 15

Alors TNEG --> -5 -2

TPOS --> 15 11 14 15



PASCAL

program eclat;
uses wincrt;
var
t:array[1..20]of integer; {on a suppose ici que la taille du tableau est 20}
tpos:array[1..20] of integer;
tneg:array[1..20] of integer;
i,k,s,d,c,n:integer;
begin
writeln('donner la taille du tableau t'); {c’est pour fixer la taille du vecteur, et cette taille ne doit pas dépasser 20, car on a supposé que la taille max du vecteur est 20}
readln(n);
for i := 1 to n do
begin
writeln('donner un entier'); {remplissage du vecteur}
readln(t[i]);
end;
k:=0;
s:=0;
for i:= 1 to n do {si l’entier est positif alors on incrémente le compteur de tpos et on y affecte t[i], sinon, c’est tneg qui sera incrémenté}
if t[i]>=0 then
begin
k:=k+1;
tpos[k]:=t[i];
end
else
begin
s:=s+1;
tneg[s]:=t[i];
end;
writeln('les entiers positifs sont:');
for d:=1 to k do write (tpos[d],' '); {un simple parcourt suffit ici pour afficher tpos}
writeln('les entiers négatifs sont:');
for c:=1 to s do write (tneg[c],' '); {un simple parcourt suffit ici pour afficher tneg}
end.


Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

analyse modulaire

Message  Admin le Ven 11 Mar - 13:15

essayez de reprendre cette application en la décomposant en modules

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum