pascal Résolu/Fermé

Question

bonjour;
je veux une solution a mon programme

lami20j · Answer

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

bebetoalvaro · Answer

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

Ssylvainsab · Answer

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.

Thom@s · Answer

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+

lami20j · Answer

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

bebetoalvaro · Answer

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

bebetoalvaro · Answer

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

Ssylvainsab · Answer

Ca tu l'as déjà dit dans ton premier message.

Plus d'informations seraient les bienvenues je pense.

a plus

Char Snipeur · Answer

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.

bebetoalvaro · Answer

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

Char Snipeur · Answer

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.

bebetoalvaro · Answer

generer  par le programme

Ssylvainsab · Answer

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.

bebetoalvaro · Answer

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.

bebetoalvaro · Answer

quelqu'un pour m'aider

bebetoalvaro · Answer

bebetoalvaro1@hotmail.com

bebetoalvaro · Answer

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

bebetoalvaro · Answer

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.

Char Snipeur · Answer

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 .

ouerghui saif allah · Answer

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

unis filter · Answer

salut

il y a borland pascal et turbo bascal qui se trouve sur ce site


des cours et des exercices sur ce site


http://www.bacpascal.fr.tc

ramy · Answer

ecrire un algorithme et un programme Pascal qui permet de calculer et afficher le surface et le perimetre d'un cercle.                        merci

boualemustapha · Answer

je veux télécharger gratuitement le PASCAL 7

atriplex · Answer

comment ecrire un programme permettant de calculer surface du trangle connassant les trois cotes.
S=(P(p-a)(p-b)(p-c))^1/2

Pascal

24 réponses

Discussions similaires