hg S’enregistrer 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 Index du Forum

hg Revision tunisie scolaire 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 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 ...
bac info 2013
 
 
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet 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 713
Masculin
Point(s): 5 482
Moyenne de points: 0

Posté le: Sam 21 Jan - 21:10 (2017)    Sujet du message: bac info 2013 Répondre en citant

:ahlan:
  :ici:  http://www.sendspace.com/file/3yhgxx
bac info 2013
 


[u]Une proposition du correction du problème :[/u] 
Program pp;
Uses wincrt;
Type T_IP6=Record
                 IP4:String;
                 Classe:Char;
                 IP6:String;
     End;
     F_File=file Of T_IP6;    
    
Var F1:Text;
    F2:F_File;
Function Valide (Ch:String):Boolean;
Var W,X,Y,Z:Integer;
e: Integer;
Begin
             Val(copy(Ch,1,Pos('.',Ch)-1),W,e);
             Delete(Ch,1,Pos('.',Ch));
             Val(copy(Ch,1,Pos('.',Ch)-1),X,e);
             Delete(Ch,1,Pos('.',Ch));
             Val(copy(Ch,1,Pos('.',Ch)-1),Y,e);
             Delete(Ch,1,Pos('.',Ch));
             Val(Ch,Z,e);
                        If(((0<=W)AND(W<=255))AND((0<=X)AND(X<=255))AND((0<=Y)AND(Y<=255))AND((0<=Z)AND(Z<=255)))THEN Valide:=True
ELSE  Valide:=False;
End;
    Function Conv_Bin(N_Dec:Integer):String;
Var CH_Bin, CH_R:String;
R: Integer;
Begin
CH_Bin:='';
              Repeat
R:=N_Dec MOD 2;
STR(R, CH_R);
CH_Bin:=CH_R[1]+CH_Bin;
N_Dec:=N_Dec DIV 2;
    Until (N_Dec=0);
              Conv_Bin:=CH_Bin;  
End;


    Function Classe (W:Integer):Char;
Var CH_Bin:String;
         Begin
CH_Bin:=Conv_Bin(W);
IF CH_Bin[1]='0' Then Classe:='A'
                              Else If CH_Bin[2]='0' Then Classe:='B'
                                                    Else If CH_Bin[3]='0' Then Classe:='C'
                                                                          Else If CH_Bin[4]='0' Then Classe:='D'
                                                                                                Else  Classe:='E';








End;
    Function Conv_Hex(N_Dec:Integer):String;
Var CH_Hex, CH_R:String;
R: Integer;
Begin
CH_Hex:='';
        Repeat
R:=N_Dec MOD 16;
IF(R>9) THEN CH_R:=CHR(R+55)
ELSE STR(R, CH_R);
CH_Hex:=CH_R+CH_Hex;
N_Dec:=N_Dec DIV 16;
Until (N_Dec=0);


Conv_Hex:=CH_Hex;  
End;
    Function Conertir_IP (Ch:String):String;
Var  W,X,Y,Z: Integer;
            e:Integer;
Begin
Val(copy(Ch,1,Pos('.',Ch)-1),W,e);
Delete(Ch,1,Pos('.',Ch));
Val(copy(Ch,1,Pos('.',Ch)-1),X,e);
Delete(Ch,1,Pos('.',Ch));
Val(copy(Ch,1,Pos('.',Ch)-1),Y,e);
              Delete(Ch,1,Pos('.',Ch));
              Val(Ch,Z,e);




              Conertir_IP:=Conv_Hex(W)+Conv_Hex(X)+':'+Conv_Hex(Y)+Conv_Hex(Z);
End;
      Procedure Transfert(Var F1:Text;Var F2:F_File);
    Var IP:T_IP6;
        ch:string;
        W,e:Integer;
    Begin
        Reset(F1); Rewrite(F2);
        While not eof(F1) Do
        begin
            Readln(F1,ch);
            IF Valide(Ch) then Begin
                                    IP.IP4:=CH;
                                    Val(copy(Ch,1,Pos('.',Ch)-1),W,e);
                                    IP.Classe:=Classe (W);
                                    IP.IP6:=Conertir_IP (Ch);






                                End;


            Write(F2,IP);                               
        end;
        Close(F1);
        Close(F2);
    End;
{Proramme principal}
BEGIN
Assign(F1,'c:\F_IPV4.txt');
Assign(F2,'c:\F_IPV6.dat');
Transfert(F1,F2);


END.


 
Revenir en haut
Publicité






Posté le: Sam 21 Jan - 21:10 (2017)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
ferjaoui fethi


Hors ligne

Inscrit le: 03 Fév 2017
Messages: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posté le: Dim 26 Mar - 21:59 (2017)    Sujet du message: bac info 2013 Répondre en citant

merci a votre effort

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 12:17 (2018)    Sujet du message: bac info 2013

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet 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