Páginas

Bienvenidos

Este blog busca darle algunas herramientas para trabajar con varios de los programas más interesantes y útiles de la actualidad.

El objetivo es emplear ejemplos y su desarrollo paso a paso para que el aprendizaje sea lo más fácil y real posible.

Mathematica

Mathematica
Mathematica

Etiquetas

Datos personales

Mi foto
Ingeniero
Esp. Informática y Computación
Esp. Administración de Sistemas

apache Flex

Mathematica

Todo el poder de Mathematica en la Web:



Ejemplos de uso:

1) Plot3D[Sin[x]*Cos[y],{x,0,2 Pi},{y,0,Pi}]
2) Colombia

Escribe el ejemplo y da clic en el igual

Seguidores

viernes, 5 de marzo de 2010

PostHeaderIcon Purebasic - Ejemplo 004

Objetivo:

Comprender el uso de la instrucciones IF-ELSE-ENDIF anidadas.


Problema:

Leer tres (3) números y mostrarlos en orden de mayor a menor.


Solución:



Análisis

Hay que leer tres números enteros y hacer el siguiente análisis:


SI numero_1 > numero_2 ENTONCES
SI numero_2 > numero_3 ENTONCES
MOSTRAR numero_1,numero_2,numero_3
SINO:
SI numero_1 > numero_3 ENTONCES
MOSTRAR numero_1,numero_3,numero_2
SINO:
MOSTRAR numero_3,numero_1,numero_2
FINSI
FINSI
SINO:
SI numero_1 > numero_3 ENTONCES
MOSTRAR numero_2,numero_1,numero_3
SINO:
SI numero_2 > numero_3 ENTONCES
MOSTRAR numero_2,numero_3,numero_1
SINO:
MOSTRAR numero_3,numero_2,numero_1
FINSI
FINSI
FINSI




Variables

Se usaran tres variables para leer las longitudes de los lados del triángulo.

i_X = Número 1
i_Y = Número 2
i_Z = Número 3



Programa
;EJEMPLO NUMERO 004

EnableExplicit

OpenConsole()

Define.i i_X, i_Y, i_Z

Print("Número 1: ")
i_X=Val(Input())
Print("Número 2: ")
i_Y=Val(Input())
Print("Número 3: ")
i_Z=Val(Input())

If i_X > i_Y
If i_Y > i_Z
Print(Str(i_X)+"."+Str(i_Y)+","+Str(i_Z))
Else
If i_X > i_Z
Print(Str(i_X)+"."+Str(i_Z)+","+Str(i_Y))
Else
Print(Str(i_Z)+"."+Str(i_X)+","+Str(i_Y))
EndIf
EndIf
Else
If i_X > i_Z
Print(Str(i_Y)+"."+Str(i_X)+","+Str(i_Z))
Else
If i_Y > i_Z
Print(Str(i_Y)+"."+Str(i_Z)+","+Str(i_X))
Else
Print(Str(i_Z)+"."+Str(i_Y)+","+Str(i_X))
EndIf
EndIf
EndIf

Input()
CloseConsole()
End


0 comentarios:

Publicar un comentario

Apache Flex

Wolfram Programming Lab