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

Version imprimable

18/01/2007, 13h24
bebetoalvaro

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

Je vais vous citer le problème:

Citation:

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.

:oops:
18/01/2007, 13h44
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?
:mouarf:

regarde

jai essayer :mrgreen:

Code:

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.

un probleme avec error 22

Code:

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

18/01/2007, 23h53
krachik

bonjour,
l'erreur doit se situer au de

Citation:

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:

medicament:array[1..1000]of string[5];
18/01/2007, 23h56
krachik

salut,
où se situe ton problème?
ce serait bien d'utiliser une structure d'enregistrement.......
19/01/2007, 00h26
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.
19/01/2007, 11h06
bebetoalvaro

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

aider moi svp et merci

je peux faire comme ça :

Code:

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;

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:

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:

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;