Tarea Principio de Algoritmos-Semana 7
Tarea Principio de Algoritmos-Semana 7
Tarea Principio de Algoritmos-Semana 7
TAREA
1. Realice un programa tal que, al ingresar un carácter, determine si éste es una vocal en
mayúscula o minúscula, o es una consonante.
Algoritmo Ejercicio_1
Definir L Como Caracter
Escribir "Ingrese una vocal:"
Leer L;
Segun L hacer
'a','e','i','o','u':
EScribir "Es una vocal minúscula"
'A','E','I','O','U':
Escribir "Es una vocal mayúscula"
De Otro Modo:
Escribir "Es una consonante"
FinSegun
FinAlgoritmo
Algoritmo Ejercicio_2
Definir N Como Entero
Escribir "Ingrese un número del 1 al 12:"
Leer N
Segun N hacer
1:
Escribir "ENERO", " tiene ", 31 " días"
2:
Escribir "FEBRERO", " tiene ", 28 " días"
3:
Escribir "MARZO", " tiene ", 31 " días"
4:
Escribir "ABRIL", " tiene ", 30 " días"
5:
Escribir "MAYO", " tiene ", 31 " días"
6:
Escribir "JUNIO", " tiene ", 30 " días"
7:
Escribir "JULIO", " tiene ", 31 " días"
8:
Escribir "AGOSTO", " tiene ", 31 " días"
9:
Escribir "SETIEMBRE", " tiene ", 30 " días"
10:
Escribir "OCTUBRE", " tiene ", 31 " días"
11:
Escribir "NOVIEMBRE", " tiene ", 30 " días"
12:
Escribir "DICIEMBRE", " tiene ", 31 " días"
De Otro Modo:
Escribir "No es una opción válida";
FinSegun
FinAlgoritmo
Algoritmo Ejercicio_3
Definir x,V Como Real
Escribir "Ingrese un un valor para X "
Leer x;
Definir f Como Real
V= x mod 4;
Segun V hacer
0:
f=x^3
1:
f=((x^2-14))/(x^3)
2:
f=x^3+5
3:
f=0
FinSegun
Escribir "Respuesta:" f;
FinAlgoritmo
Algoritmo Ejercicio_4
Definir Call como entero
Escribir "Ingrese el destino al cual desea llamar:"
Escribir "Opción 1 .....................EEUU"
Escribir "Opción 2 .....................CANADA"
Escribir "Opción 5 .....................AMERICA DEL SUR"
Escribir "Opción 6 .....................AMERICA CENTRAL"
Escribir "Opción 7 .....................MEXICO"
Escribir "Opción 9 .....................EUROPA"
Escribir "Opción 10 .....................ASIA"
Escribir "Opción 15 .....................AFRICA"
Escribir "Opción 20 .....................OCEANIA"
Leer Call
Definir Costo como real
Definir t como real
Escribir "Ingrese el duracion de llamada en segundos:"
Leer t;
Segun Call hacer
1:
Costo=(t/60)*0.13
2:
Costo=(t/60)*0.11
5:
Costo=(t/60)*.22
6:
Costo=(t/60)*0.19
7:
Costo=(t/60)*0.17
9:
Costo=(t/60)*0.17
10:
Costo=(t/60)*0.2
15:
Costo=(t/60)*39
20:
Costo=(t/60)*28
FinSegun
Escribir "El costo por llamada es de: " Costo " nuevos soles";
FinAlgoritmo
Algoritmo Ejercicio_5
Definir edad, Tratamiento,Costo como entero
Escribir "Ingrese su edad:"
Leer edad;
Si edad>60 entonces
Escribir "Ingrese un número del 1 al 4 segun su tratamiento:"
Leer Tratamiento;
Segun Tratamiento hacer
1:
Costo=2800-(2800*0.25)
2:
Costo=1950-(1950*0.25)
3:
Costo=2500-(2500*0.25)
4:
Costo=1150-(1150*0.25)
FinSegun
SiNo
Si edad<25 Entonces
Escribir "Ingrese un número del 1 al 4 segun su
tratamiento:"
Leer Tratamiento;
Segun Tratamiento hacer
1:
Costo=2800-(2800*0.15)
2:
Costo=1950-(1950*0.15)
3:
Costo=2500-(2500*0.15)
4:
Costo=1150-(1150*0.15)
FinSegun
SiNo
Escribir "Ingrese un número del 1 al 4 segun su tratamiento:"
Leer Tratamiento;
Segun Tratamiento hacer
1:
Costo=2800
2:
Costo=1950
3:
Costo=2500
4:
Costo=1150
FinSegun
FinSi
FinSi
Escribir "Su costo de internamiento segun su tratamiento es de:" Costo "
nuevos soles.";
FinAlgoritmo
Si Articulo='1' entonces
Po=470
Dsct1=Po*0.1
Escribir "Zapatillas Jordan Air" " Clave: " '01';
Escribir "Su precio original es de:" Po;
Escribir "Su descuento es de:" Dsct1;
SiNo
Si Articulo='2' entonces
Po=325
Dsct2=Po*0.2
Escribir "Zapatos Caterpillar" " Clave: " '02';
Escribir "Su precio original es de:" Po;
Escribir "Su descuento es de:" Dsct2;
FinSi
FinSi
FinAlgoritmo
7. Escriba un seudocódigo que calcule el importe a pagar por un vehículo al circular por
una autopista. El vehículo puede ser una bicicleta, una moto, un coche, o un camión.
Para definir el conjunto vehículos utilizaremos un tipo enumerado. El importe se
calculará según los siguientes datos:
Algoritmo Ejercicio_7
Definir vehiculo Como Entero
Escribir "Ingrese un numero del 1 al 5 sabiendo que:";
Escribir "Opcion 1........ BICICLETA"
Escribir "Opcion 2........ MOTO"
Escribir "Opcion 3........ CARRO"
Escribir "Opcion 4........ CAMION"
Escribir "Opcion 5........ SALIR"
Leer vehiculo
Definir Importe,km,T Como Real
Segun vehiculo hacer
1:
Importe=100
2:
Escribir "Ingrese su kilometraje"
Leer km;
Importe=30*km
3:
Escribir "Ingrese su kilometraje"
Leer km;
Importe=30*km
4:
Escribir "Ingrese su kilometraje"
Leer km;
Escribir "Ingrese su tonelaje"
Leer T;
Importe=30*km+25*T
5:
Escribir "Usted salió"
FinSegun
Escribir "Su importe total a pagar es de:" Importe " nuevos soles.";
FinAlgoritmo
Algoritmo Ejercicio_8
Definir vehiculo Como Entero
Escribir "Ingrese un número del 1 al 4 considerando que:";
Escribir "Opción 1...... Cutlas"
Escribir "Opción 2...... Cavalier"
Escribir "Opción 3...... Chevy"
Escribir "Opción 4...... Century"
Leer vehiculo;
Definir Costo como real
Segun vehiculo hacer
1:
Costo=25000-(25000*0.08)
2:
Costo=32000-(32000*0.05)
3:
Costo=27800-(27800*0.06)
4:
Costo=41000-(41000*0.09)
De Otro Modo:
Escribir "El modelo no es válido";
FinSegun