Discussion :

[bebetoalvaro]

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.

[krachik]

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?

[bebetoalvaro]

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.

[krachik]

salut,
où se situe ton problème?
ce serait bien d'utiliser une structure d'enregistrement.......

[bebetoalvaro]

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

[krachik]

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];

[thewho]

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.

[bebetoalvaro]

tu peux developer j'ai pas compris ton idee de type enumeree

[bebetoalvaro]

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;

[macumba]

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;