FORUM Tom's Hardware » Programmation » Delphi / Pascal » Demande d'aide pour une bibliothèque
 

Demande d'aide pour une bibliothèque

Il y a 391 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Demande d'aide pour une bibliothèque
 

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.

zeb
Profil : Modérateur libre
Plus d'informations

Ben peut être mais en quel langage ?

Exact, excuse moi.
Je dois le programmer en pascal.
J'utilise windows comme système d'exploitation et Dev-Pascal 1.9.2 comme compilateur.

zeb
Profil : Modérateur libre
Plus d'informations

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.

Code :
  1. program Lecture;
  2. var valeur : char;
  3.     nbre : integer;
  4.     coef : array [1..10] of char;
  5.     i : integer;
  6.        
  7. begin
  8. nbre:=1;
  9. i:=1;
  10. writeln('entrer la valeur');
  11. read(valeur);
  12. while valeur <> '.' do
  13.   begin
  14.   if valeur = ' ' then nbre:=nbre+1 else
  15.    begin
  16.    coef[i]:=valeur;
  17.    i:=i+1;
  18.    end;   
  19.    read(valeur);
  20.   end;
  21. for i:=1 to 10 do
  22. write(coef[i]);
  23. writeln;
  24. writeln (nbre);
  25. end.


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

Code :
  1. program Lecture_Fichier;
  2. var valeur : char;
  3.     nbre : integer;
  4.     coef : array [1..10] of char;
  5.     i : integer;
  6.     fic : file of char;
  7.     nomfichier : string;
  8.        
  9. begin
  10. writeln('enter le nom de votre fichier de données');
  11. read(nomfichier);
  12. assign(fic, nomfichier);
  13. reset(fic);
  14. nbre:=1;
  15. i:=1;
  16. read(fic, valeur);
  17. while valeur <> '.' do
  18.   begin
  19.   if valeur = ' ' then nbre:=nbre+1 else
  20.    begin
  21.    coef[i]:=valeur;
  22.    i:=i+1;
  23.    end;   
  24.    read(valeur);
  25.   end;
  26. for i:=1 to 10 do
  27. write(coef[i]);
  28. writeln;
  29. writeln (nbre);
  30. end.


Ca compile mais ca ne prend pas les valeurs présentes dans le fichier.


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » Delphi / Pascal » Demande d'aide pour une bibliothèque
 

Annonces Google
Publicité
Les téléchargements