Devoir de contrôle pratique N°2

Voir le sujet précédent Voir le sujet suivant Aller en bas

Devoir de contrôle pratique N°2

Message par haiethem le Sam 23 Fév - 10:47

program kaprekar;
uses wincrt;
type tab = array[1..3] of integer;
var n:integer;
t:tab;




procedure saisir;
begin
repeat readln(n)
until (n >100)and(n<1000);
end;
procedure permut(var a,b:integer);
var z:integer;
begin
z:=a;
a:=b;
b:=z;
end;


procedure tri (var t:tab);
var i:integer;
p:boolean;
begin
repeat
p:=false;
for i:= 2 to 3 do
begin
if t[i]


Dernière édition par haiethem le Sam 23 Fév - 22:33, édité 1 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 415
Points : 15155
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Devoir de contrôle pratique N°2

Message par Mondher le Sam 23 Fév - 23:26

program devoir;
uses wincrt;
var
x:integer;
procedure saisir(var x:integer);
begin
repeat
writeln('entrer x');
readln(x);
until(x>=100) and (x<=999);
end;
procedure suite(x:integer);
var
ch,new,old,max,min,chmax,chmin:string;
i,m,e,mi,e1:integer;
r:boolean;
begin
repeat
str(x,ch);
old:=ch;
max:=ch[1];
min:=ch[1];
for i:=2 to length(ch) do
begin
if maxmax:=ch[i];
if min>ch[i] then
min:=ch[i];
end;
delete(ch,pos(max,ch),1);
delete(ch,pos(min,ch),1);
chmax:=max+ch+min;
chmin:=min+ch+max;
val(chmax,m,e);
val(chmin,mi,e1);
x:=m-mi;
str(x,new);
r:=true;
i:=1;
repeat
if(pos(new[i],old)=0)then
r:=false;
inc(i);
until(i>3)or(r=false);
until(r);
writeln(x);
end;
begin
saisir(x);
suite(x);
end.

Mondher

Messages : 57
Points : 9706
Réputation : 0
Date d'inscription : 24/09/2012
Age : 23
Localisation : Tunisie

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Devoir de contrôle pratique N°2

Message par Mondher le Dim 24 Fév - 23:26

program devoir;
uses wincrt;
var
x:integer;
procedure saisir(var x:integer);
begin
repeat
writeln('entrer x');
readln(x);
until(x>=100) and (x<=999);
end;
procedure suite(x:integer);
var
new,old:string;
u,d,c,s,sm,max,min,i,k:integer;
r:boolean;
begin
repeat
str(x,old);
c:=(x div 100) ;
d:=((x div 10) mod 10 );
u:=( x mod 10 );
k:=u+d+c;
max:= c;
for i:= 1 to 2 do
begin
if max < d then
begin
max:=d;
min:=u;
if max < u then
max:=u;
min:=d;
end
else
begin
if d>u then
begin
min:=u;
if u> c then
max:=u
else
max:=c;
end
else
begin
min:=d;
if d> c then
max:=d
else
max:=c;
end;
end;
end;
s:=max*100+(k-(max+min))*10+min;
sm:=min*100+(k-(max+min))*10+max;
x:=s-sm;
str(x,new);
r:=true;
i:=1;
repeat
if(pos(new[i],old)=0)then
r:=false;
inc(i);
until(i>3)or(r=false);
until(r);
writeln(x);
end;
begin
saisir(x);
suite(x);
end.
une autre methode; à corriger Very Happy !

Mondher

Messages : 57
Points : 9706
Réputation : 0
Date d'inscription : 24/09/2012
Age : 23
Localisation : Tunisie

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Devoir de contrôle pratique N°2

Message par haiethem le Lun 25 Fév - 10:58

J'ai pas compris ton idée !?

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 415
Points : 15155
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Devoir de contrôle pratique N°2

Message par Mondher le Lun 25 Fév - 12:51

j'ai, seulement , modifier la methode avec laquelle on cherche le max et le min d'un entier

Mondher

Messages : 57
Points : 9706
Réputation : 0
Date d'inscription : 24/09/2012
Age : 23
Localisation : Tunisie

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Devoir de contrôle pratique N°2

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum