Pseudocodigos Pseint
Pseudocodigos Pseint
Pseudocodigos Pseint
PS01MasaAire
La presin, el volumen y la temperatura de una masa de aire se relacionan por la frmula:
presinvolumen
Masa=
0.37(temperatura+460)
Elaborar un pseudocdigo que permita calcular y obtener la masa de aire de un neumtico de
automvil que tiene un volumen de 2 pies cbicos y una presin y temperatura indeterminados.
Pseudocdigo
Proceso PS01MasaAire
//Pseudocdigo que permite calcular y obtener la masa de aire de un neumtico
//Por Carlos Picasso y Alberto Porras
Definir masa, pre, vol, temp Como Real;
masa=0;
pre=0;
vol=2;
temp=0;
//Ingreso de datos
Escribir "Cul es la presin?";
Leer pre;
Escribir "Cul es la temperatura?";
Leer temp;
//Clculo
masa=(pre*vol)/(0.37*(temp+460));
//Mensaje a pantalla
Escribir "La masa de aire que tiene el neumtico es de ", masa;
FinProceso
Diagrama de flujo
Pseudocdigo
Proceso Ps02ConvrsionPiesaEquivalencias
//Pseudocdigo que convierte de pies a yardas, pulgadas, centmetros y metros
//Por Carlos Picasso y Alberto Porras
Definir ft, yd, in, cm, mts Como Real;
ft=0;
yd=0;
in=0;
cm=0;
mts=0;
//Ingreso de datos
Escribir "Cul es el nmero de pies?";
Leer ft;
//Calculo y mensaje a pantalla
yd=ft/3;
Escribir ft, "ft equivale a ", yd, "yd";
in=ft*12;
Escribir ft, "ft equivale a ", in, "in";
cm=ft*12*2.54;
Escribir ft, "ft equivale a ", cm, "cm";
mts=ft*12*2.54/100;
Escribir ft, "ft equivale a ", mts, "m";
FinProceso
Diagrama de flujo
Elaborar un pseudocdigo que lea los coeficientes a, b, c, d, e y f, y calcule e imprima los valores x
y y. En este problema se debern linealizar las frmulas para encontrar los valores de x y de y.
Adems, se deber de tomar en cuenta que no se puede hacer una divisin por 0, es decir, primero
se evala el divisor y si el resultado es 0, no se puede hacer la frmula.
Pseudocdigo
Proceso PS03SistemaEcuaciones
//Pseudocdigo para calcular los valores de x y y
//Por Carlos Picasso y Alberto Porras
Definir a, b, c, d, e, f, x, y1, r Como Real;
a=0;
b=0;
c=0;
d=0;
Pseudocdigo
Proceso PIF04Comision
//Pseudocdigo para calcular el sueldo y comisin de un empleado
//Por Carlos Picasso y Alberto Porras
Definir sueldo, comision Como Real;
sueldo=0;
comision=0;
//Ingreso de datos
Escribir "Cul es el sueldo del empleado?";
Leer sueldo;
//Clculo y mensaje a pantalla
Escribir "El sueldo del empleado es de $", sueldo;
Si sueldo>10000 Entonces
comision=sueldo*.05;
Escribir "Con una comisin de $", comision;
FinSi
FinProceso
Diagrama de flujo
Pseudocdigo
Proceso PIF05Vacuna
//Pseudocdigo que le diga a un paciente que vacunas debe de aplicarse dependiendo a
su edad
//Por Carlos Picasso y Alberto Porras
Definir edad Como Real;
edad=0;
//Ingreso de datos
Escribir "Qu edad tiene el paciente?";
Leer edad;
//Clculo basado en la edad y mensaje a mostrar en pantalla
Escribir "Siendo un paciente de ", edad, " aos debe de aplicarse las vacunas de Viruela y
Sarampin.";
Si edad<10 Entonces
Escribir "Debe de aplicarse tambin la vacuna contra Influenza.";
FinSi
Diagrama de flujo
Pseudocdigo
Proceso PIF06mayorDe4
//Pseudocdigo que diga que nmero es el mayor de 4 nmeros dados
//Por Carlos Picasso y Alberto Porras
Definir n1, n2, n3, n4 Como Real;
n1=0;
n2=0;
n3=0;
n4=0;
//Ingreso de valor de cada nmero
Escribir "Indique el valor del primer nmero";
Leer n1;
Escribir "Indique el valor del segundo nmero";
Leer n2;
Escribir "Indique el valor del tercer nmero";
Leer n3;
Escribir "Indique el valor del cuarto nmero";
Leer n4;
//Clculo de nmero mayor y mensaje a pantalla
Si n1>n2 y n1>n3 y n1>n4 Entonces
Escribir n1, " es el nmero mayor";
FinSi
Si n2>n1 y n2>n3 y n2>n4 Entonces
Escribir n2, " es el nmero mayor";
FinSi
Si n3>n1 y n3>n2 y n3>n4 Entonces
Escribir n3, " es el nmero mayor";
FinSi
Si n4>n1 y n4>n2 y n4>n3 Entonces
Escribir n4, " es el nmero mayor";
FinSi
FinProceso
Pseudocdigo
Proceso PIF07RetardoFalta
// Pseudocdigo que determine si a un alumno se le aplicar retardo o falta
// dependiendo de los minutos que llega tarde.
// Por Carlos Picasso y Alberto Porras
Definir h,m Como Real;
h<-0;
m<-0;
// Ingreso de datos
Escribir Hora de entrada del alumno (Indicar primero hora luego minutos);
Leer h,m;
// Clculo y mensaje a pantalla
Si m<=10 Entonces
Escribir El alumno tiene retardo;
Sino
Escribir El alumno tiene falta;
FinSi
FinProceso
Diagrama de flujo
Pseudocdigo
Proceso PIF08Pasaporte
// Pseudocdigo que indica si un usuario puede o no viajar al extranjero
// Por Carlos Picasso y Alberto Porras
Definir R Como Caracter;
// Ingreso de datos
Escribir Cuenta usted con pasaporte? Si/No;
Leer R;
// Mensaje a mostrar en pantalla
Si R=Si O R=si Entonces
Escribir Puede usted viajar a Europa!;
Sino
Escribir Usted slo puede viajar dentro del pas;
FinSi
FinProceso
Diagrama de flujo
Si x 0 entonces y=x 2 +6
Pseudocdigo
Proceso PIF09XY
// Pseudocdigo para calcular el valor de y, teniendo el valor de x
// Por Carlos Picasso y Alberto Porras
Definir x,y1 Como Real;
X=0;
y1=0;
// Ingreso de datos
Escribir Defina un valor para X;
Leer x;
// Clculo y mensaje a mostrar en pantalla
Si x>=0 Entonces
y1=x^2+6;
Escribir El valor de X es ,x;
Escribir El valor de Y es ,y1;
Sino
y1=3*x+6;
Escribir El valor de X es ,x;
Escribir El valor de Y es ,y1;
FinSi
FinProceso
Pseudocdigo
Proceso PIF10DosTriangulos
//Pseudocdigo que calcule el rea de dos tringulos y mande a pantalla el rea del
tringulo menor.
//Por Carlos Picasso y Alberto Porras
Definir a1, b1, h1, a2, b2, h2 Como Real;
//Ingreso de datos
Escribir "Cul es la altura del tringulo nmero 1?";
Leer h1;
Escribir "Cunto mide la base del tringulo nmero 1?";
Leer b1;
Escribir "Cul es la altura del tringulo nmero 2?";
Leer h2;
Escribir "Cunto mide la base del tringulo nmero 2?";
Leer b2;
//Clculo de reas y mensaje a mostrar a pantalla
a1=(b1*h1)/2;
a2=(b2*h2)/2;
Si a1<a2 Entonces
Escribir "El tringulo 1 tiene un rea de ", a1, "cm2, es el tringulo con menor
rea.";
Sino
Escribir "El tringulo 2 tiene un rea de ", a2, "cm2, es el tringulo con menor
rea.";
FinSi
FinProceso
Diagrama de flujo
Pseudocdigo
Proceso PIF11Elecciones
//Pseudocdigo que define quien es el ganador en una eleccin
//Por Carlos Picasso y Alberto Porras
Definir nv1, nv2, abst, p1, p2, t Como Real;
nv1=0;
nv2=0;
abst=0;
p1=0;
p2=0;
t=0;
//Ingreso de datos
Escribir "Ingrese el nmero de votos que obtuvo Juan Prez";
Leer nv1;
Escribir "Ingrese el nmero de votos que obtuvo Jess Gutirrez";
Leer nv2;
Escribir "Ingrese el nmero de abstenciones";
Leer abst;
//Definicin de porcentajes
t=nv1+nv2+abst;
//de Juan Prez
p1=nv1*100/t;
//de Jess Gutirrez
p2=nv2*100/t;
//Mensaje a pantalla
Si p1>p2 Entonces
Escribir "El ganador en la eleccin es Juan Prez con un porcentaje de votos del ",
p1, "%";
Sino
Escribir "El ganador en la eleccin es Jess Gutirrez con un porcentaje de votos
del ", p2, "%";
FinSi
FinProceso
Pseudocdigo
Proceso PIF12FormulaGeneral
//Pseudocdigo que calcule los valores de x1 y x2
//Por Carlos Picasso y Alberto Porras
Definir x1, x2, a, b, c, r Como Real;
x1=0;
x2=0;
a=0;
b=0;
c=0;
r=0;
//Ingreso de valores
Escribir "Ingrese el valor de:";
Escribir "A";
Leer a;
Escribir "B";
Leer b;
Escribir "C";
Leer c;
//Clculo y mensaje a pantalla
r=b^2-4*a*c;
Si a<>0 y r>0 Entonces
x1=((-b)+raiz(r))/2*a;
x2=((-b)-raiz(r))/2*a;
Escribir "El valor de x1 es ", x1;
Escribir "El valor de x2 es ", x2;
Sino
Escribir "La ecuacin no tiene solucin";
FinSi
Cuando el cliente realiza una compra se le solicitan los siguientes datos: Nombre del cliente, Tipo
de Cliente (1, 2, 3), Cantidad de libros y Costo del libro.
Pseudocdigo
Proceso PIF13Libreria
//Pseudocdigo que indica el descuento que se har dependiendo el tipo de cliente
//Por Carlos Picasso y Alberto Porras
Definir tipo, imp, desc, total, numlib, costolib Como Real;
Definir nom Como Caracter;
//Ingreso de datos
Escribir "Ingrese el nombre del cliente";
Leer nom;
Escribir "Ingrese que tipo de cliente (1, 2, 3)";
Leer tipo;
Escribir "Ingrese la cantidad de libros que va a comprar el cliente";
Leer numlib;
Escribir "Ingrese el costo del libro";
Leer costolib;
//Clculo de descuento y mensaje a mostrar en pantalla
imp=numlib*costolib;
Si tipo=1 Entonces
desc=imp*.30;
total=imp-desc;
Escribir "Nombre del cliente: ", nom;
Escribir "Importe: $", imp;
Escribir "Descuento : $", desc;
Escribir "Total a pagar: $", total;
FinSi
Si tipo=2 Entonces
desc=imp*.20;
total=imp-desc;
Escribir "Nombre del cliente: ", nom;
Escribir "Importe: $", imp;
Escribir "Descuento : $", desc;
Escribir "Total a pagar: $", total;
FinSi
Si tipo=3 Entonces
desc=imp*.10;
total=imp-desc;
Escribir "Nombre del cliente: ", nom;
Escribir "Importe: $", imp;
Escribir "Descuento : $", desc;
Escribir "Total a pagar: $", total;
FinSi
FinProceso
La computadora pregunta si el nmero es par o impar, y lo que resta cuando dicho nmero se
divide entre 5. A partir de esta informacin, la computadora imprime el nmero pensado por el
usuario.
Pseudocdigo
Proceso PIF14Adivinanza
//Pseudocdigo de juego de adivinanza. La computadora adivina el nmero pensado.
//Por Carlos Picasso y Alberto Porras
Definir tipo Como Caracter;
Definir res Como Real;
//Ingreso de tipo de nmero
Escribir "Piensa en un nmero del 1 al 9";
Escribir "El nmero es PAR o IMPAR?";
Leer tipo;
Escribir "Cul es el residuo de la divisin de su nmero por 5?";
Leer res;
//Clculo de nmero y mensaje a mostrar en pantalla
Si tipo="par" o tipo="PAR" Entonces
Si res=.4 Entonces
Escribir "El nmero es 2";
FinSi
Si res=.8 Entonces
Escribir "El nmero es 4";
FinSi
Si res=1.2 Entonces
Escribir "El nmero es 6";
FinSi
Si res=1.6 Entonces
Escribir "El nmero es 8";
FinSi
FinSi
Si tipo="impar" o tipo="IMPAR" Entonces
Si res=0 Entonces
Escribir "El nmero es 5";
FinSi
Si res=1.4 Entonces
Escribir "El nmero es 7";
FinSi
Si res=.2 Entonces
Escribir "El nmero es 1";
FinSi
Si res=.6 Entonces
Escribir "El nmero es 3";
FinSi
Si res=1.8 Entonces
Escribir "El nmero es 9";
FinSi
FinSi
FinProceso
Pseudocdigo
Proceso PIF15DiaSemana
//Dado un nmero se desplegara un da de la semana
//Por Carlos Picasso y Alberto Porras
Definir num Como Real;
num=0;
//Ingreso de datos
Escribir "Elija un nmero entre el 1 al 7";
Leer num;
//Mensaje a pantalla
Si num=1 Entonces
Escribir "Domingo";
FinSi
Si num=2 Entonces
Escribir "Lunes";
FinSi
Si num=3 Entonces
Escribir "Martes";
FinSi
Si num=4 Entonces
Escribir "Mircoles";
FinSi
Si num=5 Entonces
Escribir "Jueves";
FinSi
Si num=6 Entonces
Escribir "Viernes";
FinSi
Si num=7 Entonces
Escribir "Sbado";
FinSi
FinProceso
Pseudocdigo
Proceso PIF16mayorDe4
//Pseudocdigo que diga que nmero es el mayor de 4 nmeros dados y valide si son
diferentes
//Por Carlos Picasso y Alberto Porras
Definir n1, n2, n3, n4 Como Real;
n1=0;
n2=0;
n3=0;
n4=0;
//Ingreso de valor de cada nmero
Escribir "Indique el valor del primer nmero";
Leer n1;
Escribir "Indique el valor del segundo nmero";
Leer n2;
Escribir "Indique el valor del tercer nmero";
Leer n3;
Escribir "Indique el valor del cuarto nmero";
Leer n4;
//Clculo de nmero mayor y mensaje a pantalla
Si n1=n2 o n1=n3 o n1=n4 o n2=n3 o n2=n4 o n3=n4 Entonces
Escribir "Error";
Sino
Si n1>n2 y n1>n3 y n1>n4 Entonces
Escribir n1, " es el nmero mayor";
FinSi
Si n2>n1 y n2>n3 y n2>n4 Entonces
Escribir n2, " es el nmero mayor";
FinSi
Si n3>n1 y n3>n2 y n3>n4 Entonces
Escribir n3, " es el nmero mayor";
FinSi
Si n4>n1 y n4>n2 y n4>n3 Entonces
Escribir n4, " es el nmero mayor";
FinSi
FinSi
FinProceso