0 / 0 / 0
Регистрация: 12.11.2019
Сообщений: 12

Нужно разобратся с кодом давно его делал в VBA

15.12.2019, 21:18. Показов 853. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
тут что то про натуральное число. Но я забыл что тут делал. давно писал, а нужно сдать,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim x As Single, n As Integer
x = CSng(TextBox1.Text)
n = CInt(TextBox2.Text)
s = 0
For i = 1 To n
s = s + (1 / Sin(1) * 1 / Sin(1) + Sin(2) * 1 / Sin(1) + Sin(2) + Sin(n))
 
Next
TextBox3.Text = CStr(s)
 
End Sub
И когда когда ввожу числа: допустим в х ввожу - 1, в n 2 в s - выводится число 8,622.. что. Помогите разобраться а то давно писал...
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.12.2019, 21:18
Ответы с готовыми решениями:

Разобратся с кодом
Всем привет, делаю поиск фильмов, инфу беру с ОМДБ, прблема в том что постеры с названием и годом фильма он берет нормально, а инфу только...

требуется разобратся с кодом
Помогите поправить приложение которое рассчитывает скорость бега ,нужно чтобы скорость рассчитывалась в разных единицах измерения и...

Помогите разобратся с кодом.
Что нужно сюда дописать что бы этот код грамотно выдергивал то что мне нужно? <? $content = file_get_contents("url...

4
Эксперт MS Access
 Аватар для ltv_1953
17536 / 7288 / 1663
Регистрация: 21.06.2012
Сообщений: 13,957
15.12.2019, 21:53
Цитата Сообщение от PPooortttypiqo Посмотреть сообщение
s = s + (1 / Sin(1) * 1 / Sin(1) + Sin(2) * 1 / Sin(1) + Sin(2) + Sin(n))
Какой смысл в цикле суммировать одно и тоже. Не проще сразу
Visual Basic
1
s = n*(1 / Sin(1) * 1 / Sin(1) + Sin(2) * 1 / Sin(1) + Sin(2) + Sin(n))
0
Модератор
Эксперт MS Access
6231 / 2909 / 707
Регистрация: 12.06.2016
Сообщений: 7,839
15.12.2019, 23:57
Цитата Сообщение от PPooortttypiqo Посмотреть сообщение
...тут что то про натуральное число...
Разве?
Натуральные числа положительные ненулевые целые.
А здесь синусы углов в радианах, а синус всегда -1<= sin <=1.
0
Эксперт MS Access
 Аватар для alvk
7458 / 4591 / 302
Регистрация: 12.08.2011
Сообщений: 14,363
16.12.2019, 08:51
Почему не все переменные объявлены?
0
20 / 14 / 6
Регистрация: 20.06.2017
Сообщений: 37
16.12.2019, 18:03
PPooortttypiqo, Что вы делали это вопрос науке неизвестный. А вот чем вас результат не устраивает? При таких х и n вы и должны получить 8,6.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.12.2019, 18:03
Помогаю со студенческими работами здесь

Калькулятор - помогите разобратся с кодом
здраствуйте. помогите разобратся с кодом. { var curReadOut = okno.value; if (NewNum) { curReadOut = &quot;0.&quot;; ...

Пожалуйста помогте разобратся с кодом. Если не сложно поподробнее распишите
Процедура ОбработкаПроведения(Отказ, РежимПроведения) Если РежимПроведения = РежимПроведенияДокумента.НеОперативный Тогда ...

Нужно разобратся, ошибка
Здравствуйте. Компилятор выдаёт ошибку в строке find = true; ... cout &lt;&lt; &quot; Print the debtors &quot;&lt;&lt; endl; ...

Нужно разобратся в запросе MySQL
Доброе время суток. Возможно пишу не в том разделе, заранее прошу извинения. Прошу помочь разобраться в запросе, который находится...

Нужно разобратся с ассемблером, я на паре!
;ab + 9 .686 ; директива визначення типу мікропроцесора .model flat,stdcall ; завдання лінійної моделі пам’яті та угоди ОС Windows ...


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

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

Новые блоги и статьи
Тестирование Pull Request в Kubernetes с vCluster
Mr. Docker 19.07.2025
Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .
Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить
_Ivana 18.07.2025
p2UhJNMGY94
Десять Middleware Node.js для эффективного кодинга
Reangularity 18.07.2025
Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .
Context и глубины Android
mobDevWorks 18.07.2025
В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .
Результаты исследования от команды MCM (июль 2025 г.)
Programma_Boinc 18.07.2025
Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js
Reangularity 17.07.2025
React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .
Пишем адаптер для локального хранилища S3 на C#
stackOverflow 16.07.2025
Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .
Старые замки
kumehtar 16.07.2025
Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .
Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB
Javaican 15.07.2025
Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .
EmBitz, создание проекта, отладка, прошивка
locm 15.07.2025
Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru