42 lines
956 B
Plaintext
42 lines
956 B
Plaintext
#include <basico.h>
|
|
|
|
algoritmo
|
|
|
|
x = 77444, y = -12.5, z = 0
|
|
low=x, midd=y, high=z
|
|
|
|
imprimir("BEFORE:\nX = ",x, " Y = ",y, " Z = ",z,NL)
|
|
#basic{
|
|
x = min( min( low,midd),high)
|
|
z = max( max( low,midd),high)
|
|
y = low + midd + high - x - z
|
|
}
|
|
|
|
imprimir("\nAFTER:\nX = ",x, " Y = ",y, " Z = ",z,NL,NL)
|
|
|
|
x = "lions, tigers, and"
|
|
y = "bears, oh my!"
|
|
z = "(from the \"Wizard of OZ\")"
|
|
imprimir("BEFORE:\nX = ",x, "\nY = ",y, "\nZ = ",z,NL)
|
|
#(x > y), entonces { intercambiar( x,y) }
|
|
#(y > z), entonces {
|
|
intercambiar (y,z )
|
|
#(x > y), entonces { intercambiar( x,y ) }
|
|
}
|
|
|
|
imprimir("\nAFTER:\nX = ",x, "\nY = ",y, "\nZ = ",z,NL,NL)
|
|
|
|
p = {}
|
|
'"lions, tigers, and",77444,"bears, oh my!",-12.7,0,"(from the \"Wizard of OZ\")"'
|
|
enlistar en 'p'
|
|
|
|
fijar separador 'NL'
|
|
|
|
imprimir("BEFORE:\n",p,NL)
|
|
matriz.ordenar(p)
|
|
|
|
imprimir("\nAFTER:\n",p,NL)
|
|
|
|
|
|
terminar
|