Programmation pascal

anouz2001 -  
KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,
comment faire pour programmer unsysteme pour lire et affiché 2 vecteur , et calcul leur norme
A voir également:

1 réponse

KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
const p=4; // par exemple
n=4; // par exemple

type systeme=array[1..p,1..n] of real;
vecteur=array[1..n] of real;

function norme(v:vecteur):real;
var i:integer;
begin
result:=0;
for i:=1 to n do
result:=result+sqr(v[i]);
result:=sqrt(result);
end;
0