Etude procédure incrément, résultat?
Fermé
adel_3n1
Messages postés
17
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
25 juin 2003
-
5 juin 2003 à 20:43
Adil ,vrais - 2 nov. 2004 à 14:19
Adil ,vrais - 2 nov. 2004 à 14:19
A voir également:
- Etude procédure incrément, résultat?
- Resultat loto d'aujourd'hui ✓ - Forum Excel
- Le point d'entrée de procédure setdefaultdlldirectories est introuvable ✓ - Forum Windows 7
- Casio fx 92 resultat sans fraction ✓ - Forum calculatrices
- Archive resultat bac ✓ - Forum Internet / Réseaux sociaux
- Etude de cas rapport de stage - Forum Études / Formation High-Tech
12 réponses
jisisv
Messages postés
3645
Date d'inscription
dimanche 18 mars 2001
Statut
Modérateur
Dernière intervention
15 janvier 2017
946
6 juin 2003 à 02:59
6 juin 2003 à 02:59
Aille,
Moi y en a pas tré bien césir la kestion...
Johan
The software said "Requires Windows98, Win2000, or better,
So I installed Unix.
Moi y en a pas tré bien césir la kestion...
Johan
The software said "Requires Windows98, Win2000, or better,
So I installed Unix.
Tu peux reposer ta question, mais cette fois en français ? STP :)
josch83
"There are only 10 types of people in the world: Those who understand binary, and those who don't"
josch83
"There are only 10 types of people in the world: Those who understand binary, and those who don't"
ipl
Messages postés
5723
Date d'inscription
lundi 8 octobre 2001
Statut
Contributeur sécurité
Dernière intervention
14 avril 2012
582
8 juin 2003 à 11:09
8 juin 2003 à 11:09
josch83... mon post à jisisv est aussi valable pour toi !
Si tu n'as que çà à dire à Adel_3n1... tais toi parce que tu ne lui arrive peut-être pas à la cheville et tes propos ne te grandissent pas !
@12C4 ... In medio stat virtus ...
Ipl
Si tu n'as que çà à dire à Adel_3n1... tais toi parce que tu ne lui arrive peut-être pas à la cheville et tes propos ne te grandissent pas !
@12C4 ... In medio stat virtus ...
Ipl
josch 83, j'aime bien ta signature...
Pourquoi 10 ??? ;-)
Concernant la question, j'ai rien compris non plus... incrémentation oui mais encore???
Fat_Cartman,
Parce que je le vaux bien...
Pourquoi 10 ??? ;-)
Concernant la question, j'ai rien compris non plus... incrémentation oui mais encore???
Fat_Cartman,
Parce que je le vaux bien...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
boudjeroua.mohamed@caramail.com
Salut,
votre réponse est juste 20/20 et je ne sais pas porquoi tu veus de l'aide.
transmission par valeur(Z) : une var local est usée ds la procedur ou fction comme paramètre on ne la précède pas par var ,ou déclarée à l'intérieure de la proc/fction , elle prend une copie de la val de la var appellante toute modification de (Z) n'affecte pas la var apellante,sa durée de vie débute avec l'appelle et meure à la fin de la proc ou fction .
la tranmission par adresse(X) une var est usée ds la procedur ou fction comme paramètre , on la précède par var, sa durée de vie débute avec l'appelle et meure à la fin de la proc ou fction ,elle prend l'adresse de la var appellante toute modification sur (X) implique une modification de (Y)
une var global est usée ds la déclaration du prog ou algo
bon courage.
merci.
Salut,
votre réponse est juste 20/20 et je ne sais pas porquoi tu veus de l'aide.
transmission par valeur(Z) : une var local est usée ds la procedur ou fction comme paramètre on ne la précède pas par var ,ou déclarée à l'intérieure de la proc/fction , elle prend une copie de la val de la var appellante toute modification de (Z) n'affecte pas la var apellante,sa durée de vie débute avec l'appelle et meure à la fin de la proc ou fction .
la tranmission par adresse(X) une var est usée ds la procedur ou fction comme paramètre , on la précède par var, sa durée de vie débute avec l'appelle et meure à la fin de la proc ou fction ,elle prend l'adresse de la var appellante toute modification sur (X) implique une modification de (Y)
une var global est usée ds la déclaration du prog ou algo
bon courage.
merci.
adel_3n1
Messages postés
17
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
25 juin 2003
6 juin 2003 à 22:38
6 juin 2003 à 22:38
Bonsoir a vous;
Oui,Mr Bboudjeroua.Mohamed, votre règle et de façon générale,qui s’applique après
Appel a la procédure, mais moi ce que je cherche c’est avant appelle a la procédure
,c'est-à-dire aux niveaux de la procédure(local),la valeur en la retourne si en peut dire ça,
(pratiquement) en Fait l’affichage,a la fin juste de la procédure ,en déjouent cette règle regarde
est s.v.p répond moi :
Program p5 ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;z :real);
Begin
x:=x+1;
z:=z+1;
writeln(‘z=’,z) ; { vous voyez ici ?}
end;
begin
y:=2;
incrementer (y,2.0);
writeln (‘y=’,y);
end.
Résultat sur écran :
Y=3
Z=4.0 {je ne s’ais même pas quelle résultat est le 1er ou le 2emme, y ou z,(et si ce programme est juste ?)}
Oui,Mr Bboudjeroua.Mohamed, votre règle et de façon générale,qui s’applique après
Appel a la procédure, mais moi ce que je cherche c’est avant appelle a la procédure
,c'est-à-dire aux niveaux de la procédure(local),la valeur en la retourne si en peut dire ça,
(pratiquement) en Fait l’affichage,a la fin juste de la procédure ,en déjouent cette règle regarde
est s.v.p répond moi :
Program p5 ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;z :real);
Begin
x:=x+1;
z:=z+1;
writeln(‘z=’,z) ; { vous voyez ici ?}
end;
begin
y:=2;
incrementer (y,2.0);
writeln (‘y=’,y);
end.
Résultat sur écran :
Y=3
Z=4.0 {je ne s’ais même pas quelle résultat est le 1er ou le 2emme, y ou z,(et si ce programme est juste ?)}
boudjeroua
>
adel_3n1
Messages postés
17
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
25 juin 2003
7 juin 2003 à 20:34
7 juin 2003 à 20:34
salut adel,
d'après le résultat que tu dis avoir eu j'aimerai vous dire que le prog de ce résultat n'est pas valide car d'après le résultat le pg qui convient est le suivant :
Program p5 ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;z :real);
Begin
z:=z+1;
x:=z+1; {pour que le résultat soit =4}
writeln(‘y=’,z) ; { pour qu'il affiche Y en 1èr lieu}
end;
begin
y:=2;
incrementer (y,2.0);
writeln (‘z=’,y);
end.
et comme ça vous obtienderez le Résultat sur écran :
Y=3
Z=4.0
en tous les cas vérifier bien le pg que vous avez écrit et réecrit moi.
Bon courage.
Votre frère et amis,
merci.
d'après le résultat que tu dis avoir eu j'aimerai vous dire que le prog de ce résultat n'est pas valide car d'après le résultat le pg qui convient est le suivant :
Program p5 ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;z :real);
Begin
z:=z+1;
x:=z+1; {pour que le résultat soit =4}
writeln(‘y=’,z) ; { pour qu'il affiche Y en 1èr lieu}
end;
begin
y:=2;
incrementer (y,2.0);
writeln (‘z=’,y);
end.
et comme ça vous obtienderez le Résultat sur écran :
Y=3
Z=4.0
en tous les cas vérifier bien le pg que vous avez écrit et réecrit moi.
Bon courage.
Votre frère et amis,
merci.
adel_3n1
Messages postés
17
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
25 juin 2003
7 juin 2003 à 22:30
7 juin 2003 à 22:30
Merci,c’est bon enfin j’ai percer se mystère, notre prof nous a encore expliquer, en prenant notre temp , a assimiler ça compréhension en posant aussi des question,afin de faire au même temp. la révision a l’examen voici ce q’on a Appris ou fait,(le juste) :
Program p3 ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;z :real);
Begin
x:=x+1;
z:=z+1;
writeln(‘z=’,z) ;
end;
begin
y:=2;
incrementer (y,3.0);
writeln (‘y=’,y);
end.
Le résultat sur écran le voici :
Z=4 {en 1er lieu}
Y=3 {en 2eMme lieu}
Program p3- ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;var :real);
Begin
x:=x+1;
z:=z+1;
writeln(‘z=’,z) ;
end;
Begin
Y:=2; e :=5.0 ;
incrementer (y,e);
writeln (‘y=’,y,’e=’,e);
end.
Le résultat sur écran est le suivant :
Z=4.0
Y=3
Y=4.0
Est on a appris encore que dont le prog p3 si ont met writleln (‘z=’, y), dans le programme
Principale (quand ont fait appelle a la procédure), alors c’est faut, et si ont met var z toujours p3, en paramètre est en laisse writeln(‘z=’,z),c’est juste
Pour p3-, si ont met writeln(‘z=’,z) dans le programme principale c’est faux malgré,qu’il y’a var dans le paramètre,par ce que elle fait parties de la var local,voila l’essentielle que de ce j’ai apprie
Merci et Bonne journée.
Program p3 ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;z :real);
Begin
x:=x+1;
z:=z+1;
writeln(‘z=’,z) ;
end;
begin
y:=2;
incrementer (y,3.0);
writeln (‘y=’,y);
end.
Le résultat sur écran le voici :
Z=4 {en 1er lieu}
Y=3 {en 2eMme lieu}
Program p3- ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;var :real);
Begin
x:=x+1;
z:=z+1;
writeln(‘z=’,z) ;
end;
Begin
Y:=2; e :=5.0 ;
incrementer (y,e);
writeln (‘y=’,y,’e=’,e);
end.
Le résultat sur écran est le suivant :
Z=4.0
Y=3
Y=4.0
Est on a appris encore que dont le prog p3 si ont met writleln (‘z=’, y), dans le programme
Principale (quand ont fait appelle a la procédure), alors c’est faut, et si ont met var z toujours p3, en paramètre est en laisse writeln(‘z=’,z),c’est juste
Pour p3-, si ont met writeln(‘z=’,z) dans le programme principale c’est faux malgré,qu’il y’a var dans le paramètre,par ce que elle fait parties de la var local,voila l’essentielle que de ce j’ai apprie
Merci et Bonne journée.
pulsar
Messages postés
118
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
18 septembre 2014
4
7 juin 2003 à 23:55
7 juin 2003 à 23:55
Chapeau!
je n'y est vu que du feu!!
Les tirans se nourissent de la démission des hommes libres !
je n'y est vu que du feu!!
Les tirans se nourissent de la démission des hommes libres !
adel_3n1
Messages postés
17
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
25 juin 2003
8 juin 2003 à 00:20
8 juin 2003 à 00:20
Merci,mais il y’a une var globale e que j’ai oublier de la déclarer dans prog p3-
Ont met après var y :integer ; e :real ; {e c’est une var globale ajouter} commença en la placent Le programme sera complet
Ont met après var y :integer ; e :real ; {e c’est une var globale ajouter} commença en la placent Le programme sera complet
adel_3n1
Messages postés
17
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
25 juin 2003
8 juin 2003 à 23:34
8 juin 2003 à 23:34
Merci Monsieur Boudjeroua.Mohamed ; Correction d’une faute d’inattention : alors c’est x dans la deuxième Instruction du programme principale et n’ont pas z, pour p3 et p3-
Parce que quand j’ai copier ,coller,j’ai copier prog p5 ,l’encien,c’était le 1er,c’était z ,je ne l’es pas changer dans le message a envoyer,je m’excuse.
Le programme serait le suivant :
Program p3 ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;z :real);
Begin
x:=x+1;
z:=x+1;
writeln(‘z=’,z) ;
end;
begin
y:=2;
incrementer (y,3.0);
writeln (‘y=’,y);
end.
Le résultat sur écran le voici :
Z=4.0 {en 1er lieu}
Y=3 {en 2emme lieu}
Program p3- ;
Var
Y :integer ;e:real ;
Procedure incrementer (var x:integer ;var z :real);
Begin
x:=x+1;
z:=x+1;
writeln(‘z=’,z) ;
end;
Begin
Y:=2; e :=5.0 ;
incrementer (y,e);
writeln (‘y=’,y,’e=’,e);
end.
Le résultat sur écran est le suivant :
Z=4.0
Y=3
Y=4.0
Parce que quand j’ai copier ,coller,j’ai copier prog p5 ,l’encien,c’était le 1er,c’était z ,je ne l’es pas changer dans le message a envoyer,je m’excuse.
Le programme serait le suivant :
Program p3 ;
Var
Y :integer ;
Procedure incrementer (var x:integer ;z :real);
Begin
x:=x+1;
z:=x+1;
writeln(‘z=’,z) ;
end;
begin
y:=2;
incrementer (y,3.0);
writeln (‘y=’,y);
end.
Le résultat sur écran le voici :
Z=4.0 {en 1er lieu}
Y=3 {en 2emme lieu}
Program p3- ;
Var
Y :integer ;e:real ;
Procedure incrementer (var x:integer ;var z :real);
Begin
x:=x+1;
z:=x+1;
writeln(‘z=’,z) ;
end;
Begin
Y:=2; e :=5.0 ;
incrementer (y,e);
writeln (‘y=’,y,’e=’,e);
end.
Le résultat sur écran est le suivant :
Z=4.0
Y=3
Y=4.0
adel_3n1
Messages postés
17
Date d'inscription
vendredi 11 avril 2003
Statut
Membre
Dernière intervention
25 juin 2003
9 juin 2003 à 02:18
9 juin 2003 à 02:18
Le juste resultat de p3-
Z=4.0
Y=3
e=4.0
Z=4.0
Y=3
e=4.0
REMARQUE :
le probléme de la procedure resoulut il y'a 2 ans de ça,miantenant je suis devenus un pro. ,dans tous
le email adel_3n1@yahoo.fr ,c'est mon ancien email piraté
Program Matrice;
var E,T : array [1..4,1..5] of integer;
N,I,j:integer;
Begin
For i:=1 to 4 do
For J:=1 to 5 do
read ([I,J]);
N:=0 ;
For i:=1 to 4 do begin
for j:=1 to 5 do begin
if t[i,j]=0 then
n:=n+1;
end;end;
write ('le nombre nul est :', n);
max:=t[1,1] ;
for i:=1 to 4 do begin
for j:=1 to 5 do begin
if t[i,j]=0 then
n:=n+1;
end;end;
write (n);
max:=t[1,1];
for i:=1 to 4 do begin
for i:= 1 to 5 do begin
if max<t[i,i] then
max:=t[I,I] then
max:=t[I,I] end; end;
write (max);
k:=1;
for i:=1 to 4 do
for j:=1 to 5 do begin
E [i,j]:=k;
k:=k+1;
end;
s:=0;
for i:=1 to 4 do begin
for i:=1 to 5 do begin
T[I,J]:=T[I,J]+E[I,J];
write (t[i,j]);
end; writeln;
end; end.
program ville;
var
t1:array[1..2,1..4] of char;
n:integer; ville:char;
begin
n:=0;
for i:=1 to 2 do begin
for j:=1 to 4 do begin
read (t1[i,j]);
if (t1[i,j]);
if t1 [i,j]='A' then
n:=n+1;
end;
end;
write (n);
ville:=' ';
for j:=1 to 4 do
ville:=ville+t1[2,j];
writeln ('la chaine construite est : ',ville );
end.
program inversetableaux;
var
a:array [1..20] of integer;
c,i:integer;
begin
for i:=1 to 10 do
begin
Read A([i]);
end;
for i:=1 to 10 do
begin
C:=A[i];
A[i]:=A[20-i+1];
A[20-i+1]:=C;
end;
for i:=1 to 20 do
write (A[I]);
end;
end.
program max;
var
s,v,i,n:integer;
begin
write ('determinant de l'élément ');
readln (n);
if n=0 then begin
write ('fin du prog. ');
halt;exit;
readln;
end;
readln (v);
max:=v;
for i:=1 to n do
begin
readln (v);
if max<v then
max:=v;
end;
write (max);
end.
Program Val;
var
nbpos,nbnul,nbneg :integer;
begin
Nbpos:=0;Nbneg:=0;Nbnul:=0;
readln (n);
if n=0 then begin
write ('fin du program');
halt;exit;
and;
for i:=1 to n do
begin
readln(v);
if v> o then
nbpos:=n+1;
else if v=0 then
Nbnule:=Nbunule+1;
else
v< 0 then Nbneg:=Nbneg+1;
end;
writeln ('le nombre positif:',nbpos);
writeln ('le nombre negatif',Nbneg);
Writeln ('le nombre nul:',nul );
end.
program max;
var
T: array[1..12] of integer;
max,s,i :integer;
begin
for i:=1 to 12 do
read (T[i]);
s:=0;
for i:=1 to 12 do
begin
s:=s+T[i];
write (s);
writeln ('m[',i,']');
for i:=1 to 12 do
if max:=t[i] then
max:= t[i];
write (max);
and.
Program Deuxdimension;
var
M:array [1..4,1..4] of real ;
s:real;
s1,I,j, :integer;
begin
for i:= 1 to 4 do
for j:=1 to 4 do
read (M[i,j]);
s:=0.0;
for i:=1 to 4 do
for j:1 to 4 do
s1:=s1+M[I,J];
writeln ('la somme de ce tableau est :',s1);
min:=[1,1];
for i:=1 to 4 do
for j:=1 to 4 do
if min>m[i,j] then
min:=m[i,j];
write (min);
end.
François
le probléme de la procedure resoulut il y'a 2 ans de ça,miantenant je suis devenus un pro. ,dans tous
le email adel_3n1@yahoo.fr ,c'est mon ancien email piraté
Program Matrice;
var E,T : array [1..4,1..5] of integer;
N,I,j:integer;
Begin
For i:=1 to 4 do
For J:=1 to 5 do
read ([I,J]);
N:=0 ;
For i:=1 to 4 do begin
for j:=1 to 5 do begin
if t[i,j]=0 then
n:=n+1;
end;end;
write ('le nombre nul est :', n);
max:=t[1,1] ;
for i:=1 to 4 do begin
for j:=1 to 5 do begin
if t[i,j]=0 then
n:=n+1;
end;end;
write (n);
max:=t[1,1];
for i:=1 to 4 do begin
for i:= 1 to 5 do begin
if max<t[i,i] then
max:=t[I,I] then
max:=t[I,I] end; end;
write (max);
k:=1;
for i:=1 to 4 do
for j:=1 to 5 do begin
E [i,j]:=k;
k:=k+1;
end;
s:=0;
for i:=1 to 4 do begin
for i:=1 to 5 do begin
T[I,J]:=T[I,J]+E[I,J];
write (t[i,j]);
end; writeln;
end; end.
program ville;
var
t1:array[1..2,1..4] of char;
n:integer; ville:char;
begin
n:=0;
for i:=1 to 2 do begin
for j:=1 to 4 do begin
read (t1[i,j]);
if (t1[i,j]);
if t1 [i,j]='A' then
n:=n+1;
end;
end;
write (n);
ville:=' ';
for j:=1 to 4 do
ville:=ville+t1[2,j];
writeln ('la chaine construite est : ',ville );
end.
program inversetableaux;
var
a:array [1..20] of integer;
c,i:integer;
begin
for i:=1 to 10 do
begin
Read A([i]);
end;
for i:=1 to 10 do
begin
C:=A[i];
A[i]:=A[20-i+1];
A[20-i+1]:=C;
end;
for i:=1 to 20 do
write (A[I]);
end;
end.
program max;
var
s,v,i,n:integer;
begin
write ('determinant de l'élément ');
readln (n);
if n=0 then begin
write ('fin du prog. ');
halt;exit;
readln;
end;
readln (v);
max:=v;
for i:=1 to n do
begin
readln (v);
if max<v then
max:=v;
end;
write (max);
end.
Program Val;
var
nbpos,nbnul,nbneg :integer;
begin
Nbpos:=0;Nbneg:=0;Nbnul:=0;
readln (n);
if n=0 then begin
write ('fin du program');
halt;exit;
and;
for i:=1 to n do
begin
readln(v);
if v> o then
nbpos:=n+1;
else if v=0 then
Nbnule:=Nbunule+1;
else
v< 0 then Nbneg:=Nbneg+1;
end;
writeln ('le nombre positif:',nbpos);
writeln ('le nombre negatif',Nbneg);
Writeln ('le nombre nul:',nul );
end.
program max;
var
T: array[1..12] of integer;
max,s,i :integer;
begin
for i:=1 to 12 do
read (T[i]);
s:=0;
for i:=1 to 12 do
begin
s:=s+T[i];
write (s);
writeln ('m[',i,']');
for i:=1 to 12 do
if max:=t[i] then
max:= t[i];
write (max);
and.
Program Deuxdimension;
var
M:array [1..4,1..4] of real ;
s:real;
s1,I,j, :integer;
begin
for i:= 1 to 4 do
for j:=1 to 4 do
read (M[i,j]);
s:=0.0;
for i:=1 to 4 do
for j:1 to 4 do
s1:=s1+M[I,J];
writeln ('la somme de ce tableau est :',s1);
min:=[1,1];
for i:=1 to 4 do
for j:=1 to 4 do
if min>m[i,j] then
min:=m[i,j];
write (min);
end.
François
Ma revision :
Program recherche ;
const n:=10;
var
A :array [1..n]of integer ;
X,I:integer ;
Begin
Write ('donner la valueur de x');
readln (x);
For i:=1 to n do
Begin
if A[i]=x then
Begin
Write('l'element estbtrouvé :',x,'sa position:');
Halt; Exit;
Write ('element introuvable ');
end.
program tiage_a_bulle;
const N=10;
var
C,i,J:integer;
d:boolean;
t:array [1..n] of integer;
Begin
If d:=true then repeat
For i:= 1 to n do
For j:=j+1 to n do
Begin
if t[i]<t[j] then
c:=t[i];
t[i]:=t[j];
t[j]:=c;
end;
d=false;
utile d:=false;
writeln ('Le tableau est trié ');
writeln ('les element du tableau sont :');
for i:=1 to n do
writeln ('t[',i,']:',t [i]);
end.dera
or (301) 984-2206
Program recherche ;
const n:=10;
var
A :array [1..n]of integer ;
X,I:integer ;
Begin
Write ('donner la valueur de x');
readln (x);
For i:=1 to n do
Begin
if A[i]=x then
Begin
Write('l'element estbtrouvé :',x,'sa position:');
Halt; Exit;
Write ('element introuvable ');
end.
program tiage_a_bulle;
const N=10;
var
C,i,J:integer;
d:boolean;
t:array [1..n] of integer;
Begin
If d:=true then repeat
For i:= 1 to n do
For j:=j+1 to n do
Begin
if t[i]<t[j] then
c:=t[i];
t[i]:=t[j];
t[j]:=c;
end;
d=false;
utile d:=false;
writeln ('Le tableau est trié ');
writeln ('les element du tableau sont :');
for i:=1 to n do
writeln ('t[',i,']:',t [i]);
end.
SurnomAndré
Program recherche ;
const n:=10;
var
A :array [1..n]of integer ;
X,I:integer ;
Begin
Write ('donner la valueur de x');
readln (x);
For i:=1 to n do
Begin
if A[i]=x then
Begin
Write('l'element estbtrouvé :',x,'sa position:');
Halt; Exit;
Write ('element introuvable ');
end.
program tiage_a_bulle;
const N=10;
var
C,i,J:integer;
d:boolean;
t:array [1..n] of integer;
Begin
If d:=true then repeat
For i:= 1 to n do
For j:=j+1 to n do
Begin
if t[i]<t[j] then
c:=t[i];
t[i]:=t[j];
t[j]:=c;
end;
d=false;
utile d:=false;
writeln ('Le tableau est trié ');
writeln ('les element du tableau sont :');
for i:=1 to n do
writeln ('t[',i,']:',t [i]);
end.dera
or (301) 984-2206
Program recherche ;
const n:=10;
var
A :array [1..n]of integer ;
X,I:integer ;
Begin
Write ('donner la valueur de x');
readln (x);
For i:=1 to n do
Begin
if A[i]=x then
Begin
Write('l'element estbtrouvé :',x,'sa position:');
Halt; Exit;
Write ('element introuvable ');
end.
program tiage_a_bulle;
const N=10;
var
C,i,J:integer;
d:boolean;
t:array [1..n] of integer;
Begin
If d:=true then repeat
For i:= 1 to n do
For j:=j+1 to n do
Begin
if t[i]<t[j] then
c:=t[i];
t[i]:=t[j];
t[j]:=c;
end;
d=false;
utile d:=false;
writeln ('Le tableau est trié ');
writeln ('les element du tableau sont :');
for i:=1 to n do
writeln ('t[',i,']:',t [i]);
end.
SurnomAndré
8 juin 2003 à 11:03
Tes propos sont arrogants et méprisants !
Tu as été éduqué en France... tu as eu de la chance, c'est tout ! n'en oublie pas d'être gentil et généreux !!!
@12C4 ... In medio stat virtus ...
Ipl