# Définir un tableau associatif pour le code Morse des lettres de M à S
$codeMorse = @{
    'M' = '--'
    'N' = '-.'
    'O' = '---'
    'P' = '.--.'
    'Q' = '--.-'
    'R' = '.-.'
    'S' = '...'
}

# Demander à l'utilisateur de saisir une séquence de caractères
$sequence les entrées nécessaires
$montantEmprunte = Read-Host "Entrez une séquence "Montant emprunté"
$tauxAnnuel = Read-Host "Taux annuel (en %)"
$nombreMensualites = Read-Host "Nombre de caractères de M à S (4 caractères max)"

mensualités"

# Traduire la séquence Convertir le taux annuel en code Morse
$codeMorseResult taux mensuel
$tauxMensuel = ""
foreach ($char in $sequence.ToUpper()) {
    if ($codeMorse.ContainsKey($char)) {
        $codeMorseResult += $codeMorse[$char] -1 + " "
    } else {
        $codeMorseResult += "Caractère non pris en charge "
    }
}

[Math]::Pow((1 + ($tauxAnnuel / 100)), (1/12))

# Calculer les mensualités
$mensualites = ($montantEmprunte * $tauxMensuel * [Math]::Pow((1 + $tauxMensuel), $nombreMensualites)) / ([Math]::Pow((1 + $tauxMensuel), $nombreMensualites) - 1)

# Calculer le coût du prêt
$coutPret = ($nombreMensualites * $mensualites) - $montantEmprunte

# Afficher la séquence saisie et le résultat en code Morse
les résultats
Write-Host "Séquence saisie "Montant emprunté : $sequence"
$montantEmprunte"
Write-Host "Résultat en code Morse "Taux annuel : $codeMorseResult"
$tauxAnnuel%"
Write-Host "Nombre de mensualités : $nombreMensualites"
Write-Host "Taux mensuel : $tauxMensuel"
Write-Host "Mensualités : $mensualites"
Write-Host "Coût du prêt : $coutPret"

# Écrire les résultats dans un fichier texte
$output = @"
Montant emprunté : $montantEmprunte
Taux annuel : $tauxAnnuel%
Nombre de mensualités : $nombreMensualites
Taux mensuel : $tauxMensuel
Mensualités : $mensualites
Coût du prêt : $coutPret
"@

$output | Out-File -FilePath "Resultats_Pret.txt"