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 problème bac2012

 
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 THEORIQUE 2012
Sujet précédent :: Sujet suivant  
Auteur Message
ezzeddine
6- Professeur

Hors ligne

Inscrit le: 18 Oct 2008
Messages: 16
Emploi: Professeur
Localisation: Tunis
Lycée/collège: Mnihla
Sexe: Masculin
Point(s): 27

MessagePosté le: Jeu 7 Juin 2012 - 13:52    Sujet du message: correction problème bac2012 Répondre en citant

program problemebac2012;
uses wincrt;
type enreg=record
                 lettre:char;
                 codage:string[6];
     end;
     fiche=file of enreg;
var f:fiche;ft:text;
{Le candidat n'est pas appelé à écrire cette procédure dans sa réponse }
procedure codes_braille(var f:fiche);
var i:char;e:enreg;
begin
rewrite(f);
for i:='A' to 'Z' do
begin
   case i of
   'A':e.codage:='*_____';
   'B':e.codage:='**____';
   'C':e.codage:='*__*__';
   'D':e.codage:='*__**_';
   'E':e.codage:='*___*_';
   'F':e.codage:='**_*__';
   'G':e.codage:='**_**_';
   'H':e.codage:='**__*_';
   'I':e.codage:='_*_*__';
   'J':e.codage:='_*_**_';
   'K':e.codage:='*_*___';
   'L':e.codage:='***___';
   'M':e.codage:='*_**__';
   'N':e.codage:='*_***_';
   'O':e.codage:='*_*_*_';
   'P':e.codage:='****__';
   'Q':e.codage:='*****_';
   'R':e.codage:='***_*_';
   'S':e.codage:='_***__';
   'T':e.codage:='_****_';
   'U':e.codage:='*_*__*';
   'V':e.codage:='***__*';
   'W':e.codage:='_*_***';
   'X':e.codage:='*_**_*';
   'Y':e.codage:='*_****';
   'Z':e.codage:='*_*_**';
   end;
   e.lettre:=i;
   write(f,e);
end;
close(f);
end;
function equivalent(var f:fiche;ch:string):char;
var  e:enreg;ok:boolean;
begin
  reset(f);ok:=false;
  while (not eof(f)) and (ok=false) do
  begin
      read(f,e);
      if (e.codage)=ch then
      begin
          ok:=true;
          equivalent:=e.lettre;
      end;
     
  end;
 close(f);
end;
procedure affiche(var ft:text);
var ch1,ch,ch2,res:string;
begin
 reset(ft); res:='';
 while not eof(ft) do
 begin
  readln(ft,ch);
  ch1:='';
  repeat
   ch2:=copy(ch,1,6);
   delete(ch,1,6);
   ch1:=ch1+equivalent(f,ch2);
  until length(ch)=0;
 res:=res+ch1+' ';
 end;
 writeln(res);
 close(ft);
 end;

begin
assign(f,'c:\codes.dat');
assign(ft,'c:\braille.txt');
codes_braille(f);
affiche(ft);
end.
{NB: pour avoir le même résultat, le fichier braille.txt doit être rempli par le même exemple de l'examen}


Revenir en haut
Publicité






MessagePosté le: Jeu 7 Juin 2012 - 13:52    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
foufou
6- Professeur

Hors ligne

Inscrit le: 04 Juin 2009
Messages: 17
Emploi: Professeur
Localisation: Gafsa
Lycée/collège: amal
Sexe: Masculin
Point(s): 12

MessagePosté le: Lun 11 Juin 2012 - 15:00    Sujet du message: correction problème bac2012 Répondre en citant

je m'excuse pour le dérangement mais si les mots du fichiers braille.txt forme une suite de caractères dépassant 255 donc la concaténation dans une chaîne ch n'est pas la bonne solution car dans l'énoncé non pas préciser le nombre de ligne du fichier braille.txt et puisque l'élève ne va pas supposé que le texte codé est une chaîne. merci d'avance.

ch1:=ch1+equivalent(f,ch2);
  until length(ch)=0;
 res:=res+ch1+' ';
 end;
 writeln(res);


Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 08:57    Sujet du message: correction problème bac2012

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 THEORIQUE 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