Programme pascale
black_heart
Messages postés
352
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Programme pascale
- Programme demarrage windows - Guide
- Message programmé iphone - Guide
- Mettre en veille un programme - Guide
- Programme word gratuit - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
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.
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.
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.