10 PROGRAMAS CON IF – BELITO MORAN ROSSBELL
1. PROGRAMA PARA DETERMINAR EL MONTO A PAGAR POR TANTOS CUADERNOS
disp('PROGRAMA PARA DETERMINAR EL MONTO A PAGAR POR TANTOS CUADERNOS')
disp('HAY REBAJA POR COMPRAS MAYOR A 5 CUADERNOS')
cuadernos=input('ingrese el numero de cuadernos:');
costo=cuadernos*25 %coste de cuadernos'
if cuadernos>5; %aplicar 20% de descuento por cantidad'
'con descuento del 20% el costo es'
descuento=((100-20)/100)*costo;
disp([descuento])
end
disp('GRACIAS POR SU COMPRA')
CORRIENDO PROGRAMA
PROGRAMA PARA DETERMINAR EL MONTO A PAGAR POR TANTOS CUADERNO
HAY REBAJA POR COMPRAS MAYOR A 5 CUADERNOS
ingrese el numero de cuadernos:7
costo =
175
ans =
con descuento del 20% el costo es
140
GRACIAS POR SU COMPRA
2. PROGRAMA PARA ORDENAR TRES NUMEROS EN FORMA ASCENDENTE
%Programa Para Ordenar 3 Números En Forma Ascendente%
disp('INGRESA TRES NUMEROS Y SE ORDENARAN EN FORMA ASCENDETE')
n1=input('ingrese el primer numero:');
n2=input('ingrese el segundo numero:');
n3=input('ingrese el tercer numero:');
if n1 ~= n2 & n2 ~= n3; %restricción para números iguales%
if n1>=n2 & n2>=n3;
disp([n3 n2 n1])
end
if n1>=n2 & n3>=n2 & n1>=n3;
disp([n2 n3 n1])
end
if n2>=n1 & n1>=n3;
disp([n3 n1 n2])
end
if n2>=n1 & n3>=n1 & n2>=n3;
disp([n1 n3 n2])
end
if n3>=n1 & n1>=n2;
disp([n2 n1 n3])
end
if n3>=n1 & n2>=n1 & n3>=n2;
disp([n1 n2 n3])
end
else
disp([n1 n2 n3]) %en caso contrario si son iguales%
end
disp('GRACIAS')
CORRIENDO PROGRAMA
INGRESA TRES NUMEROS Y SE ORDENARAN EN FORMA ASCENDETE
ingrese el primer numero:pi
ingrese el segundo numero:-1
ingrese el tercer numero:cos(85)
-1.0000 -0.9844 3.1416
GRACIAS
3. PROGRAMA PARA CALCULAR EL ESPACIO EN MRUV
disp('PROGRAMA PARA CALCULAR EL ESPACIO EN MRUV')
vo=input('ingrese la velocidad inicial(m/s) v: ');
t=input('ingrese el tiempo(s) t: ');
if t<0
t=input('ingresar el tiempo(s) valores positivos t: ');
end
a=input('ingrese la aceleración(m/s^2) a: ');
e=vo*t+(1/2)*a*(t^2);
disp('----------------------------------------------------------')
disp(' vo t a e')
fprintf('%5.0f\t',vo);
fprintf('%5.0f\t',t);
fprintf('%5.0f\t',a);
fprintf('%5.0f\n',e);
disp('GRACIAS')
CORRIENDO PROGRAMA
PROGRAMA PARA CALCULAR EL ESPACIO EN MRUV
ingrese la velocidad inicial(m/s) v: 15
ingrese el tiempo(s) t: 58
ingrese la aceleración(m/s^2) a: 4
----------------------------------------------------------
vo t a e
15 58 4 7598
GRACIAS
4. PROGRAMA PARA SABER ¿QUÉ EQUIPO HA GANADO?
disp('=============================================================')
disp('¿QUE EQUIPO HA GANADO?')
disp('=============================================================')
x= input('GOLES DEL EQ. LOCAL=');
y= input('GOLES DEL EQ. VISITANTE =');
disp('=============================================================')
if x<y
disp('EL EQUIPO LOCAL TIENE :')
disp(x)
disp('EL EQUIPO VISITANTE TIENE :')
disp(y)
disp('COMO EL EQUIPO VISITANTE TIENE MAS GOLES, ES EL GANADOR')
end
if x>y
disp('EL EQUIPO LOCAL TIENE :')
disp(x)
disp('EL EQUIPO VISITANTE TIENE :')
disp(y)
disp('COMO EL EQUIPO LOCAL TIENE MAS GOLES, ES EL GANADOR')
end
if x==y
disp('EL EQUIPO LOCAL TIENE :')
disp(x)
disp('EL EQUIPO VISITANTE TIENE :')
disp(y)
disp('COMO EL EQUIPO VISITANTE Y EL EQUIPO LOCAL TIENEN')
disp('LA MISMA CANTIDAD GOLES, ESTO ES UN EMPATE')
end
disp('=============================================================')
CORRIENDO PROGRAMA
=============================================================
¿QUE EQUIPO HA GANADO?
=============================================================
GOLES DEL EQ. LOCAL=4
GOLES DEL EQ. VISITANTE =1
=============================================================
EL EQUIPO LOCAL TIENE :
EL EQUIPO VISITANTE TIENE :
COMO EL EQUIPO LOCAL TIENE MAS GOLES, ES EL GANADOR
=============================================================
5. PROGRAMA QUE CALCULA LAS SOLUCIONE REALES DE UNA ECUACION DE SEGUNDO GRADO
AX2+BX+C = 0. EL PROGRAMA DEBE DEVOLVER EL NÚMERO DE SOLUCIONES DISTINTAS (UNA
SI b2-4ac=0, DOS SI b2-4ac>0 NINGUNA SI b2-4ac<0) Y CUALES SON ESAS SOLUCIONES:
disp('================================')
a = input('INGRESE EL VALOR DE A= ');
b = input('INGRESE EL VALOR DE B= ');
c = input('INGRESE EL VALOR DE C= ');
disp('================================')
if (b^2)-(4*a*c)==0
x=-b/(2*a);
disp('TIENE UNA SOLUCION = ')
disp(' X ES IGUAL A :'), disp(x)
else
if (b^2)-(4*a*c)>0
x(1)=-b+sqrt((b.^2)-(4*a*c));
x(2)=-b-sqrt((b.^2)-(4*a*c));
disp('TIENE DOS SOLUCIONES = ')
disp('X1 ES IGUAL A:');
disp(x(1));
disp('X2 ES IGUAL A:')
disp(x(2))
else (b^2)-(4*a*c)<0
clc
disp('================================')
disp('NO TIENE SOLUCION')
end
end
disp('================================')
CORRIENDO PROGRAMA
================================
INGRESE EL VALOR DE A= 9
INGRESE EL VALOR DE B= 5
INGRESE EL VALOR DE C= 0
================================
TIENE DOS SOLUCIONES =
X1 ES IGUAL A:
X2 ES IGUAL A:
-10
================================
6. PROGRAMA PARA HALLAR EL CUADRANTE DE UN PUNTO X,Y
disp('=======================================')
x=input('PUNTO EN EL EJE X = ');
y=input('PUNTO EN EL EJE Y = ');
disp('=======================================')
if x>0 & y>0
disp('EL PUNTO X ES POSITIVO,')
disp('EL PUNTO Y ES POSITIVO')
disp('Y PERTENECEN AL PRIMER CUADRANTE')
end
if x<0 & y>0
disp('EL PUNTO X ES NEGATIVO,')
disp('EL PUNTO Y ES POSITIVO')
disp('Y PERTENECEN AL SEGUNDO CUADRANTE')
end
if x<0 & y<0
disp('EL PUNTO X ES NEGATIVO,')
disp('EL PUNTO Y ES NEGATIVO')
disp('Y PERTENECEN AL TERCER CUADRANTE')
end
disp('=======================================')
disp('================FIN====================')
CORRIENDO PROGRAMA
PUNTO EN EL EJE X = -26
PUNTO EN EL EJE Y = -14
=======================================
EL PUNTO X ES NEGATIVO,
EL PUNTO Y ES NEGATIVO
Y PERTENECEN AL TERCER CUADRANTE
=======================================
================FIN====================
7. PROGRAMA PARA SABER SI UN TRIANGULO ES ESCALENO EQUILATERO ISOCELES O
RECTANGULO
disp('====================================================')
a=input('ingrese el primer lado :');
b=input('ingrese el segundo lado :');
c=input('ingrese el tercer lado :');
disp('====================================================')
if a==b & b==c & c==a
disp('EL TRIAGULO ES EQUILATERO')
end
if a==b & a~=c & b~=c
disp('EL TRIANGULO ES ISOCELES ')
end
if a~=b & b~=c & a~=c
disp('EL TRIANGULO ES ESCALENO')
end
if a^2==b^2+c^2 & a>b & c<a
disp('EL TRIANGULO ES RECTANGULO')
end
disp('====================================================')
CORRIENDO PROGRAMA
====================================================
ingrese el primer lado :5
ingrese el segundo lado :4
ingrese el tercer lado :3
====================================================
EL TRIANGULO ES ESCALENO
EL TRIANGULO ES RECTANGULO
====================================================
8. PROGRAMA PARA HALLAR SI UNA FIGURA ES UN TRIANGULO CUADRADO O POLIGONO
disp('PROGRAMA PARA HALLAR SI UNA FIGURA ES UN TRIANGULO CUADRADO O
POLIGONO')
x=input('Ingrese numero de lados de una figura: ');
disp('****************************************')
if x<3,
disp('La figura es un punto o una linea');
else
if x>2 & x<4,
disp('La figura es un TRIANGULO');
else
if x>3 & x<5,
disp('La figura es un CUADRADO');
else
if x>4,
disp('La figura pertenece a los POLIGONOS');
end
end
end
end
disp('GRACIAS')
CORRIENDO PROGRAMA
PROGRAMA PARA HALLAR SI UNA FIGURA ES UN TRIANGULO CUADRADO O POLIGONO
Ingrese numero de lados de una figura: 5
****************************************
La figura pertenece a los POLIGONOS
GRACIAS
9. PROGRAMA PARA SABER SI UN VENDEDOR ES EFICIENTE REGULAR O EXTRARDINARIO
disp('PROGRAMA PARA SABER SI UN VENDEDOR ES EFICIENTE REGULAR EFICIENTE O
EXTRAORDINARIO')
z=input('Ingrese numero de clientes: ')
disp('-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-')
if z>0 & z<=10;
disp('El vendedor es:');
disp('NO EFICIENTE');
disp('*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨*¨');
else
if z>10 & z<=20;
disp('El vendedor es:');
disp('REGULAR');
disp('´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´');
else
if z>20 & z<=40;
disp('El vendedor es:');
disp('EFICIENTE');
disp('//////////////////////////////////////');
else
if z>40;
disp('El vendedor es:');
disp('EXTRAORDINARIO');
disp('-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-');
end
end
end
end
disp('GRACIAS')
CORRIENDO PROGRAMA
PROGRAMA PARA SABER SI UN VENDEDOR ES EFICIENTE REGULAR EFICIENTE O EXTRAORDINARIO
Ingrese numero de clientes: 15
z=
15
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
El vendedor es:
REGULAR
´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´
GRACIAS
10. PROGRAMA PARA SABER SI UN EQUIPO DE FUTBOL JUEGA EN LA CHAMPIONS O EN LA
UEFA SEGÚN SU POSICION EN LA TABLA
disp('PROGRAMA PARA SABER SI UN EQUIPO DE FUTBOL JUEGA EN LA CHAMPIOS O
EN LA UEFA')
P=input('Ingrese la posición en la tabla de un equipo en la primera
división P=');
if P>=1 & P<=4
R=('JUEGAN LA CHAMPIONS')
else if P>=5 & P<=6
R=('JUEGAN LA UEFA')
else if P>=7 & P<=17
R=('PERMANECE')
else P>=18 & P<=20
R=('DESCIENDE')
end
end
end
disp('GRACIAS FUTBOLEROS')
CORRIENDO PROGRAMA
PROGRAMA PARA SABER SI UN EQUIPO DE FUTBOL JUEGA EN LA CHAMPIOS O EN LA UEFA
Ingrese la posición en la tabla de un equipo en la primera división P=4
R=
JUEGAN LA CHAMPIONS
GRACIAS FUTBOLEROS
