hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Correction du devoir pratique BAC 2009 :
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
kimo
recent membre
recent membre

Hors ligne

Inscrit le: 21 Nov 2008
Messages: 45
Masculin
Point(s): 426
Moyenne de points: 0

Posté le: Lun 2 Nov - 08:13 (2009)    Sujet du message: Correction du devoir pratique BAC 2009 : Répondre en citant

PublicitéSupprimer les publicités ?
program test;
uses wincrt;
var
u0,u1,i,v:longint;
t:text;
procedure saisie(var n:longint);
begin
repeat
readln(n);
until (n>=1000)and (n<=9999);
end;
procedure permut(var x,y:char);
var z:char;
begin
z:=x;
x:=y;
y:=z;
end;
function max(n:integer):integer;
var ch:string;
i,j,e:integer;
begin
str(n,ch);
for i:=1 to length(ch)-1 do
for j:=1to length(ch)-i do
if ch[j]<ch[j+1] then permut(ch[j],ch[j+1]);
val(ch,n,e);
max:=n;
end;
function min(n:integer):integer;
var ch:string;
i,j,e:integer;
begin
str(n,ch);
for i:=1 to length(ch)-1 do
for j:=1to length(ch)-i do
if ch[j]>ch[j+1] then permut(ch[j],ch[j+1]);
val(ch,n,e);
min:=n;
end;

procedure creation(var t:text);
begin
assign(t,'c:\suite.txt');
rewrite(t);
end;

{program principal}
begin
saisie(u0);
creation(t);
writeln(u0);
writeln(t,u0);
repeat
v:=u0;
u1:=max(u0)-min(u0);
u0:=u1;
write(u1,'|') ;
writeln(t,u1);
until v-u1=0;

close(t);
end.


 
Revenir en haut
bbh


Hors ligne

Inscrit le: 25 Nov 2008
Messages: 18
Masculin
Point(s): 48
Moyenne de points: 0

Posté le: Lun 2 Nov - 16:00 (2009)    Sujet du message: Correction du devoir pratique BAC 2009 : Répondre en citant

Okay merci pour le partage

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:29 (2016)    Sujet du message: Correction du devoir pratique BAC 2009 :

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation