EJERCICIOS LAB 3-1
1) Algoritmo Compañía_de_seguros
Definir nvende,f Como Entero;
Definir suelba,ven1,ven2,ven3,com1,com2,com3,comto,vento,sueto Como Real;
nvende<-0;
f<-0;
Escribir "Cual es el numero de vendedores";
Leer nvende;
Escribir "Cual es el sueldo base";
Leer suelba;
Mientras f<nvende Hacer
Escribir "Digite el precio de la primera venta";
Leer ven1;
Escribir "Digite el precio de la segunda venta";
Leer ven2;
Escribir "Digite el precio de la tercera venta";
Leer ven3;
com1<-ven1*0.10;
com2<-ven2*0.10;
com3<-ven3*0.10;
comto<-com1+com2+com3;
vento<-ven1+ven2+ven3+comto;
sueto<-ven1+ven2+ven3+comto+suelba;
Escribir "El dinero total de este empleado es: ",sueto;
Escribir "El dinero total de las comisiones es: ",comto;
Escribir "El dinero total de las comisiones y ventas es: ",vento;
f<-f+1;
Fin Mientras
FinAlgoritmo
2) Algoritmo Empresa_salario
Definir nobre,f Como Entero;
Definir salse,hortra,horext,paghortra,paghorext Como Real;
nobre<-0;
f<-0;
Escribir "Cuantos obreros laboran en la empresa";
Leer nobre;
Mientras f<nobre Hacer
Escribir "Cuantas horas trabajo";
Leer hortra;
Si hortra<=40 Entonces
paghortra<-hortra*20;
salse<-paghortra;
SiNo
Si hortra>40 Entonces
paghortra<-hortra*20;
horext<-hortra-40;
paghorext<-horext*25;
salse<-paghorext+paghortra;
Escribir "Su pago por las primeras 40 horas es: ",paghortra;
Escribir "Su pago por las horas extras es: ",paghorext;
FinSi
Fin Si
Escribir "Su salario semanal es de: ",salse;
f<-f+1;
Fin Mientras
FinAlgoritmo
3) Algoritmo grupo
Definir f,gruper,muj,hom Como Entero;
Definir sex Como Caracter;
Escribir 'Digite cuantos personas hay en el grupo';
Leer gruper;
f<-0;
hom<-0;
muj<-0;
Mientras f<gruper Hacer
Escribir 'Digite su sexo (M)si es masculino y (F) si es femenino';
Leer sex;
Si sex=("m") o sex=("M") Entonces
hom<-hom+1;
SiNo
Si sex=("f") o sex=("F") Entonces
muj<-muj+1;
FinSi
FinSi
f<-f+1;
Fin Mientras
Escribir 'Mujeres en el grupo: ',muj;
Escribir 'Hombres en el grupo: ',hom;
FinAlgoritmo
4) Algoritmo calcomanias
Definir nauto,f,ama,ros,roj,ver,azu,ultdigi como entero;
Escribir "Cuantos autos entran a la ciudad de Mexico";
Leer nauto;
f<-0;
ama<-0;
ros<-0;
roj<-0;
ver<-0;
azu<-0;
Mientras f<nauto Hacer
Escribir "Cual es el ultimo digito de la placa del automovil?";
Leer ultdigi;
Si ultdigi=1 o ultdigi=2 Entonces
ama<-ama+1;
SiNo
Si ultdigi=3 o ultdigi=4 Entonces
ros<-ros+1;
SiNo
Si ultdigi=5 o ultdigi=6 Entonces
roj<-roj+1;
SiNo
Si ultdigi=7 o ultdigi=8 Entonces
ver<-ver+1;
SiNo
Si ultdigi=9 o ultdigi=0 Entonces
azu<-azu+1;
FinSi
FinSi
FinSi
FinSi
Fin Si
f<-f+1;
Fin Mientras
Escribir "Entran con calcomania amarilla: ",ama;
Escribir "Entran con calcomania rosa: ",ros;
Escribir "Entran con calcomania roja: ",roj;
Escribir "Entran con calcomania verde: ",ver;
Escribir "Entran con calcomania azul: ",azu;
FinAlgoritmo
5) Algoritmo prome_alumnos
Definir nestu,prome,califi,f,tocali Como Real;
Escribir "Digite el numero de alumnos";
Leer nestu;
f<-0;
tocali<-0;
Mientras f<nestu Hacer
Escribir "Digite su calificacion";
Leer califi;
tocali<-tocali+califi;
f<-f+1;
Fin Mientras
prome<-tocali/nestu;
Escribir "El promedio del grupo es: ",prome;
FinAlgoritmo
6) Algoritmo banco
Definir dinban,totdine,inter,f,acumdine Como Real;
Escribir "Digite el dinero invertido";
Leer dinban;
f<-0;
acumdine<-0;
Mientras f<12 Hacer
inter<-dinban*0.2;
acumdine<-acumdine+inter;
f<-f+1;
Fin Mientras
totdine<-acumdine+dinban;
Escribir "Sus ganancias por intereses cada mes son: ",inter;
Escribir "La cantidad de dinero obtenido al cabo de un año es: ",totdine;
FinAlgoritmo
7) Algoritmo promedio_edad
Definir f,gruper,muj,hom,edad,totprome,promuj,prohom,numuj,nuhom,promgru Como Real;
Definir sex Como Caracter;
Escribir 'Digite cuantos personas hay en el grupo';
Leer gruper;
f<-0;
hom<-0;
muj<-0;
Mientras f<gruper Hacer
Escribir 'Digite su sexo (M) si es masculino y (F) si es femenino';
Leer sex;
Escribir 'Digite su edad';
Leer edad;
Si sex=("m") o sex=("M") Entonces
nuhom<-nuhom+1;
hom<-hom+edad;
prohom<-hom/nuhom;
SiNo
Si sex=("f") o sex=("F") Entonces
numuj<-numuj+1;
muj<-muj+edad;
promuj<-muj/numuj;
FinSi
FinSi
f<-f+1;
Fin Mientras
totprome<-promuj+prohom;
promgru<-totprome/gruper;
Escribir 'Promedio de edad de las mujeres: ',promuj;
Escribir 'Promedio de edad de los hombres: ',prohom;
Escribir 'El promedio de edad de todo el grupo es: ',promgru;
FinAlgoritmo
8) Algoritmo menor
Definir num,numer,nume,f Como Real;
Escribir "Ingrese la cantidad de números";
Leer numer;
nume<-0;
f<-0;
Mientras f<numer Hacer
f<-f+1;
Escribir 'Digite numero ',f;
Leer nume;
Si f=1 Entonces
num<-nume;
SiNo
Si num>nume Entonces
num<-nume;
FinSi
FinSi
FinMientras
Escribir 'El numero menor es ',num;
FinAlgoritmo
9) Algoritmo mayor
Definir numa,num,f,numer Como Entero;
Escribir "Digite la cantidad de numeros";
Leer num;
numa<-0;
f<-0;
Mientras f<num Hacer
f<-f+1;
Escribir "Digite numero ",f;
Leer numer;
Si numer>numa Entonces
numa<-numer;
FinSi
Fin Mientras
Escribir "El numero mayor es ",numa;
FinAlgoritmo
10) Algoritmo super_mercado
Definir monto,tot,rep,numper Como Real;
numper<-0;
tot<-0;
rep<-1;
Escribir "Digite el numero de personas";
Leer numper;
Mientras rep<=numper Hacer
Escribir "Digite el monto del cliente ",rep;
Leer monto;
tot<-tot+monto;
rep<-rep+1;
Fin Mientras
Escribir "El valor total es de:",tot;
FinAlgoritmo
11) Algoritmo miem_peso
Definir miem,pesoultim,prom,cankilos,bas,ktot,nmiem Como real;
miem<-5;
bas<-1;
ktot<-0;
Repetir
Escribir "Cual es el valor del peso de la ultima vez?";
Leer pesoultim;
Repetir
Escribir "Digite el valor del pesaje dela bascula ",bas;
Leer cankilos;
ktot<-ktot+cankilos;
prom<-ktot/10;
bas<-bas+1;
Hasta Que bas>10
Si prom>pesoultim Entonces
Escribir "SUBIO DE PESO";
SiNo
Escribir "BAJO DE PESO";
Fin Si
bas<-bas-10;
ktot<-ktot-(cankilos*10);
Hasta Que miem=0
FinAlgoritmo
12) Algoritmo grupos
Definir
gru,sumgrup,grup,alum,sumalum,mat,sumat,mater,cal1,cal2,cal3,promate,proalum,progrup,prom
tot,sumalumtot Como Real;
Escribir "Ingrese el numero de grupos";
Leer gru;
sumgrup<-0;
sumalumtot<-0;
Para grup<-1 Hasta gru Con Paso 1 Hacer;
Escribir "Cuantos alumnos tiene el grupo ",grup;
Leer alum;
sumalum<-0;
Para alum<-1 Hasta alum Con Paso 1 Hacer ;
Escribir "Cuantas materias lleva el alumno ",alum;
Leer mat;
sumat<-0;
Para mater<-1 Hasta mat Con Paso 1 Hacer;
Escribir "Ingrese la calificacion 1 de la materia ", mater;
Leer cal1;
Escribir "Ingrese la calificacion 2 de la materia", mater;
Leer cal2;
Escribir "Ingrese la calificacion 3 de la materia", mater;
Leer cal3;
promate<-(cal1+cal2+cal3)/3;
Escribir "Promedio de esta materia: ",promate;
sumat<-sumat+promate;
FinPara
proalum<-sumat/mat;
Escribir "Promedio del alumno ",alum,": ",proalum;
sumalum<-sumalum+proalum;
sumalumtot<-sumalumtot+alum;
FinPara
progrup<-sumalum/sumalumtot;
Escribir "El promedio del grupo ",grup," es: ",progrup;
sumgrup<-sumgrup+progrup;
FinPara
promtot<-sumgrup/gru;
Escribir "El promedio de todos los grupos es: ",promtot;
FinAlgoritmo
EJERCICIOS LAB 3-2
13) Algoritmo clientes_descuento
Definir numclie,importe,pers,suma,descue,totpagar,totven Como real;
Definir bolita,estado como caracter;
numclie<-0;
pers<-1;
importe<-0;
totven<-0;
suma<-0;
Repetir
Escribir "Digite el importe de la compra del cliente #",pers;
Leer importe;
Escribir "Digite el color de la bolita";
Escribir "(B)para blanca,(R)para rojo y (A) para amarillo";
Leer bolita;
si bolita="B" o bolita="b" Entonces
totven<-totven+importe;
totpagar<-totven;
suma<-suma+totpagar;
Escribir "No obtiene descuento";
Escribir "El valor a pagar es ",totpagar;
SiNo
Si bolita="R" o bolita="r" Entonces
totven<-totven+importe;
descue<-totven*0.40;
totpagar<-totven-descue;
suma<-suma+totpagar;
Escribir "El descuento es de ",descue;
Escribir "El valor a pagar es ",totpagar;
SiNo
si bolita="A" o bolita="a" entonces;
totven<-totven+importe;
descue<-totven*0.25;
totpagar<-totven-descue;
suma<-suma+totpagar;
Escribir "El descuento es de ",descue;
Escribir "El valor a pagar es ",totpagar;
FinSi
FinSi
FinSi
pers<-pers+1;
totven<-0;
numclie<-numclie+1;
Escribir "Digite (C) para cerrar tienda y digite (A) para seguir atendiendo";
Leer estado;
Hasta Que estado="c" o estado="C"
Escribir "El total de clientes fue de ",numclie;
Escribir "El total de ventas del dia es ",suma;
FinAlgoritmo
14) Algoritmo supermercado_ama
Definir art,precioart,canart,totcomp,totart Como Real;
Definir estado Como Caracter;
totcomp<-0;
art<-1;
Repetir
Escribir "Digite el precio del articulo #",art;
Leer precioart;
Escribir "Digite la cantidad del articulo #",art;
Leer canart;
totart<-precioart*canart;
Escribir "El total del articulo #",art," es ",totart;
Repetir
Escribir "Digite (SI) para continuar y (NO) para finalizar la compra";
Leer estado;
Hasta Que estado="si" o estado="SI" o estado="Si" o estado="sI" o
estado="no" o estado="NO" o estado="No" o estado="nO"
totcomp<-totcomp+totart;
totart<-0;
art<-art+1;
Hasta Que estado="no" o estado="NO" o estado="No" o estado="nO"
Escribir "El total de la compra es de ",totcomp;
FinAlgoritmo
15) Algoritmo teatro
Definir edad,descue,preuni,totperc1,totperc2,totperc3,totperc4,totperc5,totpagar Como
Real;
Definir estado como caracter;
Escribir "Digite el precio unico del asiento";
Leer preuni;
Repetir
Escribir "Digite la edad";
Leer edad;
Si edad<5 Entonces
Escribir "Ninos menores de 5 años no pueden ingresar";
SiNo
Si edad>=5 y edad<=14 Entonces
descue<-preuni*0.35;
totpagar<-preuni-descue;
totperc1<-totperc1+descue;
Escribir "El descuento es de ",descue;
Escribir "El total a pagar es de ",totpagar;
SiNo
Si edad>=15 y edad<=19 Entonces
descue<-preuni*0.25;
totpagar<-preuni-descue;
totperc2<-totperc2+descue;
Escribir "El descuento es de ",descue;
Escribir "El total a pagar es de ",totpagar;
SiNo
Si edad>=20 y edad<=45 Entonces
descue<-preuni*0.10;
totpagar<-preuni-descue;
totperc3<-totperc3+descue;
Escribir "El descuento es de ",descue;
Escribir "El total a pagar es de ",totpagar;
SiNo
Si edad>=46 y edad<=65 Entonces
descue<-preuni*0.25;
totpagar<-preuni-descue;
totperc4<-totperc4+descue;
Escribir "El descuento es de ",descue;
Escribir "El total a pagar es de ",totpagar;
SiNo
Si edad>=66 Entonces
descue<-preuni*0.35;
totpagar<-preuni-descue;
totperc5<-totperc5+descue;
Escribir "El descuento es de
",descue;
Escribir "El total a pagar es de
",totpagar;
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
Repetir
Escribir "Digite (SI) para continuar y (NO) si los asientos se
agotaron";
Leer estado;
Hasta Que estado="si" o estado="SI" o estado="Si" o estado="sI" o
estado="no" o estado="NO" o estado="No" o estado="nO"
Hasta Que estado="NO" o estado="no" o estado="No" o estado="nO"
Escribir "El dinero sin percibir de la categoria #1 es de ",totperc1;
Escribir "El dinero sin percibir de la categoria #2 es de ",totperc2;
Escribir "El dinero sin percibir de la categoria #3 es de ",totperc3;
Escribir "El dinero sin percibir de la categoria #4 es de ",totperc4;
Escribir "El dinero sin percibir de la categoria #5 es de ",totperc5;
FinAlgoritmo
16) Algoritmo vehiculos
Definir numvehi,f,pres,vol,temp,masa,prome,vehi,prometot,promesum Como Real;
Escribir "Digite el numero de vehiculos";
Leer numvehi;
Escribir "Digite el valor de la presion,volumen,temperatura correspondientemnete";
Leer pres,vol,temp;
f<-1;
Repetir
masa<-(pres*vol)/0.37*(temp+460);
Repetir
Escribir "Digite (1) si es una motocicleta y (2) si es un automovil";
Leer vehi;
Hasta Que vehi=1 o vehi=2
Si vehi=1 entonces
prome<-masa/2;
promesum<-promesum+prome;
SiNo
Si vehi=2 Entonces
prome<-masa/4;
promesum<-promesum+prome;
FinSi
FinSi
Escribir "El promedio de masa de aire de los neumaticos del vehiculo #",f," es de
",prome;
f<-f+1;
Hasta Que f>numvehi
FinAlgoritmo
17) Algoritmo horas
Definir horastrab,pagoporhor,horasextras,pagoext,totpag,pagodes,pagotot,numtra,f
Como Real;
Escribir "Digite el numero de trabajadores";
Leer numtra;
f<-1;
Repetir
Escribir "Digite las horas trabajadas";
Leer horastrab;
Escribir "Digite el pago de cada hora";
Leer pagoporhor;
Si horastrab<=40 entonces
totpag=horastrab*pagoporhor;
sino
horasextras=horastrab-40;
Si horasextras<=8 Entonces
pagoext=horasextras*pagoporhor*2;
SiNo
pagodes=8*pagoporhor*2;
pagotot=(horasextras-8)*pagoporhor*3;
pagoext=pagodes+pagotot;
FinSi
totpag=40*pagoporhor+pagoext;
FinSi
Escribir "El pago por horas extras es ",pagoext;
Escribir "El pago total es de ",totpag;
f<-f+1;
Hasta Que f>numtra
FinAlgoritmo
18) Algoritmo granja
Definir ngall,caligall,pesgall,algall,huegall,f Como Real;
Escribir "Digite el numero de gallinas";
Leer ngall;
Para f<-1 Hasta ngall Con Paso 1 Hacer
Escribir "Digite el peso de la gallina #",f;
Leer pesgall;
Escribir "Digite la altura de la gallina #",f;
Leer algall;
Escribir "Digite los huevos que pone la gallina #",f;
Leer huegall;
caligall<-(pesgall*algall)/huegall;
Escribir "La calidad de la gallina #",f," es de ",caligall;
Si caligall>=15 Entonces
pesgall<-1.2*caligall;
SiNo
Si caligall>8 y caligall<15 Entonces
pesgall<-1*caligall;
SiNo
Si caligall<=8 Entonces
pesgall<-0.8*caligall;
FinSi
FinSi
FinSi
Fin Para
Escribir "El precio del kilo de huevo es ",pesgall,"$";
FinAlgoritmo
19) Algoritmo diputados
Definir ndiputa,vot,favor,encontra,abstenerse,f,porfa,porcon,porab,i Como Real;
Escribir "Digite el numero de diputados";
Leer ndiputa;
Para f<-1 Hasta ndiputa Con Paso 1 Hacer
Escribir "Votacion del diputado #",f;
Escribir "1.A favor";
Escribir "2.En contra";
Escribir "3.Abstenerse";
Leer vot;
Si vot=1 entonces
favor<-favor+1;
SiNo
Si vot=2 Entonces
encontra<-encontra+1;
SiNo
Si vot=3 Entonces
abstenerse<-abstenerse+1;
FinSi
FinSi
FinSi
porfa<-favor*100/ndiputa;
porcon<-encontra*100/ndiputa;
porab<-abstenerse*100/ndiputa;
Fin Para
Escribir "El porcentaje de votos a favor es del ",porfa,"%";
Escribir "El porcentaje de votos en contra es del ",porcon,"%";
Escribir "El porcentaje de votos de abstenerse a votar es del ",porab,"%";
FinAlgoritmo
20) Algoritmo Enano_SA
Definir seg,etique Como Caracter;
Definir val,prec,tot,uni Como Real;
Repetir
Escribir 'Digite el valor del articulo';
Leer val;
Escribir 'Cuantos va a comprar';
Leer uni;
Escribir 'Digite (SI), si tiene etiqueta roja, y digite (NO), si no tiene etiqueta
roja';
Leer etique;
prec<-val*uni;
Si etique='si' O etique='Si' O etique='SI' Entonces
prec<-prec-(prec*0.20);
FinSi
tot<-tot+prec;
Escribir 'Digite (SI) para seguir comprando y (NO) para terminar la compra';
Leer seg;
Hasta Que seg='NO' o seg='No' o seg='no'
Escribir ' El total de la compra es ',tot;
FinAlgoritmo
21) Algoritmo encuesta
Definir encues,prima,secu,carrtec,estupro,estuposgra como entero;
Definir seg Como Caracter;
prima<-0;
secu<-0;
carrtec<-0;
estupro<-0;
estuposgra<-0;
Repetir
Escribir "ENCUESTA";
Escribir "Que estudios tiene actualmente?";
Escribir "1.Primaria";
Escribir "2.Secundaria";
Escribir "3.Carrera tecnica";
Escribir "4.Estudios profesionales";
Escribir "5.Estudios de posgrado";
Leer encues;
Si encues=1 entonces
prima<-prima+1;
SiNo
Si encues=2 Entonces
secu<-secu+1;
SiNo
Si encues=3 Entonces
carrtec<-carrtec+1;
SiNo
Si encues=4 Entonces
estupro<-estupro+1;
SiNo
Si encues=5 Entonces
estuposgra<-estuposgra+1;
FinSi
FinSi
FinSi
FinSi
FinSi
Escribir 'Digite (SI) para seguir encuestando y (NO) para finalizar el dia';
Leer seg;
Hasta Que seg='NO' o seg='No' o seg='no'
Escribir "El numero de personas con estudios de primaria son ",prima;
Escribir "El numero de personas con estudios de secundaria son ",secu;
Escribir "El numero de personas con carrera tecnica son ",carrtec;
Escribir "El numero de personas con estudios profesionales son ",estupro;
Escribir "El numero de personas con estudios de posgrados son ",estuposgra;
FinAlgoritmo
22) Algoritmo casilla
Definir persovot,seccion,nort,sur,centro,mayo Como entero;
Definir estado,num Como Cadena;
nort<-0;
sur<-0;
centro<-0;
Repetir
Escribir "Ingrese la seccion";
Escribir "1.Norte";
Escribir "2.Sur";
Escribir "3.Centro";
Leer seccion;
Si seccion=1 Entonces
nort<-nort+1;
SiNo
Si seccion=2 Entonces
sur<-sur+1;
SiNo
Si seccion=3 Entonces
centro<-centro+1;
FinSi
FinSi
FinSi
Si nort>sur y nort>centro entonces
mayo<-nort;
num<-"Norte";
SiNo
Si sur>nort y sur>centro Entonces
mayo<-sur;
num<-"Sur";
SiNo
Si centro>nort y centro>sur
entonces
mayo<-nort;
num<-"Centro";
FinSi
FinSi
FinSi
Escribir 'Digite (SI) para seguir y (NO) para finalizar el dia de votaciones';
Leer estado;
Hasta Que estado="no" o estado="NO" o estado="No"
Escribir "En la seccion del norte asisten ",nort;
Escribir "En la seccion del sur asisten ",sur;
Escribir "En la seccion del centro asisten ",centro;
Escribir "La seccion con mayor numero de votantes es la del ",num;
FinAlgoritmo
23) Algoritmo suma
Definir numer,suma Como Entero;
numer<-100;
suma<-0;
Repetir
suma<-suma+numer;
numer<-numer-2;
Escribir suma;
Escribir numer;
Hasta Que numer=0
Escribir "La suma es de",suma;
FinAlgoritmo
24) Algoritmo calificaciones
Definir califi,porcen,numestu,repro,f como real;
numestu<-50;
repro<-0;
f<-1;
Repetir
Escribir "Almuno #",f," ingrese la nota";
Leer califi;
Si califi<70 Entonces
repro<-repro+1;
FinSi
numestu<-numestu-1;
f<-f+1;
Hasta Que numestu=0
repro<-(repro*100)/50;
Escribir "El porcentaje de reprobados es de ",repro,"%";
FinAlgoritmo
25) Algoritmo dise_estructurado
Definir cal1,cal2,cal3,cal4,cal5,prome,nalum,f,ncontrol,prometot,numa,num como
real;
Escribir "Digite el numero de alumnos";
Leer nalum;
numa<-0;
num<-0;
Para f<-1 Hasta nalum Con Paso 1 Hacer
Escribir "Digite el numero de control";
Leer ncontrol;
Escribir "Digite las 5 calificaciones de las unidades";
Leer cal1, cal2, cal3, cal4, cal5;
prome<-(cal1+cal2+cal3+cal4+cal5)/5;
Si prome>numa entonces
numa<-prome;
num<-ncontrol;
FinSi
Fin Para
Escribir "El promedio mayor es de ",numa," y el numero de control es ",num;
FinAlgoritmo
