hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , 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
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Thu 1 Oct - 12:56 (2009)    Post subject: Correction bac TP 2009 SI-Algorithmique et programmation Reply with quote

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
Publicité






Posted: Thu 1 Oct - 12:56 (2009)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Thu 29 Apr - 12:22 (2010)    Post subject: Correction bac TP 2009 SI-Algorithmique et programmation Reply with quote



 
Revenir en haut
r.nsiri
recent membre
recent membre

Offline

Joined: 09 Jan 2009
Posts: 231
Masculin
Point(s): 273
Moyenne de points: 0

Posted: Sun 16 May - 18:19 (2010)    Post subject: Correction bac TP 2009 SI-Algorithmique et programmation Reply with quote

Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
ghayth


Offline

Joined: 21 Mar 2009
Posts: 1
Point(s): 8
Moyenne de points: 0

Posted: Mon 24 May - 17:17 (2010)    Post subject: Correction bac TP 2009 SI-Algorithmique et programmation Reply with quote

Compilations ava mais l'excution ca marche pas

 
Revenir en haut
arine_samara


Offline

Joined: 01 May 2010
Posts: 11
Point(s): 11
Moyenne de points: 0

Posted: Wed 26 May - 14:09 (2010)    Post subject: Correction bac TP 2009 SI-Algorithmique et programmation Reply with quote


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


 
Revenir en haut
safa_behi


Offline

Joined: 03 May 2010
Posts: 1
Point(s): 1
Moyenne de points: 0

Posted: Wed 26 May - 18:08 (2010)    Post subject: Correction bac TP 2009 SI-Algorithmique et programmation Reply with quote

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

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Cookies | Charte | Conditions générales d'utilisation