Practica 9

Practica 9 Problema 1

1. Inicio
n=0,f=1,suma=0,c1=0,c2=0 int
print"Introdusca la cantidad de terminos de la serie (1!+2!+3!+.....n!)= "
read n
print"Terminos de la serie: "
for(c1=1 to n step c1=c1+1)
{
f=1
for(c2=c1 to 0 step c2=c2-1)
{
f=f*c2
}
print f, "     "
if(c1==n)
{
print"="
}
else
{
print"+"
}
suma=suma+f
}
print suma
Fin

Practica 9 Problema 2

1. Inicio
suma=1,f=1 float
x1=0,c2=0,x int
print"Introducir un valor para x: "
read x
print"1 + "
for(c1=1 to 20 step c1++)
{
f=1.0
for(c2=c1 to 1 step c2=c2-1)
{
f=f*c2
}
print pow(x,c1)/f
if(c1==20)
{
print"="
}
else
{
print" + "
}
}
print suma
Fin

Practica 9 Problema 3

1. Inicio
numlineas,c1=0,c2=0 int
print"Introducir numero de lineas: "
read numlineas
for(c1=1 to numlineas step c1++)
{
for(c2=1 to c1 step c2++)
{
print"@ "
}
print endl
}
Fin

Practica 9 Problema 4

1.Inicio
precio,cambio,cambioa int
do
{
print"\n\nPor favor introducir el precio del articulo a comprar en centavos:"
read precio
if(precio1=0)
{
print"El cambio es: "
cambio=100-precio
cambioa=cambio/25
if(cambioa!=0)
{
print cambioa, "quarter, "
}
else
{
cambioa=cambio
}
cambioa=(cambio%25)/10
if (cambioa!=0)
{
print cambioa, " dimes, "
}
else
{
cambioa=cambio
}
cambioa=((cambio%25)%10)/5
if (cambioa!=0)
{
print cambioa, " nickel, "
}
else
{
cambioa=cambio
}
cambioa=((cambio%25)%10)%5
if (cambioa!=0)
{
print cambioa, " pennies. "
}
else
{
if (cambio%25!=0 and cambio%10!=0 and cambio%5!=0)
}
print cambio%5, "pennies"
}
}
}
}
while (precio!=0)
Fin

Practica 9 Problema 5

1. Inicio
n,i=1,h,tipf,mayor1=0,mayor2,costo,c1=1,c2=1,c3=1,c4=1 int
mt1=0,mt2=0,mt3=0,mt4=0,m1=0,m2=0,m3=0,m4=0 real
nombre char [15]
print"Introducir el numero de granjeros: "
read n
while(i<=n)
{
print"\nNombre del granjero: "
read nombre
print"Tipo de fumigacion:\t\t\tPrecio por hectarea:"
print"\n1) Fumigacion de malas hierbas\t\t\t$10"
print"\n2) Fumigacion de malas langostas\t\t\t$20"
print"\n3) Fumigacion de malas gusanos\t\t\t\t$30"
print"\n4) Fumigacion de todo lo anterior\t\t$50"
print"\nTipo:"
read tipf
print"Hectareas:"
read h
switch(tipf)
{
case 1:costo=10
c1=c1+1
if(h>100)
{
m1=costo*0.95*h
}
else
{
m1=costo*h
}
if(m1>=1500)
{
m1*=.90
}
mt1+=m1
break
case 2:costo=20
c2=c2+1
if(h>100)
{
m2=costo*0.95*h
}
else
{
m2=costo*h
}
if(m2>=1500)
{
m2*=.90
}
mt2+=m2
break
case 3:costo=30
c3=c3+1
if(h>100)
{
m3=costo*0.95*h
}
else
{
m3=costo*h
}
if(m3>=1500)
{
m3*=.90
}
mt3+=m3
break
case 4:costo=50
c4=c4+1
if(h>100)
{
m4=costo*0.95*h
}
else
{
m4=costo*h
}
if(m4>=1500)
{
m4*=.90
}
mt4+=m4
break
default:
print "Valor no valido"
}
i=i+1
}
if(c1>c2)
{
mayor1=c1
mayor2=1
}
else
{
mayor1=c2
mayor2=2
}
if(c3>mayor1)
{
mayor1=c3
mayor2=3
}
if(c4>mayor1)
{
mayor1=c4
mayor2=4
}
print"\nMonto total de tipo 1:",mt1
print"Monto total de tipo 2:",mt2
print"Monto total de tipo 3:",mt3
print"Monto total de tipo 4:",mt4
print"\n\nEl tipo de fumigacion mas solicitado es el tipo: ",mayor2
Fin