/* *********************************************************************
/* TP2
/* Jérémie Poisson
/* Jérémy Gagné
/* *********************************************************************
/* CONSTANTES (Nom, Type, Valeur, Description)

conTps	Numérique	0.05
conTvq	Numérique	0.085

conRabais2ActInd	Numérique	0.1
conRabais3ActInd	Numérique	0.15
conRabais3ActFam	Numérique	0.05
conRabaisEnf10m		Numérique	0.5 /* rabais enfant moins de 10 ans
conRabaisEnf1015	Numérique	0.3 /* rabais enfant 10-15 ans

conCoutPlancheNInd		Numérique	10
conCoutSkiFondInd		Numérique	10
conCoutPatinageInd		Numérique	8

conCoutPlancheNFam		Numérique	28
conCoutSkiFondFam		Numérique	28
conCoutPatinageFam		Numérique	17

/* VARIABLES (Nom, Type, Initialisation, Description)

ageClient		Numérique	0
nomClient		Caractères	""
typeTarifFam	Booléen		Faux /* vrai = tarif familial, faux = tarif individuel

parPlancheN		Booléen		Faux /* choix planche à neige
parSkiFond		Booléen		Faux /* choix ski fond
parPartinag		Booléen		Faux /* choix patinage
actCount		Numérique	0 /* activity count

coutHorsTax			Numérique	0
coutWithTax			Numérique	0
coutTPS				Numérique	0
coutTVQ				Numérique	0
coutPlancheN		Numérique	0
coutSkiFond			Numérique	0
coutPatinage		Numérique	0
rabaisAct			Numérique	0
rabaisAge			Numérique	0

/* msg sorties
msgActivites	Caractères	""
msgTarif		Caractères	""

/* ENTRÉES

Lire "Entrez votre nom " nomClient
Lire "Entrez votre âge " ageClient
Lire "Voulez-vous prendre le tarif familial (OUI/NON) ?" typeTarifFam

Lire "Voulez-vous participer à la planche à neige (OUI/NON) ?" parPlancheN
Lire "Voulez-vous participer au ski de fond (OUI/NON) ?" parSkiFond
Lire "Voulez-vous participer au patinage (OUI/NON) ?" parPartinag

/* TRAITEMENTS

	/* comptage coût total
	Si parPlancheN = Vrai alors /* planche a neige
		Si typeTarifFam = Vrai alors /* tarif fam
			coutPlancheN <-- conCoutPlancheNFam
		Sinon /* tarif ind.
			coutPlancheN <-- conCoutPlancheNInd
		FinSi
		actCount <-- actCount + 1 /* compte les activités participés
		msgActivites <-- msgActivites + "Planche à neige "
	FinSi

	Si parSkiFond = Vrai alors /* ski de fond
		Si typeTarifFam = Vrai alors /* tarif fam
			coutSkiFond <-- conCoutSkiFondFam
		Sinon /* tarif ind.
			coutSkiFond <-- conCoutSkiFondInd
		FinSi
		actCount <-- actCount + 1 /* compte les activités participés
		msgActivites <-- msgActivites + "Ski de fond "
	FinSi

	Si parPartinag = Vrai alors /* patinage
		Si typeTarifFam = Vrai alors /* tarif fam
			coutPatinage <-- conCoutPatinageFam
		Sinon /* tarif ind.
			coutPatinage <-- conCoutPatinageInd
		FinSi
		actCount <-- actCount + 1 /* compte les activités participés
		msgActivites <-- msgActivites + "Patinage "
	FinSi

	coutTotal <-- coutPlancheN + coutSkiFond + coutPatinage /* montant total

	/* application des rabais quant aux activités
	Si typeTarifFam = Faux alors
		Si actCount = 2 alors
			rabaisAct <-- conRabais2ActInd
		Sinon /* actCount != 2 */
			Si actCount = 3 alors
				rabaisAct <-- conRabais3ActInd
			FinSi
		FinSi
	Sinon /* tarif familial
		Si actCount = 3 alors
			rabaisAct <-- conRabais3ActFam
		FinSi
	FinSi

	/* application des rabais quant a l'âge
	Si typeTarifFam = Faux alors
		Si ageClient < 10 alors
			rabaisAge <-- conRabaisEnf10m
		Sinon /* ageClient >= 10
			Si ageClient < 15 alors
				rabaisAge <-- conRabaisEnf1015
			FinSi
		FinSi
	FinSi

	/* calcul cout hors taxe
	coutHorsTax <-- (coutPlancheN + coutSkiFond + coutPatinage)
	rabaisAct <-- coutHorsTax * rabaisAct
	rabaisAge <-- coutHorsTax * rabaisAge
	coutHorsTax <-- coutHorsTax - rabaisAct - rabaisAge

	coutTps <-- coutHorsTax * conTps
	coutTvq <-- (coutHorsTax + coutTps) * conTvq
	coutWithTax <-- coutHorsTax + coutTps + coutTvq

	/* messages sorties
	Si typeTarifFam = Vrai alors
		msgTarif <-- "Tarif Familial"
	Sinon /* tarif individuel
		msgTarif <-- "Tarif individuel"
	FinSi

/* SORTIES

Afficher nomClient
Afficher msgTarif
Afficher "Activités : " msgActivities
Afficher "Coût des activités : " coutTotal "$"
Afficher "Rabais activités : " rabaisAct "$"
Afficher "Rabais âge : " rabaisAge "$"
Afficher "Tarif hors taxe : " coutHorsTax "$"
Afficher "TPS (5%) : " coutTps "$"
Afficher "TVQ (8.5%) : " coutTvq "$"
Afficher "Total de l'inscription : " coutWithTax "$"