SAE24_2022/ex3/scripts/ex3-5.sce

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