Voir la source de Initiation au Lua avec Scribunto/Exercices/Sur les méta-tables

{{Exercice
  | idfaculté = informatique
  | numéro    = 10
  | chapitre  = [[../../Méta-tables/]]
  | précédent = [[../Sur la gestion de l'environnement/]]
  | suivant   = [[../Sur les librairies Scribunto/]]
  | niveau    = 10
}}
__TOC__
{{Clr}}
== Exercice 10-1  ==

On considère un programme gérant des comptes se trouvant dans une table appelée ''banque'' dont l'accès se fait avec des clés sous forme de chaîne de caractères indiquant le nom d'une personne ayant un compte dans la table ''banque''. Nous savons que, lorsque l’on essaye d'accéder à une table avec une clé qui n'existe pas, on obtient ''nil''. Dans cet exercice, on modifiera ce comportement en faisant en sorte que, lorsque l’on essaye d'accéder à un compte dans la banque avec une clé indiquant un nom inexistant dans la banque, alors le compte doit être automatiquement créé avec une valeur égale au nombre 0 et on doit avoir comme retour une chaîne de caractères indiquant "compte créé". En utilisant ce comportement particulier, écrire une fonction '''p.place''' dans un module qui nous permettra de placer une certaine somme en banque sur le compte d'une personne dont on indiquera le nom. Si, par exemple, on souhaite placer {{unité|20|euros}} sur le compte d'Annabelle, on écrira '''<nowiki>{{#invoque:"nom du module"|place|Annabelle|20}}</nowiki>'''. En retour, on devra avoir un message indiquant si un nouveau compte a été créé et si l'opération s'est bien déroulée (on gérera les erreurs possibles).

Pour fixer les idées nous poserons que la table ''banque'' sera initialisée ainsi :

<syntaxhighlight lang="lua">
local banque = {["Jean"]=150,["Aurore"]=80,["Cindy"]=10,["Pénéloppe"]=110,["Gabriel"]=320}
</syntaxhighlight>

'''Contrainte :''' Le programme ne devra utiliser qu'une seule table.


{{Solution
  | contenu =
Le programme se trouve dans le [[module:Gestion]].

<syntaxhighlight lang="lua">
local p = {}

local banque = {["Jean"]=150,["Aurore"]=80,["Cindy"]=10,["Pénéloppe"]=110,["Gabriel"]=320}

setmetatable(banque,banque)

function banque.__index(tab,cle)
	tab[cle] = 0
	return "compte créé"
end

function p.place(frame)
	local nom = frame.args[1]
	local argent = tonumber(frame.args[2])
	local creation = banque[nom]
	local reponse = " "
	if creation == "compte créé" then
		reponse = reponse.."Le compte a été créé."
	end
	if argent == nil then
		reponse = reponse.."La somme que vous avez rentrée n'a pas pu être décriptée."
	else
		banque[nom] = banque[nom] + argent
		reponse = reponse..nom.." a maintenant "..banque[nom].." euros."
	end
	return reponse
end

return p
</syntaxhighlight>


Comme l'énoncé nous imposait d’utiliser une seule table, nous avons déclaré la table ''banque'' comme étant sa propre méta-table.


'''<nowiki>{{#invoke:Gestion|place|Pénéloppe|30}}</nowiki>''', nous donne : {{#invoke:Gestion|place|Pénéloppe|30}}


'''<nowiki>{{#invoke:Gestion|place|Louise|70}}</nowiki>''', nous donne : {{#invoke:Gestion|place|Louise|70}}


'''<nowiki>{{#invoke:Gestion|place|Jean|vingt euros}}</nowiki>''', nous donne : {{#invoke:Gestion|place|Jean|vingt euros}}
}}

<br />

== Exercice 10-2  ==

Soit un espace vectoriel de dimension 3. Soit deux vecteurs A et B de coordonnées respectives (2,7,4) et (3,2,9). Écrire un programme permettant de faire le produit vectoriel de A et B en utilisant une instruction sous la forme '''P = A*B'''.


Le produit vectoriel se définit ainsi :

<math>\begin{pmatrix} a \\ b \\ c \end{pmatrix} \star \begin{pmatrix} d \\ e \\ f \end{pmatrix} = \begin{pmatrix} bf-ce \\ cd-af \\ ae-bd \end{pmatrix}</math>


{{Solution
  | contenu =
Le programme se trouve dans le [[module:Produit]]

<syntaxhighlight lang="lua">
local p = {}

local A = {2,7,4}
local B = {3,2,9}
local Vecteur = {}

setmetatable(A,Vecteur)
setmetatable(B,Vecteur)


function Vecteur.__mul(s,t)
	local u = {}
	u[1] = s[2]*t[3] - s[3]*t[2]
	u[2] = s[3]*t[1] - s[1]*t[3]
	u[3] = s[1]*t[2] - s[2]*t[1]
	return u
end

function p.vectoriel()
	local P = {}
	P = A*B
	return "Le produit vectoriel de A et B a pour coordonnées ("..P[1]..","..P[2]..","..P[3]..")."
end

return p
</syntaxhighlight>

'''<nowiki>{{#invoke:Produit|vectoriel}}</nowiki>''', nous donne : {{#invoke:Produit|vectoriel}}
}}

<br />

== Exercice 10-3  ==

Soient deux matrices carrées A et B d'ordre 2 ainsi définies :

<math>C = \begin{pmatrix} 2 & 5 \\ -3 & 1 \end{pmatrix}</math>

<math>D = \begin{pmatrix} 4 & -2 \\ 1 & 6 \end{pmatrix}</math>

Écrire un programme permettant de faire le produit matriciel de A et B en utilisant une instruction sous la forme '''P = C*D'''.


Le produit matriciel se définit ainsi :

<math>\begin{pmatrix} a & b \\ c & d \end{pmatrix} \star \begin{pmatrix} e & f \\ g & h \end{pmatrix} = \begin{pmatrix} ae+bg & af+bh \\ ce+dg & cf+dh \end{pmatrix}</math>

{{Solution
  | contenu =
Le programme se trouve dans le [[module:Produit]]

<syntaxhighlight lang="lua">
local p = {}

local C = {{2,5},{-3,1}}
local D = {{4,-2},{1,6}}
local Matrice = {}

setmetatable(C,Matrice)
setmetatable(D,Matrice)


function Matrice.__mul(s,t)
	local u = {{},{}}
	u[1][1] = s[1][1]*t[1][1] + s[1][2]*t[2][1]
	u[1][2] = s[1][1]*t[1][2] + s[1][2]*t[2][2]
	u[2][1] = s[2][1]*t[1][1] + s[2][2]*t[2][1]
	u[2][2] = s[2][1]*t[1][2] + s[2][2]*t[2][2]
	return u
end

function p.matriciel()
	local P = {}
	P = C*D
	return "Le produit matriciel de C et D est donné par la matrice : <br />"..P[1][1].." , "..P[1][2].." <br /> "..P[2][1].." , "..P[2][2]
	end

return p
</syntaxhighlight>


'''<nowiki>{{#invoke:Produit|matriciel}}</nowiki>''', nous donne : {{#invoke:Produit|matriciel}}
}}

<br />

== Exercice 10-4  ==

Écrire un programme permettant de concaténer les matrices colonnes : B = <math>\begin{pmatrix} 3 \\ 7 \end{pmatrix}</math> et C = <math>\begin{pmatrix} 1 \\ 9 \end{pmatrix}</math> sous la forme de la matrice carrée P = <math>\begin{pmatrix} 3 & 1 \\ 7 & 9 \end{pmatrix}</math> en utilisant une instruction sous la forme '''P = B..C'''.

{{Solution
  | contenu =
Le programme se trouve dans le [[module:Concaténation]]

<syntaxhighlight lang="lua">
local p = {}

local B,C = {3,7},{1,9}
local Point = {}

setmetatable(B,Point)
setmetatable(C,Point)

function Point.__concat(s,t)
	local P = {{},{}}
	P[1][1] = s[1]
	P[1][2] = t[1]
	P[2][1] = s[2]
	P[2][2] = t[2]
	return P
end

function p.colle(s,t)
	local P = {{},{}}
	P = B..C
	return "La concaténation de B et C est donnée par la matrice : <br />"..P[1][1].." , "..P[1][2].." <br /> "..P[2][1].." , "..P[2][2]
end
return p
</syntaxhighlight>


'''<nowiki>{{#invoke:Concaténation|colle}}</nowiki>''', nous donne : {{#invoke:Concaténation|colle}}
}}

<br />

{{Bas de page
  | idfaculté = informatique
  | précédent = [[../Sur la gestion de l'environnement/]]
  | suivant   = [[../Sur les librairies Scribunto/]]
}}