moguljak/SAE_S2.04
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Ajout de la question 7 de l'exo 2

Browse Source
This commit is contained in:
Tom MOGULJAK 2023-05-18 22:16:29 +02:00
parent 1efcdf4370
commit 5e1ba97cd2
1 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
Exo2/Question7.sce Normal file
View File

@ -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);