Se connecter avec
S'enregistrer | Connectez-vous

Demande d'aide pour une bibliothèque

Dernière réponse : dans Programmation

Bonjour à tous,
je souhaite de l'aide pour la réalisation d'une bibliothèque.
Il m'est demandé de définir deux bibliothèques : la bibliothèque Entier_Naturel correspondant aux nombres entiers sans signe
ex : 123 456 789 -1 . Un blanc sépare chaque chiffre de la base mille et -1 termine la lecture.
et la bibliothèque Entier_Relatif qui correspond aux nombres signés.
La bibliotheque Entier_Naturel:
Structure des données:
enregistrement :
base : entier /*entier positif définissant la base de travail, içi 1000*/
coef : tableau des "chiffres (içi les composantes)" /*au les Max éléments entiers*/
nbre : entier /*il indique les chiffres nbre+1 à Max ne sont pas utilisés*/

Fonctions:
Lecture
Lecture_Fichier
Ecriture
Ecriture_Fichier
Addition
Soustraction
Multiplication
Division

La bibliothèque Entier_Relatif:
Structure des données:
enregistrement
signe : booleen (vrai si positif faux si négatif)
n : type_entier_naturel

Fonctions:
Lecture
Lecture_Fichier
Ecriture
Ecriture_Fichier
Addition
Soustraction
Multiplication
Division

Je sais pas trop comment m'y prendre, en bref je piétine.
Merçi d'avance.

Autres pages sur : demande aide bibliotheque

Lassé par la pub ? Créez un compte
Expert Programmation

Tu as déjà quelque chose à présenter ? Un bout de code, quelque chose ?

( Pour rappel : Interdiction de balancer un énoncé sans prétendre produire un minimum d'effort personnel. Interdiction de donner le moindre bout de code sans commancer par [code] et finir par [/ code] (sans l'espace) Toute chose que tu sais déjà puisque tu as lu le sujet "A lire avant de poster /!\" :o  C'est chiant hein !! :D  )

J'ai déjà commencer avec Lecture et Lecture_Fichier. J'ai pour l'instant écrit des petits programmes pour voir si ils marchent. Ensuite, je les transformeraient en procedure pour les inclure dans la bibliothèque.
  1. program Lecture;
    

  2.  
  3. var valeur : char;
    

  4.     nbre : integer;
    

  5.     coef : array [1..10] of char;
    

  6.     i : integer;
    

  7.  
  8. begin
    

  9.  nbre:=1;
    

  10.  i:=1;
    

  11.  writeln('entrer la valeur');
    

  12.  read(valeur); 
    

  13.  while valeur <> '.' do
    

  14.   begin
    

  15.   if valeur = ' ' then nbre:=nbre+1 else
    

  16.    begin
    

  17.    coef[i]:=valeur;
    

  18.    i:=i+1;
    

  19.    end;    
    

  20.    read(valeur);
    

  21.   end;
    

  22.  for i:=1 to 10 do
    

  23.  write(coef[i]);
    

  24.  writeln;
    

  25.  writeln (nbre);
    

  26. end.

Mon problème est qu'il détecte la fin avec le -1 et pas le . comme j'ai fait pour l'instant.

  1. program Lecture_Fichier;
    

  2.  
  3. var valeur : char;
    

  4.     nbre : integer;
    

  5.     coef : array [1..10] of char;
    

  6.     i : integer;
    

  7.     fic : file of char;
    

  8.     nomfichier : string;
    

  9.  
  10. begin
    

  11.  writeln('enter le nom de votre fichier de données');
    

  12.  read(nomfichier);
    

  13.  assign(fic, nomfichier);
    

  14.  reset(fic);
    

  15.  nbre:=1;
    

  16.  i:=1;
    

  17.  read(fic, valeur); 
    

  18.  while valeur <> '.' do
    

  19.   begin
    

  20.   if valeur = ' ' then nbre:=nbre+1 else
    

  21.    begin
    

  22.    coef[i]:=valeur;
    

  23.    i:=i+1;
    

  24.    end;    
    

  25.    read(valeur);
    

  26.   end;
    

  27.  for i:=1 to 10 do
    

  28.  write(coef[i]);
    

  29.  writeln;
    

  30.  writeln (nbre);
    

  31. end.

Ca compile mais ca ne prend pas les valeurs présentes dans le fichier.
Lassé par la pub ? Créez un compte

Créer un nouveau sujet