Страница: 1 |
Страница: 1 |
Вопрос: Пожалуйста, помогите!
Добавлено: 30.05.06 13:09
Автор вопроса: maza
Кто-нибудь, пожалуйста, напишите бесплатно программный код для задачи: Сечение крыши имеет форму полукруга с радиусом R м. Требуется сформировать таблицу, содержащую длины опор, устанавливаемых через каждые R\5 м.
З.Ы. Я понимаю, что сейчас почти все делают за WMZ и WMR, но у меня их нет...
Ответы
Всего ответов: 6
Номер ответа: 1
Автор ответа:
Pashenko
ICQ: 176176951
Вопросов: 14
Ответов: 655
Профиль | | #1
Добавлено: 30.05.06 14:41
Вот здесь писал уже: http://vbnet.ru/forum/show.aspx?id=110042
Что не работает?
Номер ответа: 2
Автор ответа:
maza
Вопросов: 2
Ответов: 4
Профиль | | #2
Добавлено: 30.05.06 14:43
нет, к сожалению, не работает
Номер ответа: 3
Автор ответа:
Pashenko
ICQ: 176176951
Вопросов: 14
Ответов: 655
Профиль | | #3
Добавлено: 30.05.06 15:03
Что конкретно не работает?
Какую ошибку выдаёт?
Номер ответа: 4
Автор ответа:
maza
Вопросов: 2
Ответов: 4
Профиль | | #4
Добавлено: 30.05.06 16:28
ошибки не выдает, но, в столбик пишет цифры от -5 до 5, а рядом с ними нули, это же неправильно...
Номер ответа: 5
Автор ответа:
Pashenko
ICQ: 176176951
Вопросов: 14
Ответов: 655
Профиль | | #5
Добавлено: 30.05.06 16:39
Переменную R инициализируешь?
Попробуй так:
dim i as long
dim L as double
dim R as double
R=inputbox("Введите радиус"
for i=-5 to 5
L=sqr(R^2-(R*i/5)^2)
me.print i; L
next i
Номер ответа: 6
Автор ответа:
Fever
Вопросов: 60
Ответов: 808
Профиль | | #6
Добавлено: 31.05.06 11:43
Ну как?