Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 Devoir de Contrôle N°5 (partie théorique)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Devoir de Contrôle N°5 (partie théorique)   Lun 7 Mai - 19:37

On se propose d'analyser le problème qui saisit n nombre octal (base 8) dans un tableau T1 avev 2<= n<=20. Puis remplit un tableau T2 avec des nombres obtenus en faisant la conversion de chaque nombre octal en son équivalent binaire (base2)

1) analyser le problème en le décomposant en modules
2) Analyser chaque module utilisé
3) En déduire l'algorithme correspondant au programme principal ainsi que les algorithmes des modules envisagés.

Auteur: Mme Zgolli Nouhed
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Devoir de Contrôle N°5 (partie théorique)   Mer 9 Mai - 10:22

salut mes amis

SVP est ce que je peux avoir des solution pour cet exercice pour les comarés avec avec mon travail?

merci d'avance cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

Nombre de messages : 731
Age : 27
Date d'inscription : 17/01/2007

MessageSujet: Re: Devoir de Contrôle N°5 (partie théorique)   Mer 9 Mai - 14:35

Code:
(* conversion de la base 8 à la base 10 *)
function OctToDec(oct : string):integer;
var i, v : integer;
begin
  v := 0;
  for i:=1 to length(oct) do begin
    v := v shl 3 + Ord(oct[i]) - 48;
  end; 
  OctToDec := v; 
end;

Voici le code de la convertion de la base octale vers la base décimale, il te reste à parcourir le tableau T1 comme suit :
Code:
T2[i] := OctToDec(T1[i]);
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Devoir de Contrôle N°5 (partie théorique)   Mer 9 Mai - 14:45

chakerbh a écrit:
Code:
(* conversion de la base 8 à la base 10 *)
function OctToDec(oct : string):integer;
var i, v : integer;
begin
  v := 0;
  for i:=1 to length(oct) do begin
    v := v shl 3 + Ord(oct[i]) - 48;
  end; 
  OctToDec := v; 
end;

Voici le code de la convertion de la base octale vers la base décimale, il te reste à parcourir le tableau T1 comme suit :
Code:
T2[i] := OctToDec(T1[i]);


Merci chaker
mais elle demande de convertir les nombres octals en binaire

en tout cas merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

Nombre de messages : 731
Age : 27
Date d'inscription : 17/01/2007

MessageSujet: Re: Devoir de Contrôle N°5 (partie théorique)   Mer 9 Mai - 21:00

ahh, je n'ai pas fait attention
donc tu n'as qu'à faire une fonction OctToBin que tu pourras trouver dans ce sujet.
puis tu parcours le tableau comme suit :
Code:
T2[i]:=OctToBin(T1[i]);
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: Devoir de Contrôle N°5 (partie théorique)   Mer 9 Mai - 21:26

merci chaker
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

Nombre de messages : 731
Age : 27
Date d'inscription : 17/01/2007

MessageSujet: Re: Devoir de Contrôle N°5 (partie théorique)   Mer 9 Mai - 22:13

De rien Mohamed
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Devoir de Contrôle N°5 (partie théorique)   

Revenir en haut Aller en bas
 
Devoir de Contrôle N°5 (partie théorique)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Quelle partie de votre cerveau utilisez-vous ?
» Affichier une infobulle au pointage d'un contrôle
» Démarrage rapide-Etape5:Contrôle automatique des trains
» Lien vers une partie de texte dans la même page
» Modifier la partie "Nouveaux messages" etc...

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: