22 lines
1.6 KiB
Scilab
22 lines
1.6 KiB
Scilab
data = csvRead("data.csv");
|
|
|
|
// Somme des estimations de populations des pays en 2050
|
|
population2050 = sum(data(:, 6)*1000000);
|
|
mprintf("La population mondiale prévue en 2050 est de %.0f habitants.\n", population2050);
|
|
|
|
population = sum(data(:, 3)*1000000);
|
|
tauxAccroissement = (data(:, 4) / 1000) - (data(:, 5) / 1000);
|
|
tauxAccroissementMoyen = mean(tauxAccroissement);
|
|
|
|
x = population;
|
|
// On multiplie la population mondiale actuelle par le taux d'accroissement moyen jusqu'à atteindre ou dépasser la population mondiale prévue en 2050
|
|
while population2050 > x
|
|
x = x * (1+tauxAccroissementMoyen);
|
|
end
|
|
|
|
if population2050 == x
|
|
mprintf("La population mondiale prévue en 2050 est conforme à l''hypothèse d''un taux d''accroissement constant car\nen multipliant la population mondiale actuelle (%.0f) par le taux d''accroissement moyen (%.2f%%) jusqu''à\natteindre ou dépasser la population mondiale prévue en 2050 (%.0f), on obtient une prévision égale\nà la population mondiale prévue en 2050 (+ %.0f).", population, (tauxAccroissementMoyen * 100), population2050);
|
|
else
|
|
mprintf("La population mondiale prévue en 2050 n''est pas conforme à l''hypothèse d''un taux d''accroissement constant car\nen multipliant la population mondiale actuelle (%.0f) par le taux d''accroissement moyen (%.2f%%) jusqu''à\natteindre ou dépasser la population mondiale prévue en 2050 (%.0f), on obtient une prévision largement\nsupérieur à la population mondiale prévue en 2050 (+ %.0f).", population, (tauxAccroissementMoyen * 100), population2050, x - population2050);
|
|
end
|