Algorithme CalculTVA
{Saisit un prix HT et prix TTC correspondant }
Constantes TVA =20.6
Titre ='Résultat'
Variables prixHT: réel
Variable PRIXTTC, montantTVA :réels {déclarations}
Début {préparation du traitement}
afficher('Donnez-moi le prix hors taxe :')
saisir(prixHT )
prixTTC <-prixHT* (1+TVA/100) {calcul du prix TTC}
montantTVA <- prixTTC- prixHT
afficher (Titre) {présentation du résultat }
afficher (prixHT,euros H.T.+TVA. ',TVA', devient. ',prixTTC',
'eurosT.T.C.')
Fin
Algorithme CalculTVA {Saisit un prix HT et prix TTC correspondant } Constantes TVA =20.6 Titre ='Résultat' Variables prixHT: réel Variable PRIXTTC, montantTVA :réels {déclarations} Début {préparation du traitement} afficher('Donnez-moi le prix hors taxe :') saisir(prixHT )
prixTTC <-prixHT* (1+TVA/100) {calcul du prix TTC} montantTVA <- prixTTC- prixHT afficher (Titre) {présentation du résultat } afficher (prixHT,euros H.T.+TVA. ',TVA', devient. ',prixTTC', 'eurosT.T.C.') Fin