Programme pascale
Fermé
black_heart
Messages postés
352
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
31 janvier 2016
-
8 oct. 2009 à 21:18
ezzero - 3 mai 2010 à 05:28
ezzero - 3 mai 2010 à 05:28
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 10 - Guide
- Mettre en veille un programme - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
- Désinstaller programme windows 10 - Guide
- Sms programmé - 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.
black_heart
Messages postés
352
Date d'inscription
dimanche 3 août 2008
Statut
Membre
Dernière intervention
31 janvier 2016
20
11 oct. 2009 à 10:24
11 oct. 2009 à 10:24
allo
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.