Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачка про басейн
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
JoB
Вот такая вот коротенькая задачка:
Концентрация хлорной извести в бассейне объемом «V» (м^3) составляет 10г\л. Через 1 трубу в бассейн вливают чистую воду с объемной скоростью «0», через другую трубу с такой же скоростью вода выливается из бассейна. При условии идеального перемешивания концентрация хлорной извести изменяется по закону с=с0е^(-0е/v) , где t время, «с0» –начальная концентрация. Определить через какое время концентрация хлорной воды достигнет безопасного для человека уровня 0,1 г/л. Вычислить ф-лю с=с0*e^(-ot/v) при изменении «t» с шагом в 10 мин до тех пор, пока не будет выполнено условие с<=0/1 (согласовать единицы измерения всех величин)
помогите плиз... unsure.gif
volvo
Согласно твоему условию, задача может решаться вот так:
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
добавил..
СП!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.