Контрольная работа: Экономика и управление на предприятиях АПК
30 FOR D=10 TO 20 STEP 1
40 LET P=(U*S)/(T*C*D)
50 PRINT D,P
60 NEXT D
70 END
Цикл в программе организуется с помощью операторов 30 и 60. Это операторы заголовка цикла FOR...TO...STEP и конца цикла NEXT. В первом вслед за словом FOR указано начальное значение количества дней уборки, за словом TO − конечное значение, а после слова STEP − шаг изменения количества дней уборки. Выход из цикла происходит, как только значение переменной D превысит значение 20.
Задача №13
Составить программу расчета средней квадратической взвешенной по формуле:
,
где x − варианты, f − частоты.
Решение.
Для составления программы перейдем от символов в задаче к символам языка Бейсик: x→K, Σx2 →SX2 Σf→SF.
Программа расчета средней квадратической взвешенной с использованием оператора условного перехода имеет вид:
10 PRINT “РАСЧЕТ СРЕДНЕЙ КВАДРАТИЧЕСКОЙ ВЗВЕШЕННОЙ”
20 INPUT N
30 LET SX2=0 : LET SF=0
40 LET I=1
50 INPUT X, F
60 LET SX2=SX2+X^2
70 LET SF=SF+F
80 LET I=I+1
90 IF I<=N GOTO 50
100 K=SQR((SX2*F)/(SF))
110 PRINTK
120 END
В программе оператор 10 выводит название программы. Оператор 20 осуществляет ввод N (варианты). Оператор 30 придает значение 0 переменным SX2 и SF. Оператор 40 придает значение 1 переменной I (начальное значение цикла). Оператор 50 осуществляет ввод значения переменной X. Оператор 60 и 70 изменяет значения переменных SX2 и SF(накапливают значение суммы). Оператор 80 увеличивает значение переменной Iна 1. Оператор 90 осуществляет разветвление программы: если I<=F, то управление передается оператору 50 (вводится новое значение Х), в противном случае – оператору 100. Оператор 100 производит расчет значения К, а оператор 110 – печать. Оператор 120 прекращает работу программы.
При использовании операторов цикла программа принимает вид:
10 PRINT “РАСЧЕТ СРЕДНЕЙ КВАДРАТИЧЕСКОЙ ВЗВЕШЕННОЙ”
20 INPUT N