Programme pascale
black_heart
Messages postés
412
Statut
Membre
-
ezzero -
ezzero -
Bonjour,
je veux bien résoudre ce petit probléme :
ecrire un programme pascal qui permet de faire des opérations sur un tableau T de n entier 2<n<10.
_Rechercher le minimum du tableau et la maximum
_eclater le tableau en 2 (dentier positif et un autre entier négatif)
_rechercher l'existance d'un entier donné, si l'existe donner le nombre d'occurance .
_tester la symétrie du tableau
je veux bien résoudre ce petit probléme :
ecrire un programme pascal qui permet de faire des opérations sur un tableau T de n entier 2<n<10.
_Rechercher le minimum du tableau et la maximum
_eclater le tableau en 2 (dentier positif et un autre entier négatif)
_rechercher l'existance d'un entier donné, si l'existe donner le nombre d'occurance .
_tester la symétrie du tableau
Configuration: Windows Vista Safari 530.5
3 réponses
-
program nombre;
uses wincrt;
type tab=array[1..10]of integer;
var
o,g,p,i,n:integer;
tn,tp,t:tab;
procedure saisir(var n:integer;var t:tab);
begin
repeat
writeln('saisir n');
readln(n);
until(n>=2)and(n<=10);
for i:= 1 to n do
begin
writeln('saisir t[',i,']=');
readln(t[i]);
end;
end;
procedure positif ( var n:integer ; var t,tp:tab);
begin
p:=0;
for i:= 1 to n do
if (tp[i]>=0)then
begin
tp[i]:=t[i];
end;
end;
procedure negative (var n:integer; var t,tn:tab);
begin
g:= 0;
for i:=1 to n do
if (tn[i]<=0) then
begin
tn[i]:=t[i];
end;
end;
procedure ocurance (var n:integer ; var t:tab);
begin
o:=t[1];
for i:= 1 to n do
if (t[i]=o)then
begin
o:=0+2;
end;
end;
begin
saisir (n,t);
positif(n,t,tp);
negative(n,t,tn);
ocurance(n,t);
end. -
-
Quel est le problème ?
Tu nous dis que tu veux bien résoudre un petit problème; c'est bien d'avoir de bonnes intentions. Mais nous on fait quoi ?
Si par hasard, il te venait l'idée de nous demander de résoudre 'ton petit problème', oublie tout de suite. En effet nous ne sommes pas là pour résoudre 'ton petit problème', mais pour t'aider à le résoudre; pour cela il va falloir nous montrer le résultat de tes bonnes intentions.
Pour t'en convaincre, tu peux lire ceci (surtout les deux premiers conseils).
Bonne continuation.
