Corriger l'exercice
Fermé
kadourhb
Messages postés
5
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
30 avril 2009
-
30 avril 2009 à 10:11
kadourhb Messages postés 5 Date d'inscription jeudi 30 avril 2009 Statut Membre Dernière intervention 30 avril 2009 - 30 avril 2009 à 12:25
kadourhb Messages postés 5 Date d'inscription jeudi 30 avril 2009 Statut Membre Dernière intervention 30 avril 2009 - 30 avril 2009 à 12:25
A voir également:
- Corriger l'exercice
- Comment corriger l'erreur 0x80070643 ? - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Tableau numérique exercice et corrigé - Forum Programmation
- Exercice word gratuit avec corrigé - Forum Word
- Comment corriger un pdf - Guide
7 réponses
loocla
Messages postés
180
Date d'inscription
vendredi 24 avril 2009
Statut
Membre
Dernière intervention
18 juin 2009
18
30 avril 2009 à 10:18
30 avril 2009 à 10:18
Tu dis meme pas quel langage il faut utiliser..
kadourhb
Messages postés
5
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
30 avril 2009
30 avril 2009 à 10:32
30 avril 2009 à 10:32
bien sur le program c'est pascal 7
loocla
Messages postés
180
Date d'inscription
vendredi 24 avril 2009
Statut
Membre
Dernière intervention
18 juin 2009
18
30 avril 2009 à 10:35
30 avril 2009 à 10:35
Je m'y connais pas trop en pascal mais pour les nombres paires et imapaires fais un truc comme ca :
if(a%2 == 0) // pair
else // impair
if(a%2 == 0) // pair
else // impair
kadourhb
Messages postés
5
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
30 avril 2009
30 avril 2009 à 11:01
30 avril 2009 à 11:01
les nombre pairs et impairs sa marche
program par;
type tab=array[1..50]of integer;
var t,tp,ti:tab;
g,i,n,k:integer; b:boolean;
Procedure pair(t:tab;n:integer;var tp:tab);
var l,k,x,i:integer;
Begin
l:=1;
For i: =1 to n do
Begin
x:=t[i]; if x mod 2=0 then
begin
tp[l]:=x;
l:=l+1;
k:=l-1;
end;
end;
for i:=1 to k do write ('[',tp[i],']');
end;
procedure impaire(t:tab;n:integer;var ti:tab);
var j,g,x,i:integer;
begin
j:=1; for i:=1 to n do
begin
x:=t[i]; if x mod 2<>0 then
begin
ti[j]:=x;
j:=j+1;
g:=j-1;
end;
end;
for i:=1 to g do
write ('[',ti[i],']');
end;
begin
write('la dimension de tab = ');
read(n);
writeln('donner les valeurs de tableau : ');
for i:=1 to n do
Begin
write ('t[',i,']=');
read (t[i]);
End;
writeln (' les nombres paires : ');
pair (t,n,tp);
Writeln;
Writeln ('les nombres impairs : ');
Impaire (t,n,ti); writeln; readln;readln; end. mais il ya un problem dans le max min ordre croissant parf prem regarde le program ne écrit pas par fonction ou procédure mais ecrit normal {program exo; const n=4; var x:array[1..n] of integer; a,i,j,t,s,max,min:integer; begin for i:= 1 to n do begin write('x[',i,']='); readln(x[i]); end; for i:=1 to n do begin write(x[i],' '); writeln; end; for j:=1 to n do for i:=1 to n+1 do for j:=1+i to n do
if x[i] >= x[j] then
begin
t:= x[j];
x[j]:=x[i]; x[i]:=t;
end;
write('le triage= ');
for i: = 1 to n do write(x[i], ' ');
max := x[n];
writeln;
write('le maximum ', max); min := x[1];
writeln;
write ('le minimum ', min);
readln;
end.}
svp écrire le program precedent en procédure max min ordre croissant parf prem
program par;
type tab=array[1..50]of integer;
var t,tp,ti:tab;
g,i,n,k:integer; b:boolean;
Procedure pair(t:tab;n:integer;var tp:tab);
var l,k,x,i:integer;
Begin
l:=1;
For i: =1 to n do
Begin
x:=t[i]; if x mod 2=0 then
begin
tp[l]:=x;
l:=l+1;
k:=l-1;
end;
end;
for i:=1 to k do write ('[',tp[i],']');
end;
procedure impaire(t:tab;n:integer;var ti:tab);
var j,g,x,i:integer;
begin
j:=1; for i:=1 to n do
begin
x:=t[i]; if x mod 2<>0 then
begin
ti[j]:=x;
j:=j+1;
g:=j-1;
end;
end;
for i:=1 to g do
write ('[',ti[i],']');
end;
begin
write('la dimension de tab = ');
read(n);
writeln('donner les valeurs de tableau : ');
for i:=1 to n do
Begin
write ('t[',i,']=');
read (t[i]);
End;
writeln (' les nombres paires : ');
pair (t,n,tp);
Writeln;
Writeln ('les nombres impairs : ');
Impaire (t,n,ti); writeln; readln;readln; end. mais il ya un problem dans le max min ordre croissant parf prem regarde le program ne écrit pas par fonction ou procédure mais ecrit normal {program exo; const n=4; var x:array[1..n] of integer; a,i,j,t,s,max,min:integer; begin for i:= 1 to n do begin write('x[',i,']='); readln(x[i]); end; for i:=1 to n do begin write(x[i],' '); writeln; end; for j:=1 to n do for i:=1 to n+1 do for j:=1+i to n do
if x[i] >= x[j] then
begin
t:= x[j];
x[j]:=x[i]; x[i]:=t;
end;
write('le triage= ');
for i: = 1 to n do write(x[i], ' ');
max := x[n];
writeln;
write('le maximum ', max); min := x[1];
writeln;
write ('le minimum ', min);
readln;
end.}
svp écrire le program precedent en procédure max min ordre croissant parf prem
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
loocla
Messages postés
180
Date d'inscription
vendredi 24 avril 2009
Statut
Membre
Dernière intervention
18 juin 2009
18
30 avril 2009 à 11:02
30 avril 2009 à 11:02
Je pense pas que grand monde comprenne ca :
"svp écrire le program precedent en procédure max min ordre croissant parf prem"
"svp écrire le program precedent en procédure max min ordre croissant parf prem"
kadourhb
Messages postés
5
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
30 avril 2009
30 avril 2009 à 11:09
30 avril 2009 à 11:09
loocla, le jeudi 30 avril 2009 à 11:02:25
Je pense pas que grand monde comprenne ca :
"svp écrire le program precedent en procédure max min ordre croissant parf prem"
je ne compris pas
Je pense pas que grand monde comprenne ca :
"svp écrire le program precedent en procédure max min ordre croissant parf prem"
je ne compris pas
kadourhb
Messages postés
5
Date d'inscription
jeudi 30 avril 2009
Statut
Membre
Dernière intervention
30 avril 2009
30 avril 2009 à 12:25
30 avril 2009 à 12:25
svp aidez moi
