Programmation pascal
Fermé
anouz2001
-
5 juil. 2008 à 13:22
KX Messages postés 16753 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 25 novembre 2024 - 5 juil. 2008 à 20:42
KX Messages postés 16753 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 25 novembre 2024 - 5 juil. 2008 à 20:42
A voir également:
- Programmation pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Application de programmation - Guide
- Dev-pascal - Télécharger - Édition & Programmation
- Programmation logo tortue télécharger - Télécharger - Études & Formations
1 réponse
KX
Messages postés
16753
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
25 novembre 2024
3 019
5 juil. 2008 à 20:42
5 juil. 2008 à 20:42
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;
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;
