Question

Составить программу расчета нормы полива в теплице (л/м) по формуле:M=0,1*h*d*(-),гдеh– высота слоя грунта, см; d– объемная масса грунта, г/см3; W1 – рекомендуемая относительная влажность грунта, % ППВ; W2 – фактическая относительная влажность грунта, % ППВ. Фактическая относительная влажность грунта изменяется в пределах от 50 до 60 % ППВ с шагом 1 %.

Answer 1

//Если я правильно понял, то так...
var
  d, h, w1, w2: integer;

function readvalue(s: string): integer;
var t: integer;
begin
  write(s, ' ');
  readln(t);
  result := t;
end;

begin
  h := readvalue('Высота слоя грунта:');
  d := readvalue('Объём грунта:');
  w1 := readvalue('Рек. влажность грунта:');
  writeln('Вл. грунта | Норма полива');
  for w2 := 50 to 60 do
    writeln(w2:9, '% | ', 0.1*h*d*(w1-w2), ' л/м');
end.