Разработать программу на языке Паскаль. Определить техническую скорость бурения и производительность. Техническая скорость бурения: 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: real;
V, Q: real;

begin
writeln('Введите давление в скважине (p): ');
readln(p);

writeln('Введите вес на долото (w): ');
readln(w);

writeln('Введите диаметр скважины (d): ');
readln(d);

writeln('Введите время цикла бурения (Tc): ');
readln(Tc);

writeln('Введите время на обслуживание (Tn): ');
readln(Tn);

writeln('Введите время на перемещение (Tp): ');
readln(Tp);

writeln('Введите время на передачу нагрузки (Tl): ');
readln(Tl);

writeln('Введите время на подвод бурового раствора (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.