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

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

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. Нр- это поправка на высоту.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





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

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


Ну неужели НИ У КОГО НЕТ СООБРАЖЕНИЙ!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 24.01.2022 10:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name