Programme pascale
Fermé
black_heart
Messages postés
346
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
A voir également:
- Programme pascale
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Frequence programme national ✓ - Forum Messagerie
- Programme demarrage windows 10 - Guide
- Programme bonjour ✓ - Forum Windows
- Programme démarrage windows 10 - 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
346
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.