Practica Extra

Problema 1


1.- Inicio
vcelsius,cantidad,inc,celsius,farenheit,c=0      int
Print ”valor incial celsius= "
Read vcelsius
Print "Numero de conversiones= "
Read cantidad
Print "Incremento de temperatura celsius= "
Read inc
celsius = vcelsius
while(c<=cantidad)
{
farenheit=(9.0/5.0)*celsius+32;
Print "celsius "     "  farenheit"
Print ,Celsius,"        ",farenheit
celsius = celsius+inc
c = c+1
}
Fin

Problema 2

1.- Inicio

n1,n2,n3,n4,n5     int
i=0                          int
Print “valor 1 : "
Read n1
Print "valor 2 : "
Read n2
Print "valor 3 : "
Read n3
Print "valor 4 : "
Read n4
Print "valor 5 : "
Read n5
for(i=1; i<=n1;  i++)
{
Print "*"
}
Print ,endl
for(i=1; i<=n2;  i++)
{
Print "*"
}
Print ,endl
for(i=1   to    i<=n3  step  i++)
{
Print "*"
}
Print ,endl
for(i=1   to  i<=n4  step   i++)
{
print "*"
}
print ,endl
for(i=1  to  i<=n5   step  i++)
{
Print "*"
}
Print ,endl

Fin.

Problema 3

1.- Inicio

n ,num,conta=1       int
lim,saldo,nuevo       real
Print "cuantos clientes deseas registrar : "
Read n
while(conta<=n)
{
Print " Numero de cuenta del cliente : "
Read num
Print " Limite de credito antes de la recesion : "
Read lim
Print "Saldo actual del cliente"
Read saldo
nuevo=(lim*.5)
if(saldo>nuevo)
{
Print " Exedio limite de credito ";
}
Print"nuevo limite de credito",nuevo;
conta = conta+1
}

Fin

Problema 4

1.- Inicio 

tf = 40,l=7365;      int

 a = 11.7e-6,longitud;  real

 t0 = 0;           real

Print " Grados    Longitud Expandida ";

while(t0<40)

{

longitud = a*l*(tf-t0);

Print t0<<"              ",longitudl;

t0 = t0+5;

}

Fin.

Problema 5

1.- Inicio

i,max,sumap=0,suman=0,numero;      int

Print " Cuantos numeros = ";

Read max;

for(i=1;i<=max;i++)

{

Print " Numero entero : ";

Read numero;

if (numero<0)

{

suman = suman+numero;

}

else

{

if(numero>0)

{

sumap = sumap+numero;

}

}

}

Print " Suma positivos = ",sumap;

Print " Suma negativos = ",sumanl;

Fin.

Problema 6

1.- Inicio

 i,max,sumpos=0,sumneg=0,numero,cp=0,cn=0;    int

Print " Cuantos Numeros = ";

Read max;

for(i=1;i<=max;i++)

{

Print " Numero entero : ";

Read numero;

if (numero<0)

{

sumneg = sumneg+numero;

cn = cn+1;

}

else

{

if(numero>0)

{

sumpos = sumpos+numero;

cp = cp+1;

}

}

}

Print " Promedio de numeros positivos = ",(sumpos/cp);

Print " Promedio de numeros negativos = ",(sumneg/cn);

Fin.