IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задачка про басейн
JoB
сообщение 8.04.2006 23:36
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Мужской
Реальное имя: Григорий

Репутация: -  0  +


Вот такая вот коротенькая задачка:
Концентрация хлорной извести в бассейне объемом «V» (м^3) составляет 10г\л. Через 1 трубу в бассейн вливают чистую воду с объемной скоростью «0», через другую трубу с такой же скоростью вода выливается из бассейна. При условии идеального перемешивания концентрация хлорной извести изменяется по закону с=с0е^(-0е/v) , где t время, «с0» –начальная концентрация. Определить через какое время концентрация хлорной воды достигнет безопасного для человека уровня 0,1 г/л. Вычислить ф-лю с=с0*e^(-ot/v) при изменении «t» с шагом в 10 мин до тех пор, пока не будет выполнено условие с<=0/1 (согласовать единицы измерения всех величин)
помогите плиз... unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 9.04.2006 10:51
Сообщение #2


Гость






Согласно твоему условию, задача может решаться вот так:
var
V, O: double;
C: double;
T: integer;

const
Ccrit = 100; { 100 г / кубометр }
C0: double = 10000; { 10000 г / кубометр }

begin
V := 2000; { кубометры }
O := 15; { кубометры в минуту }

T := 0;
repeat
Inc(T, 10); { T = T + 10 min }
C := C0 * exp(-O * T / V);
until C < Ccrit;
writeln('T = ', T, ' min');

end.

(можешь добавить ввод O и V)...
 К началу страницы 
+ Ответить 
JoB
сообщение 9.04.2006 16:13
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Мужской
Реальное имя: Григорий

Репутация: -  0  +


добавил..
СП!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 3:09
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"