/* Jugando con variables
* Enlazar nombres a objetos computacionales
* atscc -o Names Names.dat
* ./Names #radio_entero
*/
val PI = 3.1415926535; // Ligar a valores, fuera de main
val area = lam(x:int): double=>x*x*PI; // Ligar a funcion
// Main <- radio
implement main(argc, argv) = begin
if argc>=2 then let
val n = int1_of argv.[1]; // Cadena a Entero
in
print_string("Area del circulo... "); print_newline();
print(area(n)); print_newline();
end
end // fin de main
El radio se envia como parámetro en la llamada al Main. A continuación se muestra un video que demuestra el funcionamiento del código:
faith4of9the5heart
No hay comentarios:
Publicar un comentario