Переписать прогу с VB на delphi

qpush

Здравствуйте форумчане, есть прога написанная на VB, нужно написать эту же прогу только на delphi, помогите пожалуйста с delphi никогда не работал, ни же код программы :
Private Sub Command1_Click()
zf = Val(Text1)
z = Val(Text2)
a = Array(25, 30, 40, 50, 55, 60, 70, 80, 90, 100)
For i1 = 0 To UBound(a)
 For i2 = 0 To UBound(a)
 If i2 = i1 Then GoTo 1
  For i3 = 0 To UBound(a)
   If i3 = i2 Then GoTo 2
   For i4 = 0 To UBound(a)
   If i4 = i3 Then GoTo 3
If (a(i1) / a(i2)) * (a(i3) / a(i4)) = (zf - z) * 40 / zf Then
Print "a = "; a(i1)
Print "b = "; a(i2)
Print "c = "; a(i3)
Print "d = "; a(i4)
Exit Sub
End If
 
   Next i4
3 Next i3
2 Next i2
1 Next i1
 
Print "не найдено"
End Sub
2 ответа

qpush

а что она вообще делает?) скинь скрин проги


qpush

программа предназначена для для расчета формулы (a/b)*(c/d)=(zf - z) * 40 / zf и выбора элементов a,b,c,d(в программе i1,i2,i3,i4) из массива, zf и z задаются