Проверьте правильность написания кода для visual - вопрос №7482795 от polyhovichvikto 07.04.2021 12:03

Question

Информатика: Проверьте правильность написания кода для visual basic тема программирование в vb, содержащие сложные циклы private sub command1_click() dim x, y, s, p, f, f1, a, t as single x = -5 p = 1 for n = 2 to 7 f = 1 for a = 1 to n - 1 f = f * a next a p = p * ((n + 1) / (n - 1)) next n s = 0 for k = 3 to 6 f1 = 1 for t = 1 to 2 * k f1 = f1 * t next t s = s + (2 * k / (k ^ 3 + 5)) next k z = p ^ 3 - 1 print z end sub

polyhovichvikto · Answer

Private Sub Command1_Click()Dim x, p, s, f, f1, z As SingleDim n, k As Integerx = -5p = 1For n = 2 To 7f = 1For k = 1 To n - 1f = f * kNext kp = p * ((n + 1) / (n - 1))Next ns = 0For k = 3 To 6f1 = 1For n = 1 To 2 * kf1 = f1 * nNext ns = s + (2 * k / (k ^ 3 + 5))Next kz = p ^ 3 - 1Print zEnd Sub...