Перевод кода - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д