Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 nouveaux exercices

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: nouveaux exercices   Mar 19 Déc - 19:24

Faire un programme qui lit au clavier les coordonnées de
deux points, A et B, situés dans l'espace à N
dimensions, puis qui calcule et affiche leur distance :


On exécutera ce programme pour deux points du plan, puis
pour deux points de R3.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: nouveaux exercices   Mar 19 Déc - 19:25

correction

program DistanceEuclidienne;
var
A, B: array[1..5] of real; {coordonnées des deux points dans l'espace à 5 dimensions}
i: integer; {indice de boucle}
S, d: real; {… carrés, distance}
begin
for i := 1 to 5 do begin {lire coordonnées 1er point}
write('coordonnée ', i : 1, ' du premier point = ');
readln(A[i])
end;
for i := 1 to 5 do begin {lire coordonnées 2ème point}
write('coordonnée ', i : 1, ' du deuxième point = ');
readln(B[i])
end;
S := 0.0;
for i := 1 to 5 do {calcul … carrés(différences)}
S := S + sqr(A[i] - B[i]);
d := sqrt(S); {distance des 2 points}
writeln('distance = ', d); readln
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
nouveaux exercices
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Boutons nouveaux messages
» Bienvenue à tous les nouveaux membres
» Des nouveaux sons pour live messenger
» nouveaux setup
» Article : Le formatage complice des nouveaux blockbusters

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: