Составьте программу в питоне.
Одна яблоня дает урожай x кг яблок. Один рабочий собирает у кг яблок за день. Сколько требуется яблонь, чтобы получить урожай в n тонн, сколько гектар займут эти яблони при стандартной схеме посадки 700 растений на гектар. Сколько рабочих нужно, чтобы убрать этот урожай за 30, 45, 60 дней соответственно.
На входе программа получает выбор сорта яблок: Сорт1 – урожайность 350 кг(антоновка), Сорт2 – урожайность 450кг, Сорт3 – урожайность 280кг; средняя производительность сборщика(y); требуемый урожай(n).
Результат выполнения программы: количество деревьев, количество занятых площадей, количество рабочих для 3 трех временных интервалов(30, 45, 60 дней).
2 - меньше информации
3 - глобус, макет здания, муляж яблока, манекен
4 - рисунок, фотография
5 - знаковой
6 - смешанной
7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу
8 - существенные признаки объекта-оригинала
9 - разные модели объекта
10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро
11 - словесное описание, формула
12 - знаковой
13 - смешанной
14 - болт — чертеж болта, мелодия — нотная запись мелодии
дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
n:=Pos(S[j],sh);
If n>0 then
Begin
n:=n+k;
While n>Length(sh) do n:=n-Length(sh);
While n<=0 do n:=n+Length(sh);
S[j]:=sh[n];
end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.