Составить программу расчета нормы внесения известкового удобрения (т/га) по формуле: Д=_______100* Н__________, где Н- полная норма
10-11 класс
|
CaCO3 т/га, В- влажность
(100- В)*(100-К)*П
извести, %; К- количество недеятельных частиц%; П- нейтрализующая способность СаСО3,%.
полная норма СаСО3 изменяется в пределах от 2 до 4 т/га с шагом 0,1 т/га.
var h,b,k,p,d:real;
begin
write('Введите В, К, П:');
readln(b,k,p);
writeln(' H','Д':8);
h:=2;
repeat
d:=100*h/(100-b)/(100-k)/p;
writeln(h:1:1,d:10:3);
h:=h+0.1
until h>4.0001 {Вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы}
end.
Другие вопросы из категории
вещественной матрицы, меньших среднего арифметического всех элементов, рассмотренного столбца.
234; 823, 2301; 3857, 6831
равносторонний, равнобедренный или разносторонний), иначе выдать соответсвующее сообщение.
Читайте также
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
2. Составить программу для упорядоченное двух элементов по убыванию.
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".