Перепишите пожалуйста код с языка С++ на Visual Basic - VB

Формулировка задачи:

Вот кусок кода который нужно переписать на Visual Basic

                    Листинг программы
                
 
                        
                          
                    
int A=12.83, B=0.863,P=3.14;
    double o;
    float r;
    cin>> o;
    if (A>o>B)
    {
        r= (pow(log10(o), 1/3))+o;
        
    }
    if (A<o)
    {
        r= o+A*sin(o*o+P/12);
        
    }

Решение задачи: «Перепишите пожалуйста код с языка С++ на Visual Basic»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim A As Double, B As Double, P As Double
    Dim o As Double, r As Double
    A = 12.83: B = 0.863: P = 3.14
    o = InputBox("o = ", , 10.3)
    If (A > o And o > B) Then r = ((Log(o) / Log(10#)) ^ (1 / 3)) + o
    If (A < o) Then r = o + A * Sin(o * o + P / 12)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    MsgBox r
End Sub

Оцени полезность:

11 голосов , оценка 4.182 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы