Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Pascal Discussion :

[Débutant] Besoin d'aide pour un exercice


Sujet :

Pascal

  1. #1
    Inactif
    [Débutant] Besoin d'aide pour un exercice
    Je vais vous citer le problème:
    Ecrire un programme qui permet de codifier 1000 médicaments présentés sous 10 formes différentes et appartenant à a 4 familles différentes.

  2. #2
    Expert confirmé
    Bonjour
    moi j'ai 2 questions:
    tu penses qu'on va faire ton exo à ta place?
    tu sais par ou commencer?
    tu sais quoi utiliser?
    c'est quel genre de donnés?
    Je suis ce que je suis grâce à ce que nous sommes tous Humanité aux Humains!! !

    Entre ce que je pense, ce que je veux dire, ce que je crois dire, ce que je dis ce que vous avez envie d'entendre, ce que vous croyez entendre, ce que vous entendez, ce que vous avez envie de comprendre, ce que vous comprenez ... Il y a dix possibilités que nous ayons des difficultés à communiquer. Mais essayons quand meme ....... E. Wells

  3. #3
    Inactif
    regarde
    jai essayer

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    program codification;
    uses wincrt;
    type interval=0..9;
    type intervale=0..3;
    var
    n,i,j:integer;
    forme:interval;
    famille:interval;
    nom:char;
    begin
    i:=0;
     
    write('donnez le nombre de medicament a codifier:');
    read(n);
     
    repeat
    i:=i+1;
    begin
    write('donner le nom de medicament: ');
    readln(nom);
    write('donner la famille du medicament: ');
    readln(famille);
    write('donner la forme du medicament: ');
    readln(forme);
    for j:=1 to n-1 do;
    writeln('le code du medicament:',0,famille,forme,j-1);
    end;
     
    until i>n-1;
    end.

  4. #4
    Inactif
    un probleme avec error 22
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    type code=record
         medicament:array[1..1000]of string;
         forme:array[1..10] of string;
         famille:array[1..4]string;
         end;


    le compilateur fais une erreur de structure too large

  5. #5
    Expert confirmé
    bonjour,
    l'erreur doit se situer au de
    medicament:array[1..1000]of string;
    parce qu'une chaine de caractere est trop long ,essaie de fixer la taille(longueur) du string que tu utilises exemple
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    medicament:array[1..1000]of string[5];
    Je suis ce que je suis grâce à ce que nous sommes tous Humanité aux Humains!! !

    Entre ce que je pense, ce que je veux dire, ce que je crois dire, ce que je dis ce que vous avez envie d'entendre, ce que vous croyez entendre, ce que vous entendez, ce que vous avez envie de comprendre, ce que vous comprenez ... Il y a dix possibilités que nous ayons des difficultés à communiquer. Mais essayons quand meme ....... E. Wells

  6. #6
    Expert confirmé
    salut,
    où se situe ton problème?
    ce serait bien d'utiliser une structure d'enregistrement.......
    Je suis ce que je suis grâce à ce que nous sommes tous Humanité aux Humains!! !

    Entre ce que je pense, ce que je veux dire, ce que je crois dire, ce que je dis ce que vous avez envie d'entendre, ce que vous croyez entendre, ce que vous entendez, ce que vous avez envie de comprendre, ce que vous comprenez ... Il y a dix possibilités que nous ayons des difficultés à communiquer. Mais essayons quand meme ....... E. Wells

  7. #7
    Membre éclairé
    Bonjour,

    Pourquoi n'avoir pas continué ton sujet précédent ?

    Plus important : ta structure ainsi définie ne correspond pas du tout à ce dont tu as besoin, qui est :

    * une structure définissant UN médicament, soit :
    - son nom,
    - sa forme,
    - sa famille

    * un tableau de cette structure, pour contenir les caractéristiques de 1000 médicaments.


    Pour les champs "forme" et "famille", le mieux est probablement de définir des types énumérés, avec éventuellement un moyen d'afficher en clair ces types, par exemple des tableaux de chaînes de caractères pointés par ces types.

    La balle est dans ton camp.
    Compilation sans erreur ne signifie pas programme sans erreur.
    L'indentation n'a pas été imaginée pour faire beau, mais pour faciliter la lecture des programmes.

  8. #8
    Inactif
    tu peux developer j'ai pas compris ton idee de type enumeree

  9. #9
    Inactif
    aider moi svp et merci
    je peux faire comme ça :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    writeln('donner la famille du medicament');
    readln(fa);
    val(fa,fam,e);
           case fam of
    c.famille[1]=antibiotique;
    c.famille[2]=antiseptique;
    c.famille[3]=antiinflammatoire;
    c.famille[4]=antispasmodique;

  10. #10
    Membre averti
    Il est sans doute trop tard pour ton exercice donc on peut donner la solution. Ce qu'essayait de t'indiquer themwho c'est que ta structure correspond à pas grand chose.
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    type code=record
         medicament:array[1..1000]of string;
         forme:array[1..10] of string;
         famille:array[1..4]string;
         end;


    Ce qu'on te demande, ressemblerait plus à .
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    type 
       // énumération des valeurs possibles pour la forme
       TForme = (sirop, gelule, suppositoire, pommade);
       // énumération des valeurs possibles pour la famille
       TFamille = (antibiotique, analgésique...);
       // un medicament a pour caractéristique un nom, une forme 
       // et appartient à une famille
       TMedicament=record
         nom :string;
         forme :TForme;
         famille :TFamille;
       end;
      // on peut stocker 1000 médicaments
      tabmedicament : array[1..1000] of TMedicament;