From 5e1ba97cd2825443519428c7d8d766a162a4b9e1 Mon Sep 17 00:00:00 2001
From: Tom Moguljak <moguljak.tom@gmail.com>
Date: Thu, 18 May 2023 22:16:29 +0200
Subject: [PATCH] Ajout de la question 7 de l'exo 2

---
 Exo2/Question7.sce | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 Exo2/Question7.sce

diff --git a/Exo2/Question7.sce b/Exo2/Question7.sce
new file mode 100644
index 0000000..3b09946
--- /dev/null
+++ b/Exo2/Question7.sce
@@ -0,0 +1,45 @@
+// Déterminer les valeurs du premier et du neuvième décile
+D1 = esperanceHomme(ceil(length(esperanceHomme)/10));
+D9 = esperanceHomme(ceil(9*length(esperanceHomme)/10));
+
+// liste des pays dont l'espérance de vie est inférieure au premier décile ou supérieure au neuvième décile
+for i = 1:length(esperanceHomme)
+    if (esperanceHomme(i) < D1 || esperanceHomme(i) > D9)
+        mprintf("%s\n", pays(indice(i),1));
+    end
+end
+
+// Donner leur répartition suivant les continents
+Afrique = [];
+AmeriqueNord = [];
+AmeriqueSud = [];
+Asie = [];
+Europe = [];
+Oceanie = [];
+
+for i = 1:length(esperanceHomme)
+    if (esperanceHomme(i) < D1 || esperanceHomme(i) > D9)
+        if (indice(i) <= 57)
+            Afrique = [Afrique, pays(indice(i),1)];
+        elseif (indice(i) > 57 && indice(i) <= 86)
+            AmeriqueNord = [AmeriqueNord, pays(indice(i),1)];
+        elseif (indice(i) > 86 && indice(i) <= 99)
+            AmeriqueSud = [AmeriqueSud, pays(indice(i),1)];
+        elseif (indice(i) > 99 && indice(i) <= 150)
+            Asie = [Asie, pays(indice(i),1)];
+        elseif (indice(i) > 150 && indice(i) <= 193)
+            Europe = [Europe, pays(indice(i),1)];
+        elseif (indice(i) > 193 && indice(i) <= 207)
+            Oceanie = [Oceanie, pays(indice(i),1)];
+        end
+    end
+end
+
+mprintf("Afrique : ");
+disp(Afrique);
+mprintf("Asie : ");
+disp(Asie);
+mprintf("Europe : ");
+disp(Europe);
+mprintf("Oceanie : ");
+disp(Oceanie);