Programmation pascal
Fermé
anouz2001
-
5 juil. 2008 à 13:22
KX Messages postés 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 - 5 juil. 2008 à 20:42
KX Messages postés 16760 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 - 5 juil. 2008 à 20:42
Bonjour,
comment faire pour programmer unsysteme pour lire et affiché 2 vecteur , et calcul leur norme
comment faire pour programmer unsysteme pour lire et affiché 2 vecteur , et calcul leur norme
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
16760
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
12 février 2025
3 020
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;
