C 語言實現:
#include?<stdio.h>int?main(void)
{
float?miles?=?0,?kilometers?=?0;
scanf("%f",?&miles);
kilometers?=?miles?*?1.60934;
printf("%f\n",?kilometers);
return?0;
}
VB 實現:
Option?ExplicitPrivate?Sub?Form_Load()
Dim?Miles?As?Single,?Kilometers?As?Single
Miles?=?InputBox("Input?miles:",?"Input")
Kilometers?=?Miles?*?1.60934
MsgBox?Kilometers,?vbInformation,?"Output"
End?Sub
VBScript 實現:
Option?ExplicitDim?Miles,?Kilometers
Miles?=?InputBox("Input?miles:",?"Input")
Kilometers?=?Miles?*?1.60934
MsgBox?Kilometers,?vbInformation,?"Output"
PC Logo 實現:
TO CONVERT
MAKE "MILES READ
MAKE "KILOMETERS :MILES*1.60934
PR :KILOMETERS
END
或
TO CONVERT :MILES
MAKE "KILOMETERS :MILES*1.60934
PR :KILOMETERS
END
Scratch 實現: