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 ------> 14h30

 
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: Sam 26 Mai 2012 - 17:33    Sujet du message: correction bac pratique 2012 ------> 14h30 Répondre en citant

program rombinson;
uses wincrt;
var k:integer;
   f:text;

procedure saisie(var k:integer);

begin
repeat
writeln('donner k');
readln(k);
until k in [2..15];
end;

function frequence( ch:string):string;
var i,j,c:integer;
    ch1,ch2:string;
begin

i:=1;
ch1:='';
repeat
j:=i+1;
c:=1;
repeat
if ch[i]=ch[j] then
begin
c:=c+1;
j:=j+1;
end;
until (ch[i]<>ch[j]) or (j >length(ch));
str(c,ch2);
ch1:=ch1+ch2+ch[i];
i:=j;

until i>length(ch);
frequence:=ch1;
end;
procedure trier (var ch:string);
var n,i:integer;
    c:char;
    permut:boolean;
begin
n:=length(ch);
repeat
permut:=false;
n:=n-1;
for i:=1 to n do
begin
if ch[i]<ch[i+1] then
begin
c:=ch[i];
ch[i]:=ch[i+1];
ch[i+1]:=c;
permut:=true;
end;
end;
until not permut;
end;
procedure remplir (var f:text;k:integer);
var
   u,u0:string;
   i:integer;
begin
u:='0';

writeln(f,u);
for i:=1 to k do
begin
u0:=u;
trier(u0);
u:=frequence(u0);
writeln(f,u);
end;
end;

procedure affiche(var f:text;k:integer);
var ch:string;
    i:integer;
begin
reset(f);
for i:=1 to k+1 do
begin
readln(f,ch);
writeln(ch);
end;
end;
begin
assign(f,'h:\robinson.txt');
rewrite(f);
saisie(k);
remplir(f,k);
affiche(f,k);
end.
_______________________________________________________________________________________________________
la programmation est un art soyez les artistes


Revenir en haut
Publicité






MessagePosté le: Sam 26 Mai 2012 - 17:33    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
alias
2- Adhérants ATIS

Hors ligne

Inscrit le: 11 Oct 2008
Messages: 1 169
Emploi: Professeur
Localisation: Tunis
Lycée/collège: Bardo
Sexe: Féminin
Point(s): 785

MessagePosté le: Ven 24 Aoû 2012 - 12:10    Sujet du message: correction bac pratique 2012 ------> 14h30 Répondre en citant

Pouvez vous svp partager l'énonce de bac
_______________________________________________________________________________________________________
رحم الله عبدا قال خيرا فغنم أو سكت فسلم


Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 08:59    Sujet du message: correction bac pratique 2012 ------> 14h30

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