Помощь - Поиск - Пользователи - Календарь
Полная версия: помогите проверить провильность и подредактировать.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Эдик
есть задача но помоему оно не правильна, есть среди вас знатоки которые мне помогут? Зарание благодарен!!
вот условие.
В вертикально стоящей цилиндрической бочке с диаметром основания d, заполненой до высоты H0 бензином, образовалась течь с плошадью поперечного сечения S, расположенная на растояний h от основания (h<H0). Течь заметили через время Т1. Известно, что скорость V вытекания бензина через отверстие определяетса формулой V=корень квадратный из(2g-(H-h)), где Н- высота уровня бензина (Н уменьшаетса с течением времени t), g- постоянное ускорение силы тяжести. известно также, что объем бензина Q, вытекающий через отверстие течи за единицу времени. Составить программу вычисления количества (в процентах) p=P бензина к моменту обнаружения течи из вертикально стояшей бочки. Получить численный результат для D=0.6м,H0=0.8м, S=2*10в степени --6 метр.квдр. h=H1=0.3м, T1=3600 cек., g=9.81 , PI(пи)=3.1416, дельта t=T0= 60 cек.


из физики получаетса формула для расчета дельтаV=S *T0* корень из (2g(H0-h)) (для 1-ой сек) но так как с течением времени меняется высота нужна поправка на высоту дельта H=дельта V*4 \ Pi*(d в квадрате) то дельтаV=S *T0* корень из (2g(H0-дельтаH-h)) (для 2-ой сек.)

как заставить паскаль подсчитать все это за 1 час?



вот задача:
uses crt;
const
D = 0.6;
h = 0.3;
pi = 3.1416;
g = 9.81;
S = 2e-6;
var
v,V0,Hp,
H0 : real;
dt : real;
T, t1 : real;
begin
clrscr;
H0 := 0.8;
t:=0;
write('Enter dt='); readln(dt);
write('Enter T1='); readln(t1);
V0:= s*sqrt(2*g*(H0-h));

repeat
Hp:=(H0-(4*v/pi/d*d));
v:=S*sqrt((Hp-h)*2*g)*dt;
{Hp:=h0-4*V/pi/D/D;}
T:=T+dt;
writeln('vremua cek=', t:5:0, ' vusota M= ', H0:10:8, ' obem V= ' , v:10:8);
until t>=T1;
writeln('procentu ' , (V0/v)*100, ' % ');
readln
end. Нр- это поправка на высоту.
Эдик
Ну неужели НИ У КОГО НЕТ СООБРАЖЕНИЙ!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.