Определить, на сколько дней хватит подкормки для животноводческой фермы?

@гзл · Регистрация: 20.03.2014

Author24 — интернет-сервис помощи студентам

Поле,отведенное для зеленой подкормки скота,имеет форму пятиугольника.Определить,на сколько дней хватит подкормки для животноводческой фермы,если известны среднесуточная потребность фермы и средняя урожайность зеленой массы(в тоннах) с 1 га(размеры поля заданы в метрах)

@Puporev · 12.10.2015, 18:22

Сообщение от гзл

размеры поля заданы в метрах

Что именно задано? Как площадь будешь считать?

@гзл · 12.10.2015, 19:06 **[ТС]**

Определить, на сколько дней хватит подкормки для животноводческой фермы?

@Puporev · 12.10.2015, 19:37

Pascal

uses crt;
function hip(x,y:real):real;
begin
hip:=sqrt(x*x+y*y);
end;
function pls(x,y,z:real):real;
var p:real;
begin
p:=(x+y+z)/2;
pls:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
var a,b,c,d,e,s,u,n:real;
    dn:integer;
begin
clrscr;
writeln('Введите длины сторон пятиугольника');
readln(a,b,c,d,e);
s:=pls(a,b,hip(a,b))+pls(d,e,hip(d,e))+pls(c,hip(a,b),hip(d,e));
write('Введите урожайность в тоннах/га u=');
readln(u);
write('Введите суточную норму в тоннах n=');
readln(n);
dn:=trunc(s/10000*u/n);
write('Корма хватит на ',dn,' дн.');
readln
end.

@гзл 0 / 0 / 4 Регистрация: 20.03.2014 Сообщений: 221
		1
	Определить, на сколько дней хватит подкормки для животноводческой фермы? 12.10.2015, 18:16. Показов 1076. Ответов 3 Метки нет (Все метки) Поле,отведенное для зеленой подкормки скота,имеет форму пятиугольника.Определить,на сколько дней хватит подкормки для животноводческой фермы,если известны среднесуточная потребность фермы и средняя урожайность зеленой массы(в тоннах) с 1 га(размеры поля заданы в метрах) 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.10.2015, 18:22	2
	Сообщение от гзл размеры поля заданы в метрах Что именно задано? Как площадь будешь считать? 0

@гзл 0 / 0 / 4 Регистрация: 20.03.2014 Сообщений: 221
	12.10.2015, 19:06 [ТС]	3
	0

	12.10.2015, 19:37

Опции темы