Practica 8

Problema No.1

Inicio

 c=0,f=0,o1=0 real

i=0 int

Print "Fahrenheit  Celsius"

o1=(5.0/9.0)

for (I=20 to 100 step i=i+4)

{

f=i

c=o1*(f-32)

Print f," ", c

Fin

Problema No.2

Inicio

g=0,li=0 real

i=0 int

for (i=1 to 10 step i++)

{

Print "Introduce la cantidad de galones"

Read galones

li=g*3.785;

Print g, "galones=", li, "litros"

}

Fin

 

Problema No.3

Inicio

g=0,li=0 real

i=0,a int

Print "cuantos galones desea convertir?"

Read a

For (i=1 to a step i++)

{

Print "Introduce la cantidad de galones"

Read g

li=g*3.785

Print g, "galones=", li, "litros"

}

Fin 

Problema No.4

Inicio

NUMSMAX=5 const int

i,a  int

usenum, totpos=0, totneg=0 double

Print "numero de entradas="

Read a

for (i=1 to a step i++)

{

Print "introduzca un numero="

Read usenum

if (usenum>0)

totpos=totpos+usenum

else

totneg=totneg+usenum;

}

Print "el total positivo es”, totpos

Print "el total negativo es", totneg

Fin

 

Problema No. 5

Inicio

 i,n=5 int

usenum, totpos=0,totneg=0,t,q double

for (i=1 to n step i++)

{

Print "Introduce un numero(positivo o negativo)”

Read usenum

if(usenum>0)

{

totpos=totpos+usenum

t=t+1

}

Else

 {

if(usenum<0)

{

totneg=totneg+usenum

q=q+1

}

}

}

Print "El promedio positivo es", (totpos/t)

Print "El Promedio negativos es", (totneg/q)

Fin

Problema No. 6

Inicio

Print "Problema A"

x,y double

Print "valorx       valor y"

Print "------    -------"

Print setiosflags(ios::fixed)

Print setiosflags(ios::showpoint)

Print setprecision(5)

for (x=5.0 to 10.0 step x=x+0.2)

{

y=3.0*pow(x,5.0)-2.0*pow(x,3.0)+x

Print setw(7), x

Print setw(14), y

}

Print "Problema B"

Print "valorx    valor y”

Print "------    -------“

Print setiosflags(ios::fixed)

Print setiosflags(ios::showpoint)

Print setprecision(5)

for (x=1.0 to 3.0 step x=x+0.1)

{

y=1.0+x+(pow(x,2)/2)+(pow(x,3)/6)+(pow(x,4)/24)

Print  setw(7), x

Print  setw(14), y

}

Print  "Problema C"

Print "valorx    valor y”

Print  "------    -------"

Print setiosflags(ios::fixed)

Print setiosflags(ios::showpoint)

Print setprecision(5)

for (x=4.0 to 10.0 step x=x+0.2)

{

y=2*exp(0.8*x)

Print setw(7), x

Print setw(14), y

}

Fin 

Problema no. 7

Inicio

Poblacion real

 t, A=2005 int

Print "año       publacion mundial"

for (t=5 to 12 step t=t+1)

{

poblacion=6.0*exp(0.02*t)

Print A, " ",poblacion

A=A+1;

}

Fin

Problema no. 8

Inicio

ang=(32.5*3.1416)/180, v=350.0, t, x, y real

Print "x      y"

for (t=0 to 20 step t=t+0.5)

{

x=v*t*cos(ang)

y=v*t*sin(ang)

Print x, " ", y

}

Fin

 

Problema No.9

Inicio

 A=1,h=20,conta=1 int

r=0.5,suma=0.0,termino=0.0 real

for (conta=1 to 20 step conta=conta+1)

{

termino=A*pow(r,(conta-1))

Print termino, "termino"

if(conta==20)

   {

   Print "="

   }

   else

   {

Print "+"

   }

   suma=suma+termino;

   }

   Print "suma"

Fin

Problema No. 10 (usando for)

Inicio
media_geo, media_armonica, x, prod=1.0, suma= 0.0 real
N, conta int
For(conta=1; x!=999; conta= conta+1)
{
Print “introduce  valor de numéro =? “
Read x
If (x!=999)
Prod= prod*x
Suma=suma+1.0/x
}
}
Mediag=sqrt(prod)
Mediaarmonica=(conta-1)/suma
Print “media geométrica = “, media_geo
Print “media armonica = “, media_armonica
Fin

Problema No. 10 (usando while)  

Inicio

 x, prod=1.0, suma=0.0, media_geo, media_armonica real

n=0, conta=0 int

while (x!=999)

{

Print "introduce valor de numero="

Read  x

if (x!=999)

{

conta=conta+1

prod=prod*x

suma=suma+1.0/x

}

}

media_geo=sqrt(prod)

media_armonica=(conta)/suma

Print  "media geometrica es=", media_geo

Print "media armonica es=", media_armonica

Fin