Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.96/26: Рейтинг темы: голосов - 26, средняя оценка - 4.96
1 / 1 / 0
Регистрация: 02.07.2011
Сообщений: 9

Вычислить значение выражения

02.07.2011, 19:36. Показов 5585. Ответов 27
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1. Дан пример:
arctg(sqrt(sin*(a-x/a)))
условия a=3.69, b= 2, x=60 градусов (эти значения ввести в на новом листе в excel и решить пример через vba
2. Дан пример:
(x^2+1)*(x-b)*sqrt(sin*(b*x^2/x+1))
условия a=3.69, b= 2, x=60 градусов (эти значения ввести в на новом листе в excel и решить пример через vba
3. Дан пример:
sqrt(cos*(x/2*3.14)

Пожалуйста решите кто может, очень нужно к завтрашнему дню.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.07.2011, 19:36
Ответы с готовыми решениями:

Вычислить значение выражения
Составить программу вычисления числа 2^64– 1, в результате сохранить все цифры.

Вычислить значение выражения
помогите, пожалуйста)))очень нужно.....и блок-схема) На форуме есть радактор формул

Вычислить значение выражения
при исчислении выдает ошибку в коде помогите исправить ошибку в редакторе VB.

27
763 / 270 / 57
Регистрация: 13.12.2009
Сообщений: 1,110
07.07.2011, 01:11
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от DIGER2 Посмотреть сообщение
Спасибо всем, решил
уравнение у=sqr(cos(x........
при х = 100 не имеет решения т.к. считаем нужно 100 / 2 = 50 и * на 3 = 150 градусов. приблизительно.
косинус от 90 до 180 градусов отрицательный. Корень из отрицательного не вычислить!!!!!!

Как ты решил?

Добавлено через 9 минут
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Вот, несмотря на бред в примере, за 15 минут решил (по минимуму).
Visual Basic
1
2
3
4
5
6
7
Sub What_is_y()  ' вычисляет функцию y = sqr(cos(x/2*3.14))
Dim x, y
x = 100                       ' здесь меняем икс
y = Sqr(Cos(x / 2 * 3.14))  ' здесь вычисляется игрек
 
MsgBox "y = " & y, vbInformation, "Значение функции"
End Sub
я расписал решение, поставь точки останова и увидишь.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
  ' вычисляет функцию y = sqr(cos(x/2*3.14))
Dim x As Single, y As Single
x = 100 ' здесь меняем икс
t = x * 3.1415926 / 180
r = t / 2 * 3.14
w = Cos(r)
y = Sqr(w)  ' здесь вычисляется игрек
 
MsgBox "y = " & y, vbInformation, "Значение функции"
End Sub
0
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
07.07.2011, 02:42
Ну зря старался. Парень же всё решил!

3.1415926 — это не 3.14, зачем «обострять» чью-то тупость... Да, напомнило пи, ну и что!

При x = 100 (в моей болванке-заготовке) cos берётся ровно от 157 радиан (≈8995°), что в первой четверти.

(Уж если забрели в болото бессмысленных формул — не стоит в нём купаться, да?)
0
763 / 270 / 57
Регистрация: 13.12.2009
Сообщений: 1,110
07.07.2011, 05:54
Цитата Сообщение от Sasha_Smirnov Посмотреть сообщение
Ну зря старался. Парень же всё решил!

3.1415926 — это не 3.14, зачем «обострять» чью-то тупость... Да, напомнило пи, ну и что!

При x = 100 (в моей болванке-заготовке) cos берётся ровно от 157 радиан (≈8995°), что в первой четверти.

(Уж если забрели в болото бессмысленных формул — не стоит в нём купаться, да?)
причем тут оскорбления. я этого не делал.
Он весь разговор говорил о градусах. в задании градусы. а формуле при преобразовании аргумента косинуса даны числа схожие с пи специально. грамотно составлено задание. при таки х=100. нет решения и проверять не надо, а прогу покажи. Он ждет его с нет решения. Проверка выполнения задания несколько секунд. если есть цифра иди считай.
0
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
07.07.2011, 13:24
Иду:
Цитата Сообщение от DIGER2 Посмотреть сообщение
Добавлено через 25 минут

Вот примеры в "нормальном" виде
Ну что говорить, если (3) вообще не так пишется! Там 3.14 в знаменателе — а DIGER2 ставит перед ним *! Градусы не градусы, пи не пи... полная каша.

Часа четыре уговаривали только дать примеры нормально.

P/s: кто не заметил, 157 радиан — не первая четверть. Но тоже положительная: 4-я.
0
763 / 270 / 57
Регистрация: 13.12.2009
Сообщений: 1,110
07.07.2011, 14:33
Всем спасибо за дискуссию !!!!
Thank you all for discussion!!!!!
1
1 / 1 / 0
Регистрация: 02.07.2011
Сообщений: 9
08.07.2011, 18:43  [ТС]
Хорош спорить, если нужно выложу все свои решения
0
22.08.2013, 15:53

Не по теме:

Обещанного три года ждут.

0
 Аватар для Sasha_Smirnov
5562 / 1370 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
04.04.2015, 19:54
DIGER2 так и не порадовал своими откровениями!..
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.04.2015, 19:54
Помогаю со студенческими работами здесь

Вычислить значение выражения
вот две задачи сделал!Третью не могу никак,помогите( Sub Macros 1 Dim x As Single, s As Single Max= -10^20 S=...

Вычислить значение выражения
Уже почти месяц туплю с этим заданием :(

Вычислить значение выражения
Даны действительное число а и натуральное число N.Вычислить: а(а+1)(а+2)(а+3)...(а+N-1) (цикл с параметром) При решении задачи...

Вычислить значение выражения
Дано действительное число X. Вычислить Y, если... 1) y=0 при x<=0 2) y=x. При 0<x<=1. 3)y=x^2-SinПx^2 в остальных...

Вычислить значение выражения
T=ln2(x-y) не могу перевести на язык VBA, чтобы написать его в модуль для решения алгоритма. помогите пож-та.


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

Или воспользуйтесь поиском по форуму:
28
Ответ Создать тему
Новые блоги и статьи
[golang] Алгоритм «Хак Госпера»
alhaos 17.05.2026
Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .
Рисование бинарного древа до 6-го колена на js, svg.
russiannick 17.05.2026
<svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
FSharp: interface of module
DevAlt 16.05.2026
Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов.
russiannick 14.05.2026
Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов
alhaos 12.05.2026
По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .
Debian 13: Установка Lazarus QT5
ВитГо 09.05.2026
Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива.
Hrethgir 06.05.2026
На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта
Argus19 01.05.2026
Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru