Перевод кода - VB (58647)

Узнай цену своей работы

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

Помогите пожалуйста перевести код с паскаля на VB.

Решение задачи: «Перевод кода»

textual
Листинг программы
Option Base 1
Private Sub Command1_Click()
Dim a(4) As Single, b(4) As Single, x As Single, p As Single, s As Single, z As Single
Dim i As Byte, j As Byte, k As Byte
For i = 1 To 4
    a(i) = Val(InputBox("Введите " & i & "-й элемент вектора А"))
Next i
For i = 1 To 3
    b(i) = Val(InputBox("Введите " & i & "-й элемент вектора B"))
Next i
x = Val(InputBox("Введите значение Х"))
k = 0: i = 1: p = 1
Do While i < 4 And k = 0
    If a(i) + x < 0 Then
        k = 1
        Else
        p = p * Sqr(a(i) + x)
        i = i + 1
    End If
Loop
If k = 1 Then
    MsgBox "Зеачение Z не определено!", 0, ""
    Exit Sub
End If
k = 0: j = 1: s = 0
For j = 1 To 3
    If b(j) < 0 Then
        k = 1
        Else
        s = s + Sqr(b(j))
    End If
    If k = 1 Or s = 0 Then
        MsgBox "Зеачение Z не определено!", 0, ""
        Exit Sub
    End If
Next j
z = p / s
Print "Z = " & Format(z, "#.###")
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4 из 5