Нужно в Паскале abc решить эту задачу?

Anechkina80 3 апр. 2020 г., 06:59:16

Const mu = 0.

82 ; g = 9.

81 ;

var a, h, delta, h0, d, fm, f0, f, k, t : double ;

begin Write('Сторона основания, а(м) = ') ; Readln(a) ; Write('Высота, h(м) = ') ; Readln(h) ; Write('Толщина стенок, delta(мм) = ') ; Readln(delta) ; delta : = delta / 1000 ; { перевод в метры } Write('Глубина погруэения, h0(м) = ') ; Readln(h0) ; Write('Диаметр люка, d(мм) = ') ; Readln(d) ; d : = d / 1000 ; { перевод в метры } fm : = pi * sqr(d) / 4 ; f0 : = sqr(a) ; f : = sqr(a - 2 * delta) ; k : = sqrt(h0 - delta) - sqrt(h - delta - (h - h0) * f0 / f) ; t : = 2 * k / (mu * fm * sqrt(2 * g)) * f0 * f / (f0 - f) ; Writeln('Время затопления ёмкости t(с) = ', t)

end.

Тестовое решение :

Сторона основания, а(м) = 3.

52

Высота, h(м) = 1.

27

Толщина стенок, delta(мм) = 150

Глубина погруэения, h0(м) = 0.

635

Диаметр люка, d(мм) = 36

Время затопления ёмкости t(с) = 3280.

65395216006

В задании приводится ответ 3280.

653625, разница начинается с восьмого знака.

Поскольку текст программы, по которой выполнялось данное вычисление отсутствует, невозможно определить причину этого незначительного расхождения - применение арифметики иной точности, другая модификация Pascal.

ABC, иное значение константы g и т.

Д. .

V17fox 17 янв. 2020 г., 19:27:25 | 5 - 9 классы

Помогите Нужно нарисовать лягушку через программу паскаль abc?

Помогите Нужно нарисовать лягушку через программу паскаль abc.

Рил 17 сент. 2020 г., 02:31:08 | 5 - 9 классы

Паскаль, помогите решить задачу?

Паскаль, помогите решить задачу.

Ammosov 5 авг. 2020 г., 23:23:34 | 10 - 11 классы

Помогите ивт паскаль abc?

Помогите ивт паскаль abc.

Liesik 9 янв. 2020 г., 00:56:35 | 5 - 9 классы

В паскале ABC надо решить задачу на нахождение частного двух чисел?

В паскале ABC надо решить задачу на нахождение частного двух чисел.

Dashikon 17 янв. 2020 г., 20:30:09 | 10 - 11 классы

Помогите с паскалем ABC?

Помогите с паскалем ABC.

Настя26783 11 сент. 2020 г., 06:23:32 | 10 - 11 классы

Помогите решить задачу в паскаль ?

Помогите решить задачу в паскаль :

Polina21031 3 нояб. 2020 г., 07:55:00 | 5 - 9 классы

Помогите решить задачи, с помощью Паскаля?

Помогите решить задачи, с помощью Паскаля.

Bodan392 7 сент. 2020 г., 09:06:11 | 5 - 9 классы

Нужно написать в паскале ABC нужна помощь?

Нужно написать в паскале ABC нужна помощь.

Dashaf199802 12 июл. 2020 г., 18:12:04 | 10 - 11 классы

Решите плиз задачу , abc Pasca?

Решите плиз задачу , abc Pasca.

133291 23 янв. 2020 г., 09:34:40 | 5 - 9 классы

ПОМОГИТЕ С ИНФОРМАТИКОЙ?

ПОМОГИТЕ С ИНФОРМАТИКОЙ!

N - целое число, нужно вывести квадрат всех чисел о 1 до N.

В паскале abc.

Решить через for.