Pascal

Salut,

je veux une solution a mon programme
Ce n'est pas la volonté qui te manque, je vois :-))

mon programme est celui ci:
je veux un algorithme qui permet de codifier 1000 médicaments présentes sur 10 formes differentes et appartenant a 4 familles differentes

A mon avis, ce n'est qu'un malheureux malentendu.
Tu as vu ca sur la signature de blux :

"Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Ca ne t'était pas destiné, c'est juste sa signature.
Regarde dans ses messages, tu verras qu'il y a ce message à chaque fois.

Salut !

Les réponses à ce post ont été supprimées, car elles étaient dues à un malentendu, comme expliqué dans le post <9> ci-dessus (il s'agissait de la signature de Blux, et non d'un message destiné à l'auteur du post).

A+

C'est ça que tu veux? ou j'ai mal compris?!
1000 medicaments dont 100 par forme /divisé en 4 familles

forme01 => famA ( 1 à 25 )  ça donne 01A1 à 01A25   25
           famB ( 1 à 25 )  ça donne 01B1 à 01B25   25
           famC ( 1 à 25 )  ça donne 01C1 à 01C25   25
           famD ( 1 à 25 )  ça donne 01D1 à 01D25   25  = 100

forme02 => famA ( 1 à 25 )  ça donne 02A1 à 02A25   25 
           famB ( 1 à 25 )  ça donne 02B1 à 02B25   25
           famC ( 1 à 25 )  ça donne 02C1 à 02C25   25
           famD ( 1 à 25 )  ça donne 02D1 à 02D25   25  = 100
.
.
.

forme10 => famA ( 1 à 25 )  ça donne 10A1 à 10A25   25
           famB ( 1 à 25 )  ça donne 10B1 à 10B25   25
           famC ( 1 à 25 )  ça donne 10C1 à 10C25   25
           famD ( 1 à 25 )  ça donne 10D1 à 10D25   25  = 100
                                                          10 x 100 = 1000

un petit peut juste,
mais c'est pas ça

les detail:
on veux faire un code de 1000 medicaments,
de 10 formes(les medicaments),et 4 familles.

Ca tu l'as déjà dit dans ton premier message.

Plus d'informations seraient les bienvenues je pense.

a plus

ouai, plus de détails : sur les entrée, les sorties. et sur ce que tu veux faire. Qu'entend tu par codifier 1000 médicaments ?
Soit pas avare du clavier, tu n'en aura qu'une réponse plus précise et pertinante.

en entre on a:
un nom de medicament,ex: doliprane
de forme: comprimes
de familles:antibiotiques.
en sortie :il faut un code de se medicament

Je voi presque mieu.
et ce code, c'est quoi? il faut qu'il soit générer par le prog ? dans ce cas il suffit de faire un compteur, ou alors tu as une règle de création.
Ou alors il faut aller le chercher dans une base de donnée ? à ce moment c un autre type d'algorithme.

generer par le programme

Tu comptes continuer à donner les informations comme ça, au goutte-à-goutte, pendant longtemps ?
Je pense pas que ce soit la meilleure façon de recevoir de l'aide.

On s'en doute que la sortie est générée par le programme.

Tu devrais prendre plus de dix secondes pour rédiger un post, quitte à donner toutes les informations nécéssaires.

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.

quelqu'un pour m'aider

bebetoalvaro1@hotmail.com

fifi;
il faut que tu comprend ce programma est le mien ,si tu le copie:
je vais le savoir;et on aura un 00/20 dans le tp de si

program codification;
uses wincrt;
var i,j,v:integer;
l,name:array[1..20]of string[20];
fa,fo,va: string[30];
codier:string;
no:char;
code,famille,nom,forme,e,n:integer;
begin
i:=0;

write('donner le nombre de medicament a codifier: ');
read(n);

repeat
i:=i+1;
begin
write('nom: ');readln(no);
write('famille:');read(fa);
write('forme:');readln(fo);
readln(v);
str(v,va);
val(no,nom,e);
val(fa,famille,e);
val(fo,forme,e);
code:=nom+forme+famille;
str(code,codier);
l[i]:=fa+fo+va+codier;
for i:=1 to n do
name[i]:=no;
end;
until i>n-1;
for j:=1 to i do
writeln(name[i] ,' ',l[j]);

end.

Salut.
que fait la fonction val() ?
je trouve ça bizard d'additionner nom+forme+famille
par exemple, tu pourrai avoir 1+2+3 qui donnerai le même code que 3+2+1.
je te conseil plutôt :
nom+4*forme+4*10*famille
ou un truc dans le genre .

ecrire un programme pascal qui permet de saisir un entier naturel n(5<n<20)et n réels à mettre dans un tableau A puis calcule et affiche la moyenne arithmétique m des éléments de A et leur écart type S