07/11/10 15:06:01
VB（宣言がやたら長い）
Private Function v0_vy(ByVal v0 As Double, ByVal deg As Double, ByVal
t As Double, ByVal g As Double) As Double
Return ((v0 * Math.Sin(((deg * 3.1415926535897931) / 180))) - (g * t))
End Function
C#（とにかく短い）
private double v0_vy(double v0, double deg, double t, double g)
{
return ((v0 * Math.Sin((deg * 3.1415926535897931) / 180.0)) - (g * t));
}
Delphi（カルチャーショック）
function Form1.v0_vy(v0: Double; deg: Double; t: Double; g: Double): Double;
begin
Result := ((v0 * Math.Sin(((deg * 3.1415926535897931) div 180))) - (g * t))
end;
C++（記号多すぎｗ）
private: Double __gc* v0_vy(Double __gc* v0, Double __gc* deg, Double
__gc* t, Double __gc* g)
{
return ((v0 * Math::Sin(((deg * 3.1415926535897931) / 180))) - (g * t));
}