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:15 (2009)    Sujet du message: Correction du devoir pratique BAC 2009 : Répondre en citant

PublicitéSupprimer les publicités ?
program test;
uses wincrt;
var
i,n:longint;
t:text;
procedure saisie(var n:longint);
begin
repeat
readln(n);
until (n>40000)and (n<100000);
end;
function premier(x:longint):boolean;
var
t:boolean;
i:longint;
begin
i:=2;
repeat
if (x mod i) =0 then t:=false;
i:=i+1;
until (t=false) or (i>x div 2);
premier:=t;
end;
function super(x:longint):boolean;
var
ch :string; e:integer;
begin
str(x,ch);
while premier(x) and(length(ch)>0)do
begin
str(x,ch);
delete(ch,length(ch),1);
if ch<>'' then
val(ch,x,e);
end;
if ch <>'' then super:=false else super:=true;
end;
procedure creation(var t:text);
begin
assign(t,'c:\super_p.txt');
rewrite(t);
end;

{program principal}
begin
saisie(n);
creation(t);
for i:=1 to n do
begin
if premier(i) then
begin
write(i);
write(t,i);
end;
if super(i) then
begin
writeln('super premier');
write(t,'super premier');
end;
writeln(t);
writeln;

end;
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 - 15:59 (2009)    Sujet du message: Correction du devoir pratique BAC 2009 : Répondre en citant

Okay merci pour le partage

 
Revenir en haut
slim012


Hors ligne

Inscrit le: 21 Avr 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Mer 21 Avr - 20:39 (2010)    Sujet du message: Correction du devoir pratique BAC 2009 : Répondre en citant

mercii Mais il faut travaillé Avec decalage Smile

 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 6 Juil - 23:29 (2010)    Sujet du message: Correction du devoir pratique BAC 2009 : Répondre en citant

Okay Okay Okay Okay Okay Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:27 (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