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

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

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

 
 Ответить  Открыть новую тему 
> Задачка про басейн
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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)...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

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

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


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

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

 




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