помогите проверить провильность и подредактировать., задача на паскале про дырявую бочку |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
помогите проверить провильность и подредактировать., задача на паскале про дырявую бочку |
Эдик |
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Эдик Репутация: 0 |
есть задача но помоему оно не правильна, есть среди вас знатоки которые мне помогут? Зарание благодарен!!
вот условие. В вертикально стоящей цилиндрической бочке с диаметром основания 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. Нр- это поправка на высоту. |
Эдик |
Сообщение
#2
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Эдик Репутация: 0 |
Ну неужели НИ У КОГО НЕТ СООБРАЖЕНИЙ!!!
|
Текстовая версия | 23.12.2024 19:55 |