From d46366ede05c1421e6fbe45253c0a770c2852768 Mon Sep 17 00:00:00 2001
From: Manuel Vergara <manuel@vergaracarmona.es>
Date: Sun, 5 May 2024 13:48:55 +0200
Subject: [PATCH] Add potencia exercise

---
 fundamentos-programacion/PR2/README.md        |  36 ++++++++++++++++++
 .../PR2/soluciones_c/solucion3/potencia       | Bin 0 -> 16096 bytes
 .../PR2/soluciones_c/solucion3/potencia.c     |  34 +++++++++++++++++
 3 files changed, 70 insertions(+)
 create mode 100755 fundamentos-programacion/PR2/soluciones_c/solucion3/potencia
 create mode 100644 fundamentos-programacion/PR2/soluciones_c/solucion3/potencia.c

diff --git a/fundamentos-programacion/PR2/README.md b/fundamentos-programacion/PR2/README.md
index a683c6b..f33f1b6 100644
--- a/fundamentos-programacion/PR2/README.md
+++ b/fundamentos-programacion/PR2/README.md
@@ -889,6 +889,42 @@ end algorithm
 3. Solución
 
 ```alg
+function potencia(n: real, m: integer): real
+  var
+    i: integer;
+    resultado: real;
+  end var
+
+  resultado:= 1.0;
+  
+  for i:= 1 to m do
+    resultado:= resultado * n;
+  end for
+
+  return resultado;
+
+end function
+
+algorithm main
+  var
+    base, resultado: real;
+    exponente: integer;
+  end var
+
+  writeString("[+] Introduce la base: ");
+  base:= readReal();
+
+  writeString("[+] Introduce el exponente: ");
+  exponente:= readInteger();
+
+  writeString("[i] El resultado de elevar ");
+  writeReal(base);
+  writeString(" a la potencia ");
+  writeInteger(exponente);
+  writeString(" es: ");
+  writeReal(potencia(base, exponente));
+
+end algorithm
 
 ```
 
diff --git a/fundamentos-programacion/PR2/soluciones_c/solucion3/potencia b/fundamentos-programacion/PR2/soluciones_c/solucion3/potencia
new file mode 100755
index 0000000000000000000000000000000000000000..2fe06649b462a92bab8374c7f76783fb99c36653
GIT binary patch
literal 16096
zcmeHOZH!b`89p<x?LsNDd=(09xz=Jpvcv9np+Jkw0t0uIuL2usDqio-++ioo&a5+c
z=+e}RVoldA5&tML)l^L^ek86<f1ojO3AUxt8Zc35+8?M8m(-7Ci*?bK@p;dE-^<<G
z*_t%|^PXhpIq&m+oO9oM?wxbzp7YuC*3I!)Oi7udKB7o^rpaSctT6853LvFct6TBC
zSly*=f;?4oo<8LPv|c$MpNNgjPXUtO0;<%(J3LwmN)HLiZ?bZMI)oyq_&CU~ffOu<
z@dfUupy>Vf401*>^tX>slL3lg(2u%uqFJleiFFgPhuiC86h9Kl?<D)3WIw@CZckA1
zNjag<YR+dETcD#N820O7zc6m{+>{`-L1p(PH~W6t+sS^%3>`*=@d1xkg3{iD@Z(d<
z7Viymns;$~lbwgXoPR-1uUb*acdu$+QOGtI^2KU@bN}j9&8ymzl~S@zH%$F9@S!oa
zWqX%Gm|@~LjVgZFlO-PM=CYpbe>?VEqT^3Le(;}L-sn2}cJB4>@BU>6*-*d9his@&
zJQ*S+Q=QHo*?9T*9BLj%c+UBCFX3c`;?J(5d>ounhi?T}&wj%s{MW%7_=L;dAnL{W
z9(W^c3^|4m`Mj%GR;J&!a`~cN$Uo{R%fgAuSQXbUyH>BAFM`QeN|`lltV+f%<{(0s
zIbdaa4p=!mUr>GJe9_G*a--9^N^RNNxnZN#mb}lewIx^j^>)8@Z@aQO_iVGWPTAR?
zueeTm&$f+)QqkFCcNeH9`+G}8?uq4@)-}W-#c_O7aJ|Mbeq#E%rSDE?WZcfr=WnIa
zwVS!>!u&M4!uPQ}SL>&!Jj>62<*OJDaaDm#Mea9pogbd%@k4w+5kAFyW6IMDFY@{I
z9#3P9&WV%@0iMRBl#u|h@3*WN4e&RMF>pM<OWUL#W}a;2nj-#8fT!z4%Gm(#T^FK>
zFv>ubfhYq}2BHi^8Hh3vWgwV=HxqaL%RKUzMsu*?)fGyaPYk>9+FA3+FB(s4v)alp
zfgY<Z83ZI2E3)q)&DiBX)M~Y3TBeEN*yVG+OcTPf%cn$!_fhS=Nojw`>5#lGB(Dt0
zt$*ztIQL0&;E(2!i=#XDq+5quUp9}fy93SE=FNfS)m$>M_zTo41%3?}^JqgG!J2V*
z9uDoTq<3i3Y8MiV50l+#M%Yi&_ABEA%dVRPqvol<tv64NPcdUJn&+;&a}nSL4$xS;
zkV`Daafm-1|KW9{R@LQQ=8<*Zrm8t`$(>;iuKO;8k!#m$wUI26@nXX_AjkH>cY^=r
zN1&uYUGN)A%u0_8eCFa<qN(A}Gm%Hg<1eMJQm5aT12#QAmUt*VqWL4~tFgiK)%(*I
zAA=)QIWzJ2Fusbz`%X(loL(bq4o+RNRQD`B-a3r*+=AHVz)L47?#MxO(L9<SF$Z3R
zYFbcrK&u+A;c3J--{P5H^vvH5svdx9u<N2Zh=cgO?#Rg9I6B=gb09s+I_m6bF0u5?
z!0)sXTKy@9p}{k9>780lcg-B^8qb=`=jzV84I@8;;$;j?IygOU{gFxs5|t<eQ3j$6
zL>Y)O5M?0BK$L+f15pN|3`7~2ECVrqyEy&f<@=1zqFXLys~N{A*haTqan>4YNg<~~
zN~d5r{e7jPQ*^aO7Qv@KoZn}p3r5+gR12=1Eg4zIa0<>ryKF2;w&e_)V)m6>r<lpx
z#*(bzRMu+E^yxSHHo88xXv+Qc?w8)-9Q%8%)(1QbJPy1790E3t)@pl!*MMh$AG?AF
zY#<eS$4Vvk=q?rOZ;CCNadYD_{82zWttA*jj1Q5)rknMvwtG-*$7ccf6j04<+B|c?
zM-#U^(s)>{U%2+e_uivlLz4d|@M(dayrUy?;$3`}f^Q*$3$^tWKFiR@UBsnlHhnR^
z@z$H-o#>I*mmh+D82Z;H=zpX2L`5aaK$L+f15pN|3`7}-G7x1T%0QHX|IZA_`aM~%
zCu{L&%^;N-9{39g@iI-9lf3Bic9vyb;3AgsD5A?kMp++7&o5L&|Bvgn63Iin7*E#r
z4NWCh)}ktPp7rujhgWsF+`_nkaUP=pyQverj!)JUnruMNSyW{0;CxS1$9b`z@aMT>
z((hrm!{SL@r2V^C7Q27fyyHV&HHFuh`got@czB1YWyw1p+qCSm{u;}2931|C2D1J;
z9I%BSMpKMCgAb=+<M)tdz2}yV8`m03ySl4Iw`#PuCfk!O&8<}}wm#n0mTYNX#`Jpx
zgNpJrRb8ott>`?^TGyvIQ3e~#0oJpp^AyLb*t4PIB0u64uV00z%f0v}Uak|S_1fB)
zTBw>*9wX<GR$0f?ZA!+y*gu8}#gXey_$RgfJb!(y@Xw-Bum6)B*K<0~Ty^{d65$5c
zi!-e4=d18Icv-v6@z>Eyl-ITW0{?mvehd}9B?zT4frJ<n7*FWYJnkN;iOS{Ro7C-o
zK1JIGes+A8lKYPEtBDsOfV(H*a~wb1ZUwv%@R#c6!Ox1{u4Ehw|7GH-Wp?7*mHH<5
zCX9y#DY5jh0Dd+!&+vHD{}n;?9ky=@+5d>`U*mD8|I2~>^P2Z!2EShcPyGzXc@?}7
zH01i5I!==s;P|_ke;d61V=Ck`A2-g~ar_#Dt{1gCQ+8XEB`j07yYrT7?^hryZZ(%n
zX4H)(?UvhXWoS`*1(w;8wZBm6whLC)EtM;lUF}zyQg2_uah+_krM?BN&CgqQxojV@
z@DE}6kjj<qUdPH-dwUPTB_LU_bSId~AB5<WWo_Qou`O+-w{NnroPN_o+dH;(ZUl|3
z5mwq{t+{EJvbJp9v7uwDwPW+<-RV8no{kM$)9?uI3`ogB|Npj--^tppt@Lpq%Eavh
zevo$FNZ=E+X#gpMtG5RL!o&>$R<=^IdhBABHVbs_fK@hMw5k;+tB@#sS>2Ti`_|dX
z;5T$1EV1)I5<^=O>h3d;T*5rKWx|i6J4|Olsbu9)uWNS$-Li*0Qp08mr`)HKMf`P}
z++VCF`^u$0r|cdIP~Fu$Hp=9)Om%GNY^DLG&3o)hk4k0_714x;ZrRfubjp={sW?Hf
zpes8Cn;f{-S8!EQcQc7<a(@XTRVq$KC0(Z<B8@m$m-Kl{Iz2qbda{Tnk{81pY@UbI
z(UjerM=;MFCqX4K%6l<*Ll@Wk5NV!;OBKH*UJ37alX(`awXM_%KZp;_ZNz`FeO+Wr
zMdmY}q|_=@g8t$CUG)EVu*m&UIGSGu{pELC&=5n$u>Z%wzlFJx^k3$Wg3>-u<KESO
z8~!wR6n~jt`pE54A1Tjr{4&qWgQKa2_{)4%@HBM6LNS8n(-3IxC;l?u6T~lzF4BLo
z6Qq4rG?x@v=97Xu*+1NWrqxkYD5v5t^IO4THk9_m$Nx3<-@tY<Ulue2{*<$@|F^(V
zP9(nnyTZRO@*KfobYG=T_%uF2e}nx5Q)Cn<^0OuQEObHtPq9K!>?DN9f<qzyK2`{}
zh$Ex;3H~JH{|qYxZ<7-f@|Unb5BbZyNKl^B#6Eoeyuki`GX`5S9%E5J&Y#GyphEc*
z|6_)y5q!WC{qJ!5G@l9jpEW#F!C(2FUM1ZACD2$->hIx_=TF&>8MYT$@Ctkr0e_jN
z4>f~C5j#)1Aq)Qw6f}1Eal@ZK%l=x~M@!cq74ehv{{wJz{NgXqrzcjBwNiUM@V~`h
z@FqA1{Z)!hTRfC@B!KvdJOj?eN&7NyY-0bgJ+&1qv$%aW_f_J*+-JOs_y<wOPS7;P
y0Z(wp?u3%=h0-6n|I+iG^gZZ5LJw*vcZPyXyPnp2ysPKmKtF6K3quYeQT+#bB-D5S

literal 0
HcmV?d00001

diff --git a/fundamentos-programacion/PR2/soluciones_c/solucion3/potencia.c b/fundamentos-programacion/PR2/soluciones_c/solucion3/potencia.c
new file mode 100644
index 0000000..431e0c7
--- /dev/null
+++ b/fundamentos-programacion/PR2/soluciones_c/solucion3/potencia.c
@@ -0,0 +1,34 @@
+/* Función que calcula n (real) elevado a la potencia m (entero) */
+
+#include <stdio.h>
+
+double potencia(double n, int m)
+{
+    int i;
+    double resultado = 1.0;
+
+    for (i = 0; i < m; i++)
+    {
+        resultado = resultado * n;
+    }
+
+    return resultado;
+}
+
+int main()
+{
+    double base, resultado;
+    int exponente;
+
+    printf("\n[+] Introduce la base: ");
+    scanf("%lf", &base);
+
+    printf("\n[+] Introduce el exponente: ");
+    scanf("%d", &exponente);
+
+    resultado = potencia(base, exponente);
+
+    printf("\n[i] El resultado de elevar %.2f a la potencia %d es: %.2f\n\n", base, exponente, resultado);
+
+    return 0;
+}