Pascal

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

je veux télécharger gratuitement le PASCAL 7

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

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

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

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 .

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.

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

bebetoalvaro1@hotmail.com

quelqu'un pour m'aider

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.

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.

generer par le programme

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.

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

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.

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

Plus d'informations seraient les bienvenues je pense.

a plus

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

un petit peut juste,
mais c'est pas ç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