Busca en Google

lunes, 23 de junio de 2008

Respuesta posible a los problemas (no única)

1.- dados tres numeros entregue suma, producto y promedio

var a,b,c :int
put "Ingrese un numero"
get a
put "ingrese otro"
get b
put "ingrese otro"
get c

put "la suma es", a+b+c
put "el producto es ", a*b*c
put "el promedio es", (a+b+c)/3

put "bien...."


2.- Dados 2 nros. entregue... primero mayor, segundo mayor o iguales

var n,m :int
put "Ingrese 1 numero"
get n
put "ingrese otro nro"
get m
if n > m then

put "El Primero es Mayor"
elsif m > n then
put "El Segundo es Mayor"
else
put "Son Iguales"
end if



Nota: Inicialmente habia un error, como indica winjaime en los comentarios... creo que al copiar pegar... se comio una linea... (pasa en las mejores familias...)

2 comentarios:

Anónimo dijo...

para sacar una potencia: (a+b+c)**n

donde n es el exponente

Anónimo dijo...

Un error en el segundo ejercicio (disculpe) (con negrita lo que debería ser según yo):

var n,m :int
put "Ingrese 1 numero"
get n
put "ingrese otro nro"
get m
if m >n then
put "El Segundo es Mayor"
elsif n >m then
put "El primero es mayor"

else
put "Son Iguales"
end if

Breve explicación: si ud pone if m <>n then
put "El Segundo es Mayor" <> no lo reconocerá y si ud quiere saber si uno es mayor o menor hay dos condiciones, no una por lo que es necesario usar "elsif" para establecer nuestra segunda condición