Ejercicios Con Mientras Que (PSEINT)
Ejercicios Con Mientras Que (PSEINT)
Ejercicios Con Mientras Que (PSEINT)
1) Algoritmo Compañía_de_seguros
nvende<-0;
f<-0;
Leer nvende;
Leer suelba;
Leer ven1;
Leer ven2;
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;
f<-f+1;
Fin Mientras
FinAlgoritmo
2) Algoritmo Empresa_salario
nobre<-0;
f<-0;
Leer nobre;
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;
FinSi
Fin Si
f<-f+1;
Fin Mientras
FinAlgoritmo
3) Algoritmo grupo
Leer gruper;
f<-0;
hom<-0;
muj<-0;
Leer sex;
hom<-hom+1;
SiNo
muj<-muj+1;
FinSi
FinSi
f<-f+1;
Fin Mientras
FinAlgoritmo
4) Algoritmo calcomanias
Leer nauto;
f<-0;
ama<-0;
ros<-0;
roj<-0;
ver<-0;
azu<-0;
Leer ultdigi;
ama<-ama+1;
SiNo
ros<-ros+1;
SiNo
roj<-roj+1;
SiNo
ver<-ver+1;
SiNo
azu<-azu+1;
FinSi
FinSi
FinSi
FinSi
Fin Si
f<-f+1;
Fin Mientras
Escribir "Entran con calcomania amarilla: ",ama;
FinAlgoritmo
5) Algoritmo prome_alumnos
Leer nestu;
f<-0;
tocali<-0;
Leer califi;
tocali<-tocali+califi;
f<-f+1;
Fin Mientras
prome<-tocali/nestu;
FinAlgoritmo
6) Algoritmo banco
Leer dinban;
f<-0;
acumdine<-0;
inter<-dinban*0.2;
acumdine<-acumdine+inter;
f<-f+1;
Fin Mientras
totdine<-acumdine+dinban;
FinAlgoritmo
7) Algoritmo promedio_edad
Leer gruper;
f<-0;
hom<-0;
muj<-0;
Leer sex;
Leer edad;
nuhom<-nuhom+1;
hom<-hom+edad;
prohom<-hom/nuhom;
SiNo
numuj<-numuj+1;
muj<-muj+edad;
promuj<-muj/numuj;
FinSi
FinSi
f<-f+1;
Fin Mientras
totprome<-promuj+prohom;
promgru<-totprome/gruper;
FinAlgoritmo
8) Algoritmo menor
Leer numer;
nume<-0;
f<-0;
f<-f+1;
Leer nume;
Si f=1 Entonces
num<-nume;
SiNo
Si num>nume Entonces
num<-nume;
FinSi
FinSi
FinMientras
9) Algoritmo mayor
Leer num;
numa<-0;
f<-0;
f<-f+1;
Leer numer;
Si numer>numa Entonces
numa<-numer;
FinSi
Fin Mientras
FinAlgoritmo
numper<-0;
tot<-0;
rep<-1;
Leer numper;
Leer monto;
tot<-tot+monto;
rep<-rep+1;
Fin Mientras
FinAlgoritmo
miem<-5;
bas<-1;
ktot<-0;
Repetir
Leer pesoultim;
Repetir
Leer cankilos;
ktot<-ktot+cankilos;
prom<-ktot/10;
bas<-bas+1;
Si prom>pesoultim Entonces
SiNo
Fin Si
bas<-bas-10;
ktot<-ktot-(cankilos*10);
FinAlgoritmo
Leer gru;
sumgrup<-0;
sumalumtot<-0;
Leer alum;
sumalum<-0;
Leer mat;
sumat<-0;
Leer cal1;
Leer cal2;
Leer cal3;
promate<-(cal1+cal2+cal3)/3;
sumat<-sumat+promate;
FinPara
proalum<-sumat/mat;
sumalum<-sumalum+proalum;
sumalumtot<-sumalumtot+alum;
FinPara
progrup<-sumalum/sumalumtot;
sumgrup<-sumgrup+progrup;
FinPara
promtot<-sumgrup/gru;
FinAlgoritmo
numclie<-0;
pers<-1;
importe<-0;
totven<-0;
suma<-0;
Repetir
Leer importe;
Leer bolita;
totven<-totven+importe;
totpagar<-totven;
suma<-suma+totpagar;
totven<-totven+importe;
descue<-totven*0.40;
totpagar<-totven-descue;
suma<-suma+totpagar;
SiNo
totven<-totven+importe;
descue<-totven*0.25;
totpagar<-totven-descue;
suma<-suma+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;
FinAlgoritmo
14) Algoritmo supermercado_ama
totcomp<-0;
art<-1;
Repetir
Leer precioart;
Leer canart;
totart<-precioart*canart;
Repetir
Leer estado;
totcomp<-totcomp+totart;
totart<-0;
art<-art+1;
FinAlgoritmo
Leer preuni;
Repetir
Escribir "Digite la edad";
Leer edad;
Si edad<5 Entonces
SiNo
descue<-preuni*0.35;
totpagar<-preuni-descue;
totperc1<-totperc1+descue;
SiNo
descue<-preuni*0.25;
totpagar<-preuni-descue;
totperc2<-totperc2+descue;
SiNo
descue<-preuni*0.10;
totpagar<-preuni-descue;
totperc3<-totperc3+descue;
SiNo
descue<-preuni*0.25;
totpagar<-preuni-descue;
totperc4<-totperc4+descue;
SiNo
Si edad>=66 Entonces
descue<-preuni*0.35;
totpagar<-preuni-descue;
totperc5<-totperc5+descue;
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
Repetir
Leer estado;
Leer numvehi;
Leer pres,vol,temp;
f<-1;
Repetir
masa<-(pres*vol)/0.37*(temp+460);
Repetir
Leer vehi;
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;
FinAlgoritmo
17) Algoritmo horas
Definir horastrab,pagoporhor,horasextras,pagoext,totpag,pagodes,pagotot,numtra,f
Como Real;
Leer numtra;
f<-1;
Repetir
Leer horastrab;
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
f<-f+1;
FinAlgoritmo
18) Algoritmo granja
Leer ngall;
Leer pesgall;
Leer algall;
Leer huegall;
caligall<-(pesgall*algall)/huegall;
Si caligall>=15 Entonces
pesgall<-1.2*caligall;
SiNo
pesgall<-1*caligall;
SiNo
Si caligall<=8 Entonces
pesgall<-0.8*caligall;
FinSi
FinSi
FinSi
Fin Para
FinAlgoritmo
19) Algoritmo diputados
Leer ndiputa;
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
FinAlgoritmo
20) Algoritmo Enano_SA
Repetir
Leer val;
Leer uni;
Escribir 'Digite (SI), si tiene etiqueta roja, y digite (NO), si no tiene etiqueta
roja';
Leer etique;
prec<-val*uni;
prec<-prec-(prec*0.20);
FinSi
tot<-tot+prec;
Escribir 'Digite (SI) para seguir comprando y (NO) para terminar la compra';
Leer seg;
FinAlgoritmo
prima<-0;
secu<-0;
carrtec<-0;
estupro<-0;
estuposgra<-0;
Repetir
Escribir "ENCUESTA";
Escribir "1.Primaria";
Escribir "2.Secundaria";
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;
FinAlgoritmo
nort<-0;
sur<-0;
centro<-0;
Repetir
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
mayo<-nort;
num<-"Norte";
SiNo
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;
FinAlgoritmo
numer<-100;
suma<-0;
Repetir
suma<-suma+numer;
numer<-numer-2;
Escribir suma;
Escribir numer;
FinAlgoritmo
numestu<-50;
repro<-0;
f<-1;
Repetir
Leer califi;
Si califi<70 Entonces
repro<-repro+1;
FinSi
numestu<-numestu-1;
f<-f+1;
repro<-(repro*100)/50;
FinAlgoritmo
25) Algoritmo dise_estructurado
Leer nalum;
numa<-0;
num<-0;
Leer ncontrol;
prome<-(cal1+cal2+cal3+cal4+cal5)/5;
Si prome>numa entonces
numa<-prome;
num<-ncontrol;
FinSi
Fin Para
FinAlgoritmo