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 bac TP 2009 SI-Algorithmique et programmation
 
 
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
KARIMOS
Administrateur

Hors ligne

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

Posté le: Jeu 1 Oct - 12:56 (2009)    Sujet du message: Correction bac TP 2009 SI-Algorithmique et programmation Répondre en citant

PublicitéSupprimer les publicités ?
program sup_prem;
uses wincrt;
var n:longint;
    f:text;
procedure lecture (var n:longint);
begin
repeat
write(f,'Donner la valeur de N : '); {Ecriture dans le fichier}
write('Donner la valeur de N : ');
readln(n);
writeln(f,n);  {Ecriture dans le fichier}
writeln(f);
until(n>40000) and (N<100000);
{le compilateur peut se bloquer pour cette intervalle; si c'est le cas
  vous pouvez choisir une autre intervalle, [10,9999] par exemple}

end;
function premier(x:longint):boolean;
var i:longint;
    prem:boolean;
begin
i:=2;
prem:=true;while (prem=true)and(i<= x div 2) do
begin
                if x mod i<>0 then
                   i:=i+1
                   else
                   prem:=false;
end;
premier:=prem;
end;
function superprem (x :longint):boolean;
var suprem :boolean;
begin
repeat
suprem:=premier(x);
x:=x div 10;
until (suprem=false) or (x =0);
superprem:=suprem;
end;
procedure affichage(n:longint);
var  i:longint;
begin
for i:=1 to n do

if i<=3 then
begin
writeln(i,' est superpremier');
writeln(f,i,' est superpremier'); {Ecriture dans le fichier}
end
else
if premier(i) then
   begin
   write(i);
   write(f,i);{Ecriture dans le fichier}
   if superprem(i) then
   begin
      writeln(' est super premier');
      writeln(f,' est super premier');  {Ecriture dans le fichier}
   end
   else
   begin
      writeln;
      writeln(f); {Ecriture dans le fichier}
   end;
   end;


end;
begin
assign(f,'C:\bac2009\super_p.txt');
rewrite(f);
lecture(n);
affichage(n);
close(f);
end.


 
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: Jeu 29 Avr - 12:22 (2010)    Sujet du message: Correction bac TP 2009 SI-Algorithmique et programmation Répondre en citant



 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Dim 16 Mai - 18:19 (2010)    Sujet du message: Correction bac TP 2009 SI-Algorithmique et programmation Répondre en citant

Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
ghayth


Hors ligne

Inscrit le: 21 Mar 2009
Messages: 1
Point(s): 8
Moyenne de points: 0

Posté le: Lun 24 Mai - 17:17 (2010)    Sujet du message: Correction bac TP 2009 SI-Algorithmique et programmation Répondre en citant

Compilations ava mais l'excution ca marche pas

 
Revenir en haut
arine_samara


Hors ligne

Inscrit le: 01 Mai 2010
Messages: 13
Point(s): 13
Moyenne de points: 0

Posté le: Mer 26 Mai - 14:09 (2010)    Sujet du message: Correction bac TP 2009 SI-Algorithmique et programmation Répondre en citant


super premier c'est facile Smile j'espère que ca va etre facile comme ca demain le 2voir


 
Revenir en haut
safa_behi


Hors ligne

Inscrit le: 03 Mai 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Mer 26 Mai - 18:08 (2010)    Sujet du message: Correction bac TP 2009 SI-Algorithmique et programmation Répondre en citant

jé que deux bac patik est ce que qq peut m'envoyer le troisième 

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 11:27 (2016)    Sujet du message: Correction bac TP 2009 SI-Algorithmique et programmation

 
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