№ 1
Составить программу расчета производительности тока (ц/ч) по формуле:
Пт = У ∙ Р / (Тсм ∙ См ∙ Д) ,
где У − урожайность с 1 га, ц; Р − площадь зерновых, тяготеющих к току, га; Тсм − время непосредственной работы за смену, ч; См − сменность (количество смен в сутки); Д − количество дней уборки по плану, дн.
Количество дней уборки изменяется в пределах от 10 до 20 дн. с шагом 1 дн. (У = 30 ц, Р = 800 га, Тсм = 6 ч, См = 2).

РЕШЕНИЕ:

Программа расчета производительности тока с использованием оператора условного перехода имеет вид:

10 PRINT "РАСЧЕТ ПРОИЗВОДИТЕЛЬНОСТИ ТОКА"
20 LET Y=30
30 LET P=800
40 LET T=6
50 LET C=2
60 LET D=10
70 LET P=(Y*P)/(T*C*D)
80 PRINT D,P
90 LET D=D+1
100 IF D<=20 GOTO 70
110 END

При использовании операторов цикла программа принимает вид:

10 PRINT "РАСЧЕТ ПРОИЗВОДИТЕЛЬНОСТИ ТОКА "
20 LET Y=30
30 LET P=800
40 LET T=6
50 LET C=2
60 FOR D=10 TO 20 STEP 1
70 LET P=(Y*P)/(T*C*D)
80 PRINT D,P
90 NEXT D
100 END