programas psint
programas psint
programas psint
Facultad de ingeniería
Coordinación de admisión y nivelación
Programación Básica ING_K
Algoritmo ejercicio1
Definir num Como Real;
Escribir "Ingrese el dato";
Leer num;
Si num>0 Entonces
Escribir "El numero es positivo";
SiNo
Si num<0 Entonces
Escribir "El numero es negativo";
SiNo
Si num=0 Entonces
Escribir "El numero es neutro";
Fin Si
Fin Si
Fin Si
FinAlgoritmo
Algoritmo ejercicio2
definir n1,n2,prom Como Real;
Escribir "Ingrese la nota del primer parcial";
Leer n1;
Escribir "Ingrese la nota del segundo parcial";
Leer n2;
prom=(n1+n2)/2;
Si prom>=7 y prom<=10 Entonces
Escribir "Aprobo";
SiNo
Si prom>=4 y prom<=6.99 Entonces
Escribir "Suspenso";
SiNo
Si prom>=0 y prom<=3.99 Entonces
Escribir "Reprobo";
Fin Si
Fin Si
Fin Si
FinAlgoritmo
FinAlgoritmo
4)Realizar un psudocodigo que permita visualizar cuanto deberia cobrar horas extras
o si no realizo horas extra tomando en cuenta que si son menores de 10 por cada
hora trabajada se le aumenta 2.27 al sueldo,si son mayores
que 10 y mayores que 20 se le aumentara 3,49 al sueldo , si son mayores que 20 y
menores que 30 se le aumentara 3.99 al sueldo y finalmente si sobrepasan las 30
horas se le aumenta 4.20 por hora al sueldo todo esto mediante
estructuras de desicion anidadas
Algoritmo ejercicio4
Definir s,h,t Como Real;
s=460;
Escribir "Ingrese sus horas trabajadas";
Leer h;
Si h>=1 y h<=10 Entonces
t=s+(h*2.27);
Escribir "Su total a cobrar es: ",t;
SiNo
Si h>=11 y h<=20 Entonces
t=s+(h*3.49);
Escribir "Su total a cobrar es: ",t;
SiNo
Si h>=21 y h<=30 Entonces
t=s+(h*3.99);
Escribir "Su total a cobrar es: ",t;
SiNo
Si h>31 Entonces
t=s+(h*4.20);
Escribir "Su total a cobrar es: ",t;
SiNo
Escribir "Usted no trabajo horas extra y cobro: ",s;
Fin Si
Fin Si
Fin Si
Fin Si
FinAlgoritmo
Algoritmo ejercicio5
definir opc Como Entero;
escribir "Bienvenidos al siguiente menu de opciones";
Escribir "__________________________________________";
escribir "1.-Lunes";
escribir "2.-Martes";
escribir "3.-Miercoles";
escribir "4.-Jueves";
escribir "5.-Viernes";
escribir "6.-Sabado";
escribir "7.-Domingo";
Escribir "__________________________________________";
escribir "Seleccione una opcion";
Leer opc;
6)Realizar un pseudocodigo con un menu de opciones que permita ser una calculadora
basica
Algoritmo ejercicio6
Definir opc Como Entero;
Definir num1,num2,result Como Real;
Escribir "Bienvenidos al siguiente menu de opciones";
Escribir "__________________________________________";
Escribir "1.-Suma";
Escribir "2.-Resta";
Escribir "3.-Multiplicacion";
Escribir "4.-Division";
Escribir "5.-Raiz Cuadrada";
Escribir "6.-50%";
Escribir "__________________________________________";
Escribir "Seleccione una opcion";
Leer opc;
6:
Escribir "Ingrese el numero que quiere sacar el 50%";
Leer num1;
result=num1*0.50;
Escribir "El 50% es: " result;
De Otro Modo:
Escribir "ERROR...";
Fin Segun
FinAlgoritmo
Algoritmo ejercicio7
Definir opc como Entero;
Definir b,h,a Como Real;
Definir u,c Como Caracter;
Escribir "Bienvenidos al siguiente menu de opciones";
Escribir "__________________________________________";
Escribir "1.-Verificacion de Usuario y Contraseña";
Escribir "2.-Area de un triangulo";
Escribir "3.-Area de un Circulo";
Escribir "4.-Area de un Rectangulo";
Escribir "__________________________________________";
Escribir "Selecciome una opcion del 1 a 4";
Leer opc;
Algoritmo ejercicio8
Definir a, b, x, cant, val, subtotal, total como Real;
Definir nom, nom_prod, dia como Caracter;
Definir opc como Entero;
Escribir "Bienvenidos al siguiente menú de opciones";
Escribir
"______________________________________________________________________";
Escribir "1.- Hallar e l valor de la siguiente ecuación";
Escribir "2.- Visualizar el nombre del cliente, cantidad del producto con
estructuras Anidadas";
Escribir "3.- Visualizar el nombre del cliente, cantidad total con
estructuras Simples o dobles";
Escribir "4.- Cancelar una factura con estructuras Anidadas";
Escribir "5.- Cancelar una factura con estructuras Simples o dobles";
Escribir
"______________________________________________________________________";
Escribir "Seleccione una opción de 1 a 5";
Leer opc;
Segun opc Hacer
1:
Escribir "Ingrese datos para la variable a y b";
Leer a, b;
Si a^2>b^4 Entonces;
x=rc(a^2-b^4);
Imprimir "El resultado es:", x;
SiNo;
Imprimir "ERROR.....Raíz imaginaria";
FinSi;
2:
Escribir "Ingrese el nombre del cliente y el nombre del producto
(con la primer letra en mayuscula)";
Leer nom,nom_prod;
Escribir "Ingrese la cantidad y el valor";
Leer cant, val;
subtotal=cant*val;
Si nom_prod="Savital" Entonces;
total=subtotal*0.75;
SiNo;
Si nom_prod="Umbrellamax" Entonces;
total=subtotal*0.70;
SiNo;
Si nom_prod="Vitalfos" Entonces;
total=subtotal*0.80;
SiNo;
Si nom_prod="VitaminaC" Entonces;
total=subtotal*0.87;
SiNo;
Si nom_prod="Asepsia" Entonces;
total=subtotal*0.82;
SiNo;
total=subtotal;
FinSi
FinSi
FinSi
FinSi
FinSi
Imprimir "El nombre del cliente es:", nom;
Imprimir "La cantidad que compro es:", cant;
Imprimir "El total a pagar es:", total;
3:
Escribir "Ingrese el nombre y producto(con la primer letra en
mayuscula):";
Leer nom, nom_prod;
Escribir "Ingrese el precio y la cantidad";
Leer val, cant;
subtotal=cant*val;
Si nom_prod="Savital" Entonces;
total=subtotal*0.75;
FinSi
Si nom_prod="Umbrellamax" Entonces;
total=subtotal*0.70;
FinSi
Si nom_prod="Vitalfos" Entonces;
total=subtotal*0.80;
FinSi
Si nom_prod="VitaminaC" Entonces;
total=subtotal*0.87;
FinSi
Si nom_prod="Asepsia" Entonces;
total=subtotal*0.82;
SiNo;
total=subtotal;
FinSi
Imprimir "El nombre del cliente es:", nom;
Imprimir "La cantidad que compro es:", cant;
Imprimir "El total a pagar es:", total;
4:
Escribir "Ingrese el nombre del cliente, el día(con la primer
letra en mayuscula) y el nombre del producto";
Leer nom, dia, nom_prod;
Escribir "Ingrese el precio y la cantidad";
Leer val, cant;
subtotal=val*cant;
Si dia="Miercoles" y nom_prod="pañales" Entonces;
total=subtotal*0.60;
SiNo;
Si dia="Jueves" y nom_prod="leche infantil" Entonces;
total=subtotal*0.75;
SiNo;
Si dia="Viernes" y nom_prod="protector solar"
Entonces;
total=subtotal*0.81;
SiNo;
total=subtotal;
FinSi
FinSi
FinSi
Imprimir "El nombre del cliente es:", nom;
Imprimir "La cantidad que compro es:", cant;
Imprimir "El total a pagar es:", total;
5:
Escribir "El nombre del cliente, el nombre del producto y el
díacon la primer letra en mayuscula)";
Leer dia, nom, nom_prod;
Escribir "Ingrese la cantidad y precio";
Leer cant, val;
subtotal=cant*val;
Si dia="Miercoles" y nom_prod="pañales" Entonces;
total=subtotal*0.60;
FinSi
Si dia="Jueves" y nom_prod="leche infantil" Entonces;
total=subtotal*0.75;
FinSi
Si dia="Viernes" y nom_prod="protector solar" Entonces;
total=subtotal*0.81;
SiNo;
total=subtotal;
FinSi
Imprimir "El nombre del cliente es:", nom;
Imprimir "La cantidad que compro es:", cant;
Imprimir "El total a pagar es:", total;
De Otro Modo:
Imprimir "ERROR";
FinSegun
FinAlgoritmo