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)
Iniciomedia_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
