Найти у по формуле. Программирование VBA. - Помощь студентам

_Душка_ · 10.06.2015, 19:23

Дана формула, требуется найти y. Для этого нужно составить блок-схему и программу.
Мой уровень программирования средний. Или ниже.
Вот это то что у меня получилось: http://clip2net.com/s/3j62ySq это программа и результат полученный с её помощью. http://clip2net.com/s/3j62NQB и блок-схема.
Блок-схема правильная. Но программа ей не соответствует. И я не знаю как задать косинус пи/3, чтобы прога понимала его как значение угла, а не 3.14. Через тангенс? Преподаватель сначала сказал что косинус пи/3 можно задать какой-то одной буквой, я же просто поставила значение косинуса 60ти градусов. А теперь оказывается не правильно. Сказал ввести как константу (я очень смутно представляю как это вообще сделать).
И в программе стоит вместо next c, next i. Потому что когда было с, была ошибка. А что за ошибка не понятно(

Аватар · 10.06.2015, 19:36

Код:

Const pi = 3.14159265358979
...
чего-то=cos(pi/3)

_Душка_ · 10.06.2015, 19:39

Мне нужно чтобы пи/3 в программе обозначало 60 градусов, а не 3.14/3.
Да и с самой программой проблема, она не соответствует блок-схеме.

Аватар · 10.06.2015, 19:43

Ну косинус то от радиан, а не градусов. Формула перевода:

Угол в радианах = угол в градусах * pi/180

Для любимых 60 будет 60*pi/180 и вот незадача - это опять pi/3

_Душка_ · 10.06.2015, 19:50

Т.е. я пи просто объявляю со всеми переменными и задаю?
Dim Pi As Double
Pi=
так?

10.06.2015, 19:23	#1
_Душка_ Регистрация: 10.06.2015 Сообщений: 5	Найти у по формуле. Программирование VBA. Дана формула, требуется найти y. Для этого нужно составить блок-схему и программу. Мой уровень программирования средний. Или ниже. Вот это то что у меня получилось: http://clip2net.com/s/3j62ySq это программа и результат полученный с её помощью. http://clip2net.com/s/3j62NQB и блок-схема. Блок-схема правильная. Но программа ей не соответствует. И я не знаю как задать косинус пи/3, чтобы прога понимала его как значение угла, а не 3.14. Через тангенс? Преподаватель сначала сказал что косинус пи/3 можно задать какой-то одной буквой, я же просто поставила значение косинуса 60ти градусов. А теперь оказывается не правильно. Сказал ввести как константу (я очень смутно представляю как это вообще сделать). И в программе стоит вместо next c, next i. Потому что когда было с, была ошибка. А что за ошибка не понятно(

10.06.2015, 19:36	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `Const pi = 3.14159265358979 ... чего-то=cos(pi/3)` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

10.06.2015, 19:39	#3
_Душка_ Регистрация: 10.06.2015 Сообщений: 5	Мне нужно чтобы пи/3 в программе обозначало 60 градусов, а не 3.14/3. Да и с самой программой проблема, она не соответствует блок-схеме. Последний раз редактировалось _Душка_; 10.06.2015 в 19:43.

10.06.2015, 19:43	#4
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Ну косинус то от радиан, а не градусов. Формула перевода: Угол в радианах = угол в градусах * pi/180 Для любимых 60 будет 60*pi/180 и вот незадача - это опять pi/3 Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Найти сумму по формуле	фндрей324	Помощь студентам	1	24.05.2015 06:29
VBA!!!Вычислить значения выражений по формуле	Stinray	Помощь студентам	0	23.05.2013 18:36
Найти s по формуле	investr	Microsoft Office Word	1	07.01.2012 20:06
Переменная в формуле кода VBA	VictorM	Microsoft Office Excel	9	30.08.2010 12:29
Найти массив по формуле	Наталья Ивановна	Microsoft Office Excel	0	26.05.2009 18:58

10.06.2015, 19:50	#5
_Душка_ Регистрация: 10.06.2015 Сообщений: 5	Т.е. я пи просто объявляю со всеми переменными и задаю? Dim Pi As Double Pi= так?