Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 07.06.2019
Сообщений: 41
1

Где ошибка , циклы с условием

04.02.2020, 14:29. Просмотров 220. Ответов 4
Метки нет (Все метки)

Задание
Сумма

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub lab14()
Dim a1 As Single, s As Single, k As Integer
Const x = 0.2
Const eps = 0.001
k = 0
Do
a1 = a(x, k)
Cells(k + 2, 15) = a1
s = s + a1
k = k + 1
Loop While Abs(a1) > eps
Cells(k + 1, 1) = "S= " & s
End Sub
 
Function a(x, k)
a = (-1) ^ k * ((x / 2) ^ 2 * k) / Factorial(k) ^ 2
End Function
 
Function Factorial(n)
  Factorial = 1
  For I = 1 To 15
    Factorial = Factorial * I
  Next I
End Function
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.02.2020, 14:29
Ответы с готовыми решениями:

Циклы с условием, циклы с переменной, вложенные циклы
С условием 1. Ввести натуральное число N и вычислить сумму всех чисел фибоначчи меньших N....

Циклы!где-то ошибка!
Здравствуйте!Написала прогу по задачи,она считает,но не правильно!помогите найти ошибку....задание...

Создание, запись, чтение файла. Массивы, циклы. Где-то ошибка
Написал код небольшой программы, но где-то допустил ошибку. Не понимаю всех тонкостей, пожалуйста,...

Циклы с условием
Нужно сделать одно и тоже задание с циклом с предусловием и потом это же задание только с циклом...

4
3234 / 1978 / 637
Регистрация: 02.11.2012
Сообщений: 5,118
04.02.2020, 16:26 2
Visual Basic
1
2
3
Function Factorial(n)
  Factorial = 1
  For I = 1 To n
цикл будет выполняться пока будет выполняться условие Abs(a1) > eps, а у вас в первом же проходе 0>0,001, т.е. ЛОЖЬ.
Цикл от 1 до 15 нужен в основном коде, на сколько я понял.
1
1 / 1 / 0
Регистрация: 07.06.2019
Сообщений: 41
04.02.2020, 16:31  [ТС] 3
Цитата Сообщение от JuckZero Посмотреть сообщение
Loop While Abs(a1) < eps
Нашел в чем ошибка, в знаке
0
3234 / 1978 / 637
Регистрация: 02.11.2012
Сообщений: 5,118
04.02.2020, 16:36 4
не факт. если а1=-0,01 то ваше условие выдаст ЛОЖЬ.
0
1 / 1 / 0
Регистрация: 07.06.2019
Сообщений: 41
04.02.2020, 16:58  [ТС] 5
Цитата Сообщение от Vlad999 Посмотреть сообщение
не факт. если а1=-0,01 то ваше условие выдаст ЛОЖЬ.
Работает спокойно
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2020, 16:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Циклы с условием
Вот такую программу нажно написать, обьясните хотя бы с чего начать

Циклы с условием окончания
Всем привет. Задание: исследовать ряд на сходимость. Помогите пожалуйста написать, в голову...

Циклы с условием окончания
Помогите пож-ста написать код программы

Циклы с пред и пост условием
В последовательности целых чисел , завершающейся отрицательным числом , найти порядковый номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.