Association Tunisienne pour l'Informatique Scolaire Index du Forum

Association Tunisienne pour l'Informatique Scolaire
BACCALAUREAT INFORMATIQUE et CAPES INFORMATIQUE

 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

correction bac pratique 2012 10h30---->12h

 
Poster un nouveau sujet   Répondre au sujet    Association Tunisienne pour l'Informatique Scolaire Index du Forum -> Bac Sciences de l'Informatique -> BAC 2008 - 2009 - 2010 - 2011 - 2012 -> BAC PRATIQUE 2012
Sujet précédent :: Sujet suivant  
Auteur Message
club_africain
7- Membre

Hors ligne

Inscrit le: 30 Sep 2011
Messages: 5
Emploi: Professeur
Localisation: Mannouba
Lycée/collège: route chouigui
Point(s): 0

MessagePosté le: Ven 25 Mai 2012 - 01:30    Sujet du message: correction bac pratique 2012 10h30---->12h Répondre en citant

program premcirc;
uses wincrt;
type fiche= file of integer;
var p,q,a:integer;
    f:fiche;
procedure saisie(var p,q:integer);

begin
repeat
writeln('donner la valeur de premiere borne');
readln(p);
writeln('donner la valeur deuxième borne');
readln(q);
until (10<p) and (p<q) and (q<20000);
end;

function premier(a:integer):boolean;
 var ok:boolean;
     i:integer;
begin
i:=2;
ok:=true;
repeat
if a mod i=0 then ok:=false
else i:=i+1;
until (not ok) or (i>a div 2);
premier:=ok;
end;
function verif(a:integer):boolean;
var ok:boolean;
    i,e:integer;
    c:char;
    ch:string;
begin
ok:=true;
i:=0;
str(a,ch);
repeat
i:=i+1;
if not premier(a) then ok:=false
else
begin
c:=ch[length(ch)];
delete(ch,length(ch),1);
ch:=c+ch;
val(ch,a,e);
end;
until (not ok) or (i=length(ch));
verif:=ok;
end;


procedure remplir(var f:fiche;p,q:integer);
var i:integer;
begin
for i:=p to q do
if verif(i) then write(f,i);
end;
procedure affiche(var f:fiche);
var a:integer;
begin
reset(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;

end;
begin

saisie(p,q);
assign(f,'c:\circul.dat');
rewrite(f);

remplir(f,p,q);
affiche(f);
end.

 
_______________________________________________________________________________________________________
la programmation est un art soyez les artistes


Revenir en haut
Publicité






MessagePosté le: Ven 25 Mai 2012 - 01:30    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
club_africain
7- Membre

Hors ligne

Inscrit le: 30 Sep 2011
Messages: 5
Emploi: Professeur
Localisation: Mannouba
Lycée/collège: route chouigui
Point(s): 0

MessagePosté le: Ven 25 Mai 2012 - 01:32    Sujet du message: correction bac pratique 2012 10h30---->12h Répondre en citant

bon courage pour le bac théorique
_______________________________________________________________________________________________________
la programmation est un art soyez les artistes


Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 08:57    Sujet du message: correction bac pratique 2012 10h30---->12h

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Association Tunisienne pour l'Informatique Scolaire Index du Forum -> Bac Sciences de l'Informatique -> BAC 2008 - 2009 - 2010 - 2011 - 2012 -> BAC PRATIQUE 2012 Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com