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