PROGRAMA #1 Realizar un programa que nos permita sumar dos números. #include #include void main() /* Suma dos valores */ { int num1=4,num2,num=!" rint$(%&l valor valor de de num1 es 'd%,num1)" rint$(%n&l valor de num es 'd%,num)" num2=num1num" rint$(%nnum1 num = 'd%,num2)" etch()" PROGRAMA #2 Programa que calcula el perímetro de un círculo. #include #de$ine i .141! #de$ine escri+e rint$ void main() /* alcula el er-metro */ { int r" escri+e(%ntroduce el radio radio %)" scan$(%'d%,0r)" escri+e(%&l er-metro es '$%,2*i*r)" etch()" PROGRAMA #3 eer dos números enteros ! escri"ir el ma!or o un mensae si son iguales. #include #include void main() { int a=,+=" rint$(%nnt nrese el rimer valor %)" scan$(%'d%,0a)" scan$(%'d%,0a)" rint$(%nnt nrese el seundo valor %)" scan$(%'d%,0+)" scan$(%'d%,0+)" i$(a>+) rint$(%nnt &l valor valor maor maor es 'd%,a)" else i$(+>a) rint$(%nnt &l maor es 'd%,+)" else rint$(%Son iuales%)" etch()" PROGRAMA #$ eer un car%cter car%cter ! ! dos números enteros. &i el car%cter leído es un operador aritm'tico calcular la operaci(n correspondiente) si es cualquier otro mostrar error. *acer el programa utilizando i+,else. i+,else. #include #include void main() { int a,+,r" char o" rint$(%nnt nrese el caracter %)" scan$(%'c%,0o)" scan$(%'c%,0o)" rint$(%nnt nrese el rimer valor %)" scan$(%'d%,0a)" scan$(%'d%,0a)" rint$(%nnt nrese el seundo valor %)" scan$(%'d%,0+)" scan$(%'d%,0+)" i$(o==33) r=a+" else i$(o==33) r=a+" else i$(o==3*3) r=a*+" else i$(o==3/3) r=a/+" else i$(o==3'3) r=a'+" else rint$(%&rror%)" i$(o==3355o==3355o==3*355o==3/355o==3'3) i$(o==3355o==3355o==3*355o==3 /355o==3'3) rint$(%nnt 6a resuesta es 'd%,r)" etch()"
PROGRAMA #- *acer el mismo programa usando la instrucci(n sitc/. eer un car%cter ! dos números enteros. &i el car%cter leído es un operador aritm'tico calcular la operaci(n correspondiente) si es cualquier otro mostrar error. #include #include void main() { int n1,n2,r" char o" rint$(%nnt nrese el caracter %)" scan$(%'c%,0o)" rint$(%nnt nrese el rimer valor %)" scan$(%'d%,0n1)" rint$(%nnt nrese el seundo valor %)" scan$(%'d%,0n2)" s7itch(o) { case 33 r=n1n2" +rea8" case 33 r=n1n2" +rea8" case 3*3 r=n1*n2" +rea8" case 3/3 r=n1/n2" +rea8" case 3'3 r=n1'n2" +rea8" de$ault rint$(%&rror%)" +rea8" rint$(%nnt Su resuesta es 'd%,r)" etch()" PROGRAMA #0 eer un número entero ! isualizar su ta"la de multiplicar. #include #include void main() { int a=,c=,r=" rint$(%nnt nrese un n9mero %)" scan$(%'d%,0a)" 7hile(c<12) { c" r=a*c" rint$(%nnt &l resultado es 'd%,r)" etch()" PROGRAMA # Generar enteros de 3 en 3 comenzando por el 2 /asta el alor m%imo menor que 34. 5alcular la suma de los enteros generados que sean diisi"les por -67 #include #include void main() { int s=,a=2" $or(a=2"a<"a=)
{ rint$(%'d%,a)" i$(a':==) s=a" rint$(%nnt 6a suma de #s divisi+les ara : es 'd%,s)" etch()" PROGRAMA #8 Promedio de una serie de números que +inaliza al introducir el 999. :l 999 no de"e ser tenido en cuenta para la media. #include #include void main() { int s=,a=,d=,m=" do { rint$(%nrese un n9mero %)" scan$(%'d%,0a)" i$(a;=) { s=a" d" 7hile(a;=)" m=s/d" rint$(%nnt 6a media es 'd%,m)" etch()" PROGRAMA #9 Presentar los números per+ectos del 1 al 1444. ;n número es per+ecto cuando es igual a la suma de sus diisores ecepto el mismo. #include #include void main ( ) { int c=2, d=1, a=" clrscr ( )" $or (c=2"c<=1"c) {$or (d=1"c>d"d) {$ (c'd==) a=c" i$ (c==a) rint$ (%n umeros er$ectos 'd%,c)" d=1" a=" etch ( )" PROGRAMA # 14 eer un número entero positio ! aeriguar si es per+ecto. ;n número es per+ecto cuando es igual a la suma de sus diisores ecepto el mismo. #include #include void main() { int a=,+=,d" rint$(%nnt nrese un numero %)" scan$(%'d%,0d)" do { +" i$((d'+)==)
a=a+" 7hile(+;=(d1))" i$(d==a) { rint$(%nnt &l numero es er$ecto %)" else rint$(%nnt &l numero no es er$ecto %)" etch()" PROGRAMA #11 eer dos números enteros a ! " ma!ores o iguales que cero ! calcular su producto mediante sumas. #include #include #include void main() { int a=,+=,d=,m=" clrscr()" rint$(%nnt nrese un numero %)" scan$(%'d%,0a)" rint$(%nnt nrese un numero %)" scan$(%'d%,0+)" i$(a>= 00 +>=) { 7hile(d<+) { m=ma" d" rint$(%nnt6a multilicacin es iual'd%,m)" else rint$(%nnt 6os n9meros son incorrectos%)" etch()" PROGRAMA #12 eer un numero entero ! aeriguar si es o no múltiplo de 9. ;n número es múltiplo de 9 si la suma de sus ci+ras es 9 o múltiplo de 9. :<.= 99 es múltiplo pues 9>9?18) que a su ez 1>8?9 #include #include #include void main() { int a=" clrscr()" rint$(%nnt nrese un numero %)" scan$(%'d%,0a)"
PROGRAMA #12 eer un numero entero ! aeriguar si es o no múltiplo de 9. ;n número es múltiplo de 9 si la suma de sus ci+ras es 9 o múltiplo de 9. :<.= 99 es múltiplo pues 9>9?18) que a su ez 1>8?9 #include #include #include void main() { int a=" clrscr()" rint$(%nnt nrese un numero %)" scan$(%'d%,0a)" i$(a>) i$(a'==) { rint$(%nnt &l numero 'd es multilo de %,a)" i$(>=a) i$('a==) { rint$(%nnt &l numero 'd es m9ltilo de %,a)" else rint$(%nnt o es m9ltilo de %)" etch()" PROGRAMA #13 Generar los @ primeros t'rminos de la serie +i"onacci. :l alor de @ entero ! positioB de"er% ser leído por teclado. :n esta serie los dos primeros números son 1) ! el resto se o"tiene sumando los dos anteriores= 1)1)2)3)-)8)13)21)... #include #include void main() { int a=,+=1,c=,n=,cont=1" clrscr()" rint$(%nnt nrese un numero %)" scan$(%'d%,0n)" 7hile(cont #include int rimo(int ?)" void main() { int n=,=,c="
rint$(%nnt nrese un n9mero %)" scan$(%'d%,0n)" $or(c=1"c
PROGRAMA #10 eer una +ec/a en +ormato día) mes) aEo) aeriguar si es correcta e indicar el día siguiente. #include #include int veri@$echa (int, int, int)" void dia@si (int, int, int)" void main () { int d, m, a, c" clrscr()" oto?(1,4)" rint$(Anrese $echa nB)" do {oto?(1C,!)" rint$(A A)" oto?(1,!)" rint$(Adia A)" oto?(1C,!)" scan$(A'dB,0d)" 7hile(d<1 55 d>1)" do { oto?(1C,C)" rint$(A A)"oto?(1,C)" rint$(AmesB)" oto?(1C,C)" scan$(A'dB,0m)" 7hile (m<1 55 m>12)" do {oto?(1C,D)" rint$(A A)" oto?(1,D)" rint$(AaEoB)" oto?(1C,D)" scan$(A'dB,0a)" 7hile (a<1)" c= veri@$echa(d,m,a)"
i$(c==1) { oto?(1,1)" rint$(A$echa correctaB)" dia@si(d,m,a)" oto?(1,12)" rint$(Adia siuienteB)" else { oto?(1,1)" rint$(A$echa incorrectaB)" etch()" int veri@$echa(int d, int m, int a) { i$(m==1 55 m== 55 m==: 55 m==C 55 m==D 55 m==1 5m==12) i$(d<=1) return (1)" else return ()" else i$ (m==2) i$((a'4==) 00 (a'1;=) 55 (a'4==)) i$(d<=2) return(1)" else return()" else i$(d<=2D) return(1)" else return()" else i$(d<=) return(1)" else return()" void dia@si(int d, int m, int a) { i$(m==1 55 m==55 m==: 55 m==C 55 m==D 55 m==1 55 m==12) { i$(d==1) { i$(m==12) {d=1" m=1" a" oto?(1,1)"rint$(A'd 'd 'dB,d,m,a)" else { d=1" m" oto?(1,1)" rint$(A'd 'd 'dB,d,m,a)" else { d" oto?(1,1)" rint$(A'd 'd 'dB,d,m,a)" else { i$(m==2) {
i$((a'4==)00(a'1;=)55(a'4==)) { i$(d==2) {d==1" m" oto?(1,1)" rint$(A'd 'd 'dB,d,m,a)"
else { d" oto?(1,1)" rint$(A'd 'd 'dB,d,m,a)" else { i$(d==2D) { d=1" m" oto?(1,1)" rint$(A'd 'd 'dB,d,m,a)" else { d" oto?(1,1)" rint$(A'd 'd 'dB,d,m,a)"
else { i$(d==) { d" m" oto?(1,1)" rint$(A'd 'd 'dB,d,m,a)"
else { d" oto?(1,1)" rint$(A'd 'd 'dB,d,m,a)"
PROGRAMA #1 Fmplementar un programa que sea capaz de calcular el resultado de aplicarla +ormula siguiente n iB?n7i6n,iBB. Para ello se dispone de dos +unciones) una de ellas lee un numero por teclado que de"e ser ma!or e igual que cero teniendo en cuenta adem%s que n tiene que ser necesariamente ma!or que i la otra +unci(n calcular el +actorial de un número. #include #include int lee@numero()" $loat $actorial(int)" void main() { int n,i" clrscr()" i= lee@numero()" do {
n=lee@numero()" 7hile(n #include void main ( ) { int d, r=" clrscr ( )" rint$ (%n inrese un n9mero %)" scan$ (%'d%,0d)" i$ ((d>)00(d<2)) r=d'C" s7itch (r) { case 1 rint$ (%n lunes%)" +rea8" case 2 rint$ (%n martes%)" +rea8" case rint$ (%n miGrcoles%)" +rea8" case 4 rint$ (%n Hueves%)" +rea8" case : rint$ (%n viernes%)" case ! rint$ (%n sa+ado%)" +rea8" de$ault rint$ (%n domino%)" etch ( )"
PROGRAMA #19 Fngresar un número por teclado que a!a del 1 al 31 ! presentar el día correspondiente si el primer día del mes ca!( lunes #include #include void main ( ) { int ?, n" clrscr ( )" do { rint$ (%n inrese un n9mero del d -a %)" scan$ (%'d%,0n)" ?=n'C" s7itch (?) { case 1 rint$ (%n lunes%)" +rea8" case 2 rint$ (%n martes%)" +rea8" case rint$ (%n miGrcoles%)" +rea8" case 4 rint$ (%n Hueves%)" +rea8" case : rint$ (%n viernes%)" +rea8" case ! rint$ (%n sa+ado%)" +rea8" de$ault rint$ (%n domino%)" +rea8" etch ( )" PROGRAMA #24 Fngresar un número por teclado ! mostrar los números de la serie +i"onaci de 1 /asta n siempre ! cuando los números sean impares //Iila #1 #include #include void main ( ) { int c=, i=, a=, +=1" clrscr ( )" 7hile (i<:) { c=a+" i$ ((c'2;=)00(c'==)) { rint$ (%n 'd%,c)" i" a=+" a=c" etch ( )" PROGRAMA #21 Fngresar un número n ! presentar los números per+ectos de 1 /asta n. ;n número es per+ecto cuando es igual a la suma de sus diisores ecepto el mismo. //Iila #2 #include #include void main ( ) { int c, i, s, n" clrscr ( )" rint$ (%nrese un n9mero%)" scan$ (%'d%,0 n)" $or (i=1"i<=n"i)
{
s=" $or (c=1"c #include void main ( ) { int n, d, c, H, r=" clrscr ( )" rint$ (%inrese un numero%)" do {scan$ (%'d%,0n)" 7hile (n<=)" $or (c=1"c<=n"c) { $or (H=1"H<=c"H) { r=c'H" i$ (r==) d" i$ (d<=2) rint$ (%n el numero 'd es rimo%,c)" d=" etch ( )" PROGRAMA #23 Fngresar un número n ! mostrar el +actorial de 1 /asta n es decir de cada número /asta el número ingresado. 77Hila #$ #include #include void main ( ) { int n, i, $=1" clrscr ( )" rint$ (%inrese un numero%)" scan$ (%'d%,0n)" $or (i=1"i<=n"i) { $=$*i" rint$ (%n el $actorial de 'd; es 'd%,i,$)" etch ( )" JFKLFMNM #24 Jresentar cuantas veces se reitieron cada numero de un dado normal con una $uncin aleatoria. Oonde se de+e lanPar el dado 1 veces
#include #include #include void main() { int uno=, dos=, tres=, cuatro=, cinco=, seis=, cara" clrscr()" $or(int i=1"i<=1"i) { cara=random(!)1" s7itch (cara) { case 1 uno" +rea8" case 2 dos" +rea8" case tres" +rea8" case 4 cuatro" +rea8" case : cinco" +rea8" case ! seis" +rea8" rint$(%n*****6MQMN&RKS*****%)" rint$(%n cara 1 'd%, uno)" rint$(%n cara 2 'd%, dos)" rint$(%n cara 'd%, tres)" rint$(%n cara 4 'd%, cuatro)" rint$(%n cara : 'd%, cinco)" rint$(%n cara ! 'd%, seis)" etch()"
6eer ms htt//777.monora$ias.com/tra+aHos14/eHerciciosroramacionresueltos/eHercicios roramacionresueltos.shtml#i?PP4THOUQcNV
6eer ms htt//777.monora$ias.com/tra+aHos14/eHerciciosroramacionresueltos/eHercicios roramacionresueltos.shtml#i?PP4TH$K&W
