AUTOEVALUACIÓN 1 1) El siguiente programa tiene errores. Escribelo (grbalo con el nombre EVAL1A en TuCarpeta) ! corr"gelo para #ue $uncione% &inclu'e st'io.* +oi' main() , $loat ra'iopi/.10123 print$(45a'io 4)scan$(46$47ra'io)print$(48n8nLongitu' 6$4739pi9ra'io)print$(48n8n:rea 6$ 47pi9ra'io9ra'io);
ra'io)print$(48n8nLongitu' 6$ 4739pi9ra'io)print$(48n8nArea 6$47pi9ra'io9ra'io); 3) ?a@ un programa #ue $uncione 'e la siguiente $orma% El programa nos pregunta en #u poblaci=n +i+imos. El programa nos pi'e #ue intro'u@camos la base 'e un tringulo. El programa nos pi'e #ue intro'u@camos la altura 'e un tringulo. El programa nos 'a el resulta'o 'el rea 'el tringulo correspon'iente. El programa nos 'espi'e con la $rase% BA'i=s abitante 'e B ! a continuaci=n nos escribe la poblaci=n #ue emos escrito al principio. Draba el programa con el nombre EVAL1 EVAL1 en TuCarpeta. poblacion)print$(4ingrese la base 'e un triangulo%8n4)scan$(46$47>baseTriangulo)-
print$(4ingrese la altura 'e un triangulo%8n4)scan$(46$47>alturaTriangulo)$loat areabaseTriangulo9alturaTrianguloprint$(4el area 'el triangulo es 6$ 8n47area)print$(4a'ios abitante 'e 6s47poblacion); /)?a@ un programa #ue sir+a para calcular un 'eterminante 'e 3o or'en. 5ecuer'a% ab c ' es igual a% a9'c9b Draba el programa con el nombre EVAL1C en TuCarpeta. a)print$(4ingrese un +alor entero para b8n4)scan$(46'47>b)print$(4ingrese un +alor entero para c8n4)scan$(46'47>c)print$(4ingrese un +alor entero para '8n4)scan$(46'47>')int resulta'oa9bc9'print$(4el 'eterminante es 6' 9 6' 6' 9 6' 6'47a7b7c7'7resulta'o); 0) ?a@ un programa #ue sir+a para calcular el rea ! el per"metro 'e un rectngulo. (:rea base J altura ! Kerimetro 3+eces la base 3+eces la altura) Draba el programa con el nombre EVAL1M en TuCarpeta. &inclu'e st'io.* int main(), print$(49999999999999999999999999999999999999999998n4)-
print$(48t 'eterminar area ! perimetro 'e un rectangulo 8n4)print$(49999999999999999999999999999999999999999998n4)$loat base7altura7area7perimetroprint$(4ingrese base 'e un rectangulo8n4)scan$(46$47>base)print$(4ingrese altura 'e un rectangulo8n4)scan$(46$47>altura)areabase9alturaperimetro(39base)(39altura)print$(4el area es 6$ ! el perimetro 6$47area7perimetro); ) ?a@ un programa #ue nos pi'e nuestro nombre ! tel$ono. Como resulta'o el programa nos escribe una $ica aproJima'amente igual a la siguiente% NO5E% (el nombre #ue emos intro'uci'o) TELPONO% (el tel$ono #ue emos intro'uci'o) soluci=n% &inclu'e st'io.* int main(), car nombreFQGHint tele$onoprint$(4ingrese un nombre%8n4)scan$(46s47>nombre)print$(4ingrese tele$ono%8n4)scan$(46'47>tele$ono)print$(48n4)print$(4NO5E% 6s 8n47nombre)print$(4TELPONO% 6' 8n47tele$ono)print$(48n4); Q) ?a@ un programa #ue nos pi'a un nRmero entero ! a continuaci=n el programa nos escribe los 3 enteros siguientes al #ue emos intro'uci'o. numero)n1numero1-
n3numero3print$(4los 3 poJimos numeros son 6' ! 6' 47n17n3); S) u 'i$erencia a! entre un programa con eJtensi=n CKK o OW
int tele$onoprint$(4ingrese un nombres%8n4)scan$(46s47>nombre)print$(4ingrese un apelli'os%8n4)scan$(46s47>apelli'o)print$(4ingrese tele$ono%8n4)scan$(46'47>tele$ono)print$(48n4)print$(4NO5E<% 6s 8n47nombre)print$(4AKELLIMO<% 6s 8n47apelli'o)print$(4TELPONO% 6' 8n47tele$ono)print$(48n4)1/) 5epite el EVAL1C pero utili@an'o 8n ! 8t7 'e $orma #ue #ue'e bonito. a)print$(4ingrese un +alor entero para b8n4)scan$(46'47>b)print$(4ingrese un +alor entero para c8n4)scan$(46'47>c)print$(4ingrese un +alor entero para '8n4)scan$(46'47>')int resulta'oa9bc9'print$(4el 'eterminante es 6' 9 6' 6' 9 6' 6'47a7b7c7'7resulta'o)10) 5epite el EVAL1M pero #ue #ue'e Bbonito[.
print$(49999999999999999999999999999999999999999998n4)$loat base7altura7area7perimetroprint$(48t ingrese base 'e un rectangulo8n4)scan$(46$47>base)print$(48t ingrese altura 'e un rectangulo8n4)scan$(46$47>altura)areabase9alturaperimetro(39base)(39altura)print$(48t el area es 6$ ! el perimetro 6$47area7perimetro)1) I'em con el EVAL1P numero)n1numero1n3numero3print$(48t los 3 poJimos numeros son 6' ! 6' 47n17n3); AUTOEVALUACIÓN 3 1) El siguiente programa tiene errores. Escr"belo (grbalo con el nombre EVAL3A en TuCarpeta) ! corr"gelo para #ue $uncione% ]9 e+al3a 9] &inclu'e st'io.* ]9 Con+ersi=n 'e Temperaturas +oi' main() , int cuentaint $areneitint celsiusprint$(4Temperaturas Pareneit ! Celsius ]n8n4)$or(cuenta3-cuenta13-cuentacuenta1) , celsius1G9cuenta$areneit/3(celsius92)]-
print$(4 C 60' P 60$47celsius7$areneit)i$(celsiusG) print$(4 Kunto 'e congelaci=n 'el ADUA4)i$(celsius1GG) print$(4 Kunto 'e ebullici=n 'el ADUA4)print$(48n4); ;
print$(4ingrese 3 numeros menores a S8n4)print$(4numero 1% 8n4)scan$(46'47>num1)print$(4numero 3% 8n4)scan$(46'47>num3)i$(num1G num1*Snum3G num3*S) , print$(4lo siento uno 'e los numeros ingresa'o no es +ali'o8n4); else , pro'uctonum19num3print$(4el pro'ucto 'e los 3 numeros es% 6' 8n8n47pro'ucto)print$(4'esea ingresar otros 3 mnumeros-8n4)print$(4s]n o <]N8n4)scan$(46s47>resp)print$(46s47>resp)-
;
; ^ile ( resp_s_ resp_<_); /) Escribe un programa #ue nos +a!a pi'ien'o nRmeros.
.
soluci=n% &inclu'e st'io.* int main(), int n7iiG'o, print$(4ingrese numeros%8n4)scan$(46'47>n)i;^ile(n`2222)print$(4intro'uXo un total 'e 6' 8n47i);
0) ?a@ un programa #ue aga lo mismo #ue el anterior7 pero a'ems nos ' la suma 'e to'os los nRmeros intro'uci'os7 eJceptuan'o el 2222 &inclu'e st'io.* int main(), int n7i7sumasuma2222i1'o, print$(4ingrese numeros%8n4)scan$(46'47>n)sumasumani;^ile(n`2222)print$(4intro'uXo un total 'e 6' ! suma'os nos 'a 6'8n 47i7suma); ) ?a@ un programa #ue aga lo mismo #ue el anterior7 pero a'ems #ue nos ' el pro'ucto 'e los nRmeros intro'uci'os7 eJceptuan'o el 2222. &inclu'e st'io.* int main(), int n7i7suma7pro'uctopro'ucto1suma2222i1'o, print$(4ingrese numeros%8n4)scan$(46'47>n)pro'uctopro'ucto9nsumasumani;^ile(n`2222)pro'uctopro'ucto]2222print$(4intro'uXo un total 'e 6' 7 suma'os nos 'a 6' ! el pro'ucto es 6'8n 47i7suma7pro'ucto); Q) ?a@ un programa #ue escriba to'os los mRltiplos 'e 3/ in$eriores a 1GGG ! por Rltimo nos ' la suma 'e to'os ellos. &inclu'e st'io.* int main(), int n3/7i3/print$(4los multiplos 'e 3/ son4)'o,
print$(46' 8n47n)nn3/iin;^ile (n1GGG)print$(4la suma total es 6'8n47i); S) ?a@ un programa #ue sir+a para acer una tabla 'e +alores 'e la $unci=n% sen(SY) El programa nos pi'e los 'os +alores 'e BJ[ (+alores mJimo ! m"nimo) El programa nos pi'e el incremento (+ariaci=n) 'e la Y. &inclu'e st'io.* &inclu'e mat.* int main() , $loat limmin7limmaJ7incremento7$uncion7Jprint$(4ingrese limite minimo8n4) scan$(46$47>limmin)print$(4ingrese limite maJimo8n4) scan$(46$47>limmaJ)print$(4ingrese incremento8n4) scan$(46$47>incremento) Jlimmin $uncionsin(S9J)print$(4J 6$ 8t ! 6$8n47J7$uncion)'o , JJincremento $uncionsin(S9J)print$(4J 6$ 8t ! 6$8n47J7$uncion); ^ile(JlimmaJ); Z) ?a@ un programa #ue sir+a para calcular un cateto 'e un tringulo rectngulo a partir 'el otro cateto ! la ipotenusa7 'e la siguiente $orma% El programa nos pi'e el +alor 'e la ipotenusa. El programa nos pi'e el +alor 'e un cateto.
, int ip7cat$loat cat3print$(4ingrese el +alor 'e la ipotenusa8n4) scan$(46'47>ip)print$(4ingrese el +alor 'el cateto8n4) scan$(46'47>cat)i$ (cat*ip) , print$(4E55O5 el cateto es ma!or #ue la ipotenusa8n4); else , cat3s#rt(ip9ipcat9cat)print$(4el +alor 'el otro cateto es 6$ 8n47cat3); ; 2) ?a@ un programa #ue sir+a para resol+er ecuaciones 'e 3o gra'o 'el tipo aJ3 bJ G int main() , $loat a7b7c$loat J3print$(4 eXemplo ecuacion 'e segun'o gra'o8n4)print$(48t8t aYdbYG8n4)print$(4ingrese los +alores 'e las constantes 8n4)print$(4a 8n4) scan$(46'47>a)print$(4b 8n4) scan$(46'47>b) J3a]bprint$(4la soluciones 'e la ecuacion son J1 G ! J3 6$ 47J3); 1G) ?a@ un programa #ue sir+a para resol+er sistemas 'e ecuaciones 'el tipo% aJ b! c aJ b!c &inclu'e st'io.* int main(), $loat a7b7c7'7e7$7J7!-
print$(4ingrese los +alores 'e sistema 'e ecuaciones 8n8t eXemplo%8n4)print$(48t8t aJ b! c 8n8t8t'J e!$8n4)print$(4ingrese los +alores 'e8n4)print$(4a % 8n4)scan$(46$47>a)print$(4b % 8n4)scan$(46$47>b)print$(4c % 8n4)scan$(46$47>c)print$(4' % 8n4)scan$(46$47>')print$(4e % 8n4)scan$(46$47>e)print$(4$ % 8n4)scan$(46$47>$)J(c9eb9$)](a9eb9')!($'9J)]eprint$(4la solucion es Y 6$ ! 6$ 47J7!); 11) ?a@ un programa con la posibili'a' 'e acer el EVAL3I o el EVAL3 ('ebes utili@ar la estructura op) s^itc(op) , case 1%
print$(4 eXemplo ecuacion 'e segun'o gra'o8n4)print$(48t8t aYdbYG8n4)print$(4ingrese los +alores 'e las constantes 8n4)print$(4a 8n4)scan$(46'47>a)print$(4b 8n4)scan$(46'47>b)-
J3a]bprint$(4la soluciones 'e la ecuacion son J1 G ! J3 6$ 47J3) breacase 3% print$(4ingrese los +alores 'e sistema 'e ecuaciones 8n8t eXemplo%8n4)print$(48t8t aJ b! c 8n8t8t'J e!$8n4)print$(4ingrese los +alores 'e8n4)print$(4a % 8n4)scan$(46$47>a)print$(4b % 8n4)scan$(46$47>b)print$(4c % 8n4)scan$(46$47>c)print$(4' % 8n4)scan$(46$47>')print$(4e % 8n4)scan$(46$47>e)print$(4$ % 8n4)scan$(46$47>$)J(c9eb9$)](a9eb9')!($'9J)]e-
print$(4la solucion es Y 6$ ! 6$ 47J7!) brea 'e$ault% print$(4Error4); ; 13)?a@ un programa #ue escriba la tabla 'e +alores 'e la $unci=n !aJ 3 bJc7 el programa nos pi'e los +alores 'e a7 b7 c entre los +alores B+[ ! B+[ (el programa nos pi'e el +alor 'el numero natural B+[). &inclu'e st'io.* int main(), int a7b7c7J7!int Jmin7JmaJprint$(4ingrse las constantes%8n4)print$(4a 8n4)scan$(46'47>a)print$(4b 8n4)scan$(46'47>b)print$(4c 8n4)scan$(46'47>c)-
print$(4ingrese el +alor minimo 'e J%8n4)scan$(46'47>Jmin)print$(4ingrese el +alor maJimo 'e J%8n4)scan$(46'47>JmaJ)'o, !a9(Jmin9Jmin)b9JmincJminJmin1print$(4 J 6' 8t8t 6'8n47Jmin7!);^ile(JminJmaJ); 1/) ?a@ un programa #ue escriba los 1 primeros mRltiplos 'e S7 su suma ! su pro'ucto. El programa a 'e tener la posibili'a' 'e +ol+er a empe@ar. &inclu'e st'io.* int main() ,
;
int i7suma7mult7Jcar resp'o , sumaGmult1print$(4los primeros 1 multiplos son%8n4)$or(i1- i1- i) , JS9iprint$(46' 8n47J)sumasumaJmultmult9J; print$(4suma 6' pro'ucto 6' 8n8n 47suma7mult)print$(4'esea repetirlo% si s no n 8n4)scan$(46s47>resp); ^ile(resp_s_resp_<_)-
10) El siguiente programa tiene errores7 in'"calos ! eJplica 'etalla'amente lo #ue ace el programa% &inclu'e st'io.* +oi' main() , int I- IG^ile(I)-
, print$(B8nN6$[7I)I; ; El problema esta en el B-[ #ue esta al $inal 'el ^ile 1) ?a@ un programa #ue sir+a para calcular el rea 'e un tringulo o el rea 'e un rectngulo o el rea 'e un c"rculo. El programa a 'e tener la posibili'a' 'e +ol+er a empe@ar. &inclu'e st'io.* &inclu'e mat.* int main() , car resp'o , int op print$(499999999999999999999999999999999999999999999999998n4)print$(48t8t ENU8n4) print$(499999999999999999999999999999999999999999999999998n4)print$(4calcular area 'e un rectangulo8n4)print$(4calcular area 'e un triangulo8n4)print$(4calcular area 'e un circulo8n4)print$(4Intro'u@ca una opcion%8n 4) scan$(46'47>op) s^itc(op) , case 1% $loat altura7base7area5print$(4ingrese 'atos%8n4) print$(4Altura%8n4) scan$(46$47>altura) print$(4ase%8n4) scan$(46$47>base) area5base9alturaprint$(4el area es 6$ 8n47area5) breacase 3% $loat la'oa7la'ob7la'oc7areaT7pprint$(4ingrese 'atos%8n4) print$(4cateto%8n4) scan$(46$47>la'oa) print$(4cateto%8n4) scan$(46$47>la'ob) print$(4ipotenusa%8n4) scan$(46$47>la'oc)-
p(la'oala'obla'oc)]3areaTs#rt(p9(pla'oa)9(pla'ob)9(pla'oc))print$(4el area es 6$ 8n47areaT)breacase /% $loat ra'io7areaCprint$(4ingrese 'atos%8n4)print$(4ra'io%8n4)scan$(46$47>ra'io)areaC/.1019ra'ioprint$(4el area es 6$ 8n47areaC)brea'e$ault% print$(4Error8n4)brea; print$(4'esea +ol+er a intentar%8n4)scan$(46s47>resp)-
; ^ile(resp_s_resp_<_); 1Q) ?a@ un programa tal #ue% 'a'os 3 +ectores 'el espacio7 calcule su pro'ucto escalar7 pro'ucto +ectorial ! a'ems nos ' el m='ulo 'e los 'os +ectores ! tambin el m='ulo 'el pro'ucto +ectorial. &inclu'e st'io.* &inclu'e mat.* int main(), $loat J17J37!17!37@17@37pe7p+J7p+!7p+@7mo'17mo'37mo'+print$(4ingrese coor'ena'as 'e su +ector 1 en el espacio%8n4)print$(4coor'ena'a en Y 8n4)scan$(46$47>J1)print$(4coor'ena'a en 8n4)scan$(46$47>!1)print$(4coor'ena'a en h 8n4)scan$(46$47>@1)print$(4ingrese coor'ena'as 'e su +ector 3 en el espacio%8n4)print$(4coor'ena'a en Y 8n4)scan$(46$47>J3)print$(4coor'ena'a en 8n4)scan$(46$47>!3)print$(4coor'ena'a en h 8n4)scan$(46$47>@3)peJ19J3!19!3@19@3p+J(!19@3@19!3)p+!(J19@3@19J3)-
p+@(J19!3!19J3)mo'1s#rt((J19J1)(!19!1)(@19@1))mo'3s#rt((J39J3)(!39!3)(@39@3))mo'+s#rt((p+J9p+J)(p+!9p+!)(p+@9p+@))print$(4a 9 b 6$ 8n47pe)print$(4a J b 6$ i 6$ X 6$ @ 8n47p+J7p+!7p+@)print$(4a 6$ 8n47mo'1)print$(4b 6$ 8n47mo'3)print$(4a J b 6$ 8n47mo'+); 1S) ?a@ un programa #ue B'ibuXe[ un rectangulo 'e asteriscos a partir 'e la base ! la altura. &inclu'e st'io.* &inclu'e mat.* int main() , int base7alturaprint$(4intro'usca base %8n4) scan$(46'47>base)print$(4intro'usca altura %8n4) scan$(46'47>altura)-
$or(int i1- ialtura- i) , $or(int X1- Xbase - X) , i$(i1 ialtura) , print$(494); else , i$(X1 Xbase) , print$(494); else , print$(4 4); ; ; print$(48n4)-
;
;&inclu'e st'io.* &inclu'e mat.* int main() , int base7alturaprint$(4intro'usca base %8n4) scan$(46'47>base)print$(4intro'usca altura %8n4) scan$(46'47>altura)-
$or(int i1- ialtura- i) , $or(int X1- Xbase - X) , i$(i1 ialtura) , print$(494); else , i$(X1 Xbase) , print$(494); else , print$(4 4); ; ; print$(48n4);
; 1Z) ?a@ un programa #ue 'ibuXe un cua'ra'o7 con el carcter #ue #uieras7 a partir 'el la'o. &inclu'e st'io.* &inclu'e mat.* int main() , int la'ocar caracterprint$(4intro'usca caracter con el cual 'esea 'ibuXar %8n4) scan$(46c47>caracter)print$(4intro'usca la'o %8n4) scan$(46'47>la'o)-
$or(int i1- ila'o- i) , $or(int X1- Xla'o - X) , i$(i1 ila'o) , print$(46c47caracter); else , i$(X1 Xla'o) , print$(46c47caracter); else , print$(4 4); ; ; print$(48n4);
12) ?a@ un programa #ue Banalice[ las +ocales7 consonantes ! espacios en blanco 'e un teJto. &inclu'e st'io.* &inclu'e ct!pe.* int main() , car cint n7+7a7e7i7o7uprint$(48nEscribe un teJto7 ! acaba con un punto8n8n4)c_ _ nG +G aG eG iG oG uG^ile(c ` _8n_) , ctoupper(getcar())i$ (c_A_) , ++1-
aa1; i$ (c_E_) , ++1ee1; i$ (c_I_) , ++1ii1; i$ (c_O_) , ++1oo1; i$ (c_U_) , ++1uu1; nn1; print$(48n Caracteres 6' Vocales 6'47n7+)print$(48nA 6' E 6' I 6' O 6' U 6' 47a7e7i7o7u)-
; 3G) ?a@ un programa #ue nos pi'a un nRmero ! ' como resulta'o la tabla 'e multiplicar 'el nRmero &inclu'e st'io.* &inclu'e mat.* int main(), int num7t7Xprint$(4ingrese un numero%8n4)scan$(46'47>num)$or(int i1-i13-i), Xitnum9iprint$(46' 9 6' 6' 8n47num7X7t); ; 31) ?a@ un programa #ue calcule el nRmero Be[ me'iante el 'esarrollo en serie% e 1 1](1`) 1](3`) 1](/`) 1](0`) ...
33
AUTOEVALUACIÓN / 1) ?a@ un programa #ue calcule el pro'ucto +ectorial 'e 3 +ectores 'el espacio.