Форум программистов, компьютерный форум, киберфорум
ildwine
Войти
Регистрация
Восстановить пароль
Ещё один блог...
Рейтинг: 5.00. Голосов: 2.

Объём воды в неполной цистерне

Запись от ildwine размещена 01.11.2013 в 17:14
Обновил(-а) ildwine 28.05.2019 в 17:39

Цистерна (цилиндр) установлена горизонтально (лёжа). Диаметр равен D, Длина равна L. Рассчитать объём воды в цистерне, если известно, что уровень воды равен H (0 <= H <= D).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  l, d, r, h, s, v : real;
begin
  repeat
    write('введите длину цистерны (в метрах): ');
    readln(l);
  until (l > 0) and (l <= 100);
  repeat 
    write('введите диаметр цистерны (в метрах): ');
    readln(d)
  until (d > 0) and (d <= l / 2);  
  repeat 
    write('введите уровень воды (в метрах): ');
    readln(h)
  until (h >= 0) and (h <= d);
  r := d / 2;
  {площадь сегмента круга в разрезе цистерны занятая водой}
  s := (h - r) * sqrt(2 * h * r - sqr(h)) + sqr(r) *
       (pi / 2 + arctan((h - r) / (sqrt(2 * h * r - sqr(h)))));  
  {объём}
  v := s * l;
  writeln('объем воды: ', v:6:3, ' кубических метров');
  readln
end.
Размещено в Без категории
Просмотров 1653 Комментарии 5
Всего комментариев 5
Комментарии
  1. Старый комментарий
    Аватар для ArtemFM
    А почему диаметр цистерны не должен превышать половины от длинны цистерны?

    Ведь диаметр может быть и равным длине и больше???
    Запись от ArtemFM размещена 07.10.2015 в 19:20 ArtemFM вне форума
  2. Старый комментарий
    Аватар для ildwine
    Да ну это не суть (условие можно поменять)... Вся суть в формуле расчета площади сегмента круга от высоты заполненности водой... Ооочень долго выводил, в итоге нашел в инете готовую и запечатлел этот факт тут...
    Запись от ildwine размещена 07.10.2015 в 20:44 ildwine вне форума
  3. Старый комментарий
    Аватар для ildwine
    По хорошему надо еще бы учитывать углы кривизны торцов цистерны... ибо не видел на практике цистерн правильной цилиндрической формы: торцы скругленные...
    Запись от ildwine размещена 07.10.2015 в 20:45 ildwine вне форума
  4. Старый комментарий
    Аватар для vvm28
    А толщину стенок цистерны не надо учитывать? Ну предположим торцевые стенки толще, чем боковые.
    Еще нужно учесть скопившуюся грязь на дне цистерны.
    Запись от vvm28 размещена 15.12.2018 в 19:51 vvm28 вне форума
  5. Старый комментарий
    Аватар для Байт
    А простой интегральчик не катит? Вроде, там ничего сложного быть не должно...Да, итоговая формула не самая простая..
    Запись от Байт размещена 19.12.2018 в 18:21 Байт вне форума
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.