Programmation pascal

anouz2001 -  
KX Messages postés 19031 Statut Modérateur -
Bonjour,
comment faire pour programmer unsysteme pour lire et affiché 2 vecteur , et calcul leur norme
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1.
    KX Messages postés 19031 Statut Modérateur 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

Discussions similaires

commande en Pascal
pijahema -
tunisia -

12 réponses
Manuel de programmation autocommutateur LG
csf -
MOLLA -

5 réponses