SAE_S2.04/Exo2/Question7.sce

46 lines
1.4 KiB
Scilab
Raw Permalink Normal View History

2023-05-18 22:16:29 +02:00
// 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);