ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите решить задачку :)
25 сообщений из 67, страница 2 из 3
  2  все
Помогите решить задачку :)
    #36695196
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shamanus,

Двоечник!
Плотность БУМАГИ - г/м2
Вес - г
Вес/Плотность - в числителе м2
...
Рейтинг: 0 / 0
18.06.2010, 16:39
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695199
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ShamanusА для объема проще ванну с водой и вытесненную жидкость.
коэффициент впитываемости воды в бумагу учел? не морочь голову.
...
Рейтинг: 0 / 0
18.06.2010, 16:40
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695202
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.ProShamanusА для объема проще ванну с водой и вытесненную жидкость.
коэффициент впитываемости воды в бумагу учел? не морочь голову.
А еще пленка поверхностного натяжения вносит существенную погрешность измерения.
...
Рейтинг: 0 / 0
18.06.2010, 16:42
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695211
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Эх! Молодёж!
Интегрируете формулы для получения функции поверхности и по ней вычисляете дифференциал для получения прощади
поверхности

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.06.2010, 16:43
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695226
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Игорь Горбонос
Эх! Молодёж!
Интегрируете формулы для получения функции поверхности и по ней вычисляете дифференциал для получения прощади поверхности

На год всего старше - а обзывается.
Интегралом каждый дурак может
...
Рейтинг: 0 / 0
18.06.2010, 16:47
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695228
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Shocker.Pro
Двоечник!
Плотность БУМАГИ - г/м2
Вес - г
Вес/Плотность - в числителе м2

В СИ плотность г/см³. Википедия молвит :) А то, что полиграфисты жисть себе упрощают чтобы юзверям голову не морочить не в счет. Бумага находится в 3D мире значит гр/см³. Можно же лист порезать на поперек очень тонко посередине. Площадь не поменяется, а плотность упадет вдвое.
Так что.....


Shocker.Pro,коэффициент впитываемости воды в бумагу учел? не морочь голову.

тююю, да тут вообще все просто. Берем 100мл воды, берем лист бумаги. Кладем считаем объем вытесненной воды. Потом кладем листик под колбу абсолютно сухого воздуха, сушим, считаем объем образовавшегося конденсата.

Плюсуем.
...
Рейтинг: 0 / 0
18.06.2010, 16:47
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695234
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Shocker.ProShocker.ProShamanusА для объема проще ванну с водой и вытесненную жидкость.
коэффициент впитываемости воды в бумагу учел? не морочь голову.
А еще пленка поверхностного натяжения вносит существенную погрешность измерения.

ну здрасти, конечно лист нужно погрузить в воду т.е. утопить
а значит никакого коэф. натжения тут уже не будет
...
Рейтинг: 0 / 0
18.06.2010, 16:49
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695239
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Shamanus,
конденсат приплёл... Взвешиваем сухой и мокрый, чего проще :)
...
Рейтинг: 0 / 0
18.06.2010, 16:50
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695241
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Shocker.ProИгорь Горбонос
Эх! Молодёж!
Интегрируете формулы для получения функции поверхности и по ней вычисляете дифференциал для получения прощади поверхности

На год всего старше - а обзывается.
Интегралом каждый дурак может

да :)
...
Рейтинг: 0 / 0
18.06.2010, 16:50
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695245
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Hugo121Shamanus,
конденсат приплёл... Взвешиваем сухой и мокрый, чего проще :)

тогда весы придется использовать.
Тогда это не кошернее и не проще чем методика Shocker.Pro
тут цель способ проще найти
...
Рейтинг: 0 / 0
18.06.2010, 16:51
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695253
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Shocker.ProShamanus,

Двоечник!
Плотность БУМАГИ - г/м2
Вес - г
Вес/Плотность - в числителе м2

и кстати ты не учел принтер.
Например струйник повысит вес бумаги из-за веса чернил
...
Рейтинг: 0 / 0
18.06.2010, 16:53
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695267
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shamanusну здрасти, конечно лист нужно погрузить в воду т.е. утопить
а значит никакого коэф. натжения тут уже не будет
Я только имел ввиду то, что объем вытесненной воды нужно как-то определить. Либо по шкале с рисками, либо по тому, что выльется. В обоих случаях для такого небольшого объема, как лист бумаги, пленка внесет погрешность.
...
Рейтинг: 0 / 0
18.06.2010, 16:59
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695273
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shamanusи кстати ты не учел принтер.
Например струйник повысит вес бумаги из-за веса чернил
печатать самую тонкую полоску и резать строго. Останется в пределах погрешности, вносимой ножницами.
...
Рейтинг: 0 / 0
18.06.2010, 17:00
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695276
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Я боюсь, что абсолютно беспотерьно высушить не получится, разве что в герметичной таре и на охлаждённую поверхность осаждать...
...
Рейтинг: 0 / 0
18.06.2010, 17:01
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695282
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Товарищи, я понимаю что пятница, и что обсуждаемое по теме топика, но специально для таких изысков была создана
Курительная .
Все туда!

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.06.2010, 17:03
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695287
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
Hugo121Я боюсь, что абсолютно беспотерьно высушить не получится, разве что в герметичной таре и на охлаждённую поверхность осаждать...

колба это и есть "герметичной таре и на охлаждённую поверхность"
основание подогревается, влага испаряется. Температура окружающей среды ниже чем температура основания. Следовательно верхняя часть колбы прохладнее -> конденсат!!!
...
Рейтинг: 0 / 0
18.06.2010, 17:04
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695330
TanyaSamara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TanyaSamara
Гость
помогите мне создать функцию в VBA для подсчёта суммы отрицательнех чисел в диапазоне....
я написала так:

Function sumotr(Diapozon)
Dim s As Single
s = 0
For Each cell In Diapozon
If cell.Value < 0 Then s = s + cell.Value
Next cell
sumotr = s
End Function

это работает правильно.....но моего учителя это не устраивает, как это по другому можно сделать????
...
Рейтинг: 0 / 0
18.06.2010, 17:14
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695344
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
TanyaSamara,

способов 1000000 и плюс 1
например вот такой

Код: plaintext
1.
2.
3.
Function sumotr(Diapozon As Range)
sumotr = WorksheetFunction.SumIf(Diapozon, "<0", Diapozon)
End Function

что не устроило преподавателя?
...
Рейтинг: 0 / 0
18.06.2010, 17:20
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695351
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Он не уточнил, что его не устраивает?
...
Рейтинг: 0 / 0
18.06.2010, 17:22
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695374
TanyaSamara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TanyaSamara
Гость
Shamanus,

спасибо большое=)))))
....
если не сложно помоги ещё и с этой задачкой: надо подсчитать разницу между самым большим и самим маленьким числом в диапазоне...
я написала так:

Function maxmin(Diapozon)
Dim min, max, raz As Single
max = 0
min = 0
For Each cell In Diapozon
If cell > max Then max = cell
If cell < min Then min = cell
Next cell
raz = max - min
maxmin = raz
End Function

это тоже работает...но преподаватель опять требует сделать как нибудь по другому...=((
...
Рейтинг: 0 / 0
18.06.2010, 17:31
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695380
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
TanyaSamaraShamanus,

спасибо большое=)))))
....
если не сложно помоги ещё и с этой задачкой: надо подсчитать разницу между самым большим и самим маленьким числом в диапазоне...
я написала так:

Function maxmin(Diapozon)
Dim min, max, raz As Single
max = 0
min = 0
For Each cell In Diapozon
If cell > max Then max = cell
If cell < min Then min = cell
Next cell
raz = max - min
maxmin = raz
End Function

это тоже работает...но преподаватель опять требует сделать как нибудь по другому...=((


Татьяна так не бывает
Напишите, что именно не устроило.

Он же не сказал мне не нравится, переделай. Он мог сказать например так (один из вариантов)- мы с Вами проходили массивы, решите эту задачу в ключе массивов. А не примитивным перебором.

Без этого Вы нарветесь на то, что те варианты, которые мы размещаем здесь его тоже не устроит.
...
Рейтинг: 0 / 0
18.06.2010, 17:35
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695383
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
А зачем? что не нравится преподавателю?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.06.2010, 17:36
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695389
TanyaSamara
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TanyaSamara
Гость
просто преподаватель меня ненавидит, придирается ко всему...... сказал что я пишу некоректно и что можно писать намного проще чем так как пишу я....
хотя я помогала некоторым людям в нашей группе и у них он принял работы без вопросов...
...
Рейтинг: 0 / 0
18.06.2010, 17:40
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695395
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну Шаманус предложил вариант с SumIf
Наверняка там есть и Max и Min
...
Рейтинг: 0 / 0
18.06.2010, 17:43
| Ответить | Цитировать | Написать  
Помогите решить задачку :)
    #36695399
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
TanyaSamaraпросто преподаватель меня ненавидит, придирается ко всему...... сказал что я пишу некоректно и что можно писать намного проще чем так как пишу я....
хотя я помогала некоторым людям в нашей группе и у них он принял работы без вопросов...

ну так может он придирается к вот таким мелочам
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function maxmin(Diapozon)
Dim min, max, raz As Single
max =  0 
min =  0 
For Each cell In Diapozon
If cell > max Then max = cell
If cell < min Then min = cell
Next cell
raz = max - min  ' вот эти две строки легко заменяются на maxmin = max - min
maxmin = raz     '
End Function

просто способ

Код: plaintext
1.
2.
Function maxmin(Diapozon As Range)
maxmin= WorksheetFunction.Max(Diapozon)-WorksheetFunction.Min(Diapozon)
End Function

тоже работает, но он мягко говоря неправильный, скажем в VB он не будет работать, только в VBA
...
Рейтинг: 0 / 0
18.06.2010, 17:45
| Ответить | Цитировать | Написать  
25 сообщений из 67, страница 2 из 3
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите решить задачку :)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]