Разработать программу на языке Паскаль. Определить техническую скорость бурения и производительность. Техническая скорость бурения: V=3.5*p*w/П*d*d. Производительность станка: Q=(Tc-Tn-Tp-Tl)/(60/V+tb)

Предыдущий
вопрос Следующий
вопрос

program DrillingSpeedAndProductivity;

var
p, w, d, Tc, Tn, Tp, Tl, tb, V, Q: Real;

begin
Write('Введите значение плотности породы (p): ');
Readln(p);

Write('Введите значение весового числа бурового инструмента (w): ');
Readln(w);

Write('Введите значение диаметра скважины (d): ');
Readln(d);

Write('Введите значение времени циркуляции (Tc): ');
Readln(Tc);

Write('Введите значение времени нагнетания (Tn): ');
Readln(Tn);

Write('Введите значение времени подъема инструмента (Tp): ');
Readln(Tp);

Write('Введите значение времени лачуги (Tl): ');
Readln(Tl);

Write('Введите толщину скелета породы сверху на выходе инструмента (tb): ');
Readln(tb);

V := 3.5 p w / (Pi d d);
Q := (Tc - Tn - Tp - Tl) / (60 / V + tb);

writeln('Техническая скорость бурения: ', V:0:2);
writeln('Производительность станка: ', Q:0:2);
end.

// Пример входных данных:
// p = 2.5
// w = 450
// d = 0.3
// Tc = 32.5
// Tn = 3.2
// Tp = 1.5
// Tl = 1.8
// tb = 0.2

// Результат:
// Техническая скорость бурения: 302.03
// Производительность станка: 5.18