Помогите написать блок схему или написать программу Кубэйсик Выполнение плана заводом в течении года по месяцам представлено в виде массива ([latex]a_{1}, a_{2}, a_{3} [/latex],...[latex]a _{12} [/latex]) месяц:1 План:101;...
Помогите написать блок схему или написать программу Кубэйсик Выполнение плана заводом в течении года по месяцам представлено в виде массива ([latex]a_{1}, a_{2}, a_{3} [/latex],...[latex]a _{12} [/latex]) месяц:1 План:101; месяц:2 план:98; месяц:3 план:100; месяц:4 план:108; месяц:5 план:97; месяц:6 план:106; месяц:7 план:99; месяц:8 план:100; месяц:9 план:112; месяц:10 план:96; месяц:11 план:107; месяц:12 план:98.
в течении каких месяцев года план выполнялся и перевыполнялся?
Гость
Ответ(ы) на вопрос:
ГостьDATA 101,98,100,108,97,106,99,100,112,96,107,98
DIM a(1 TO 12) AS INTEGER
DIM b(1 TO 12) AS INTEGER, c(1 TO 12) AS INTEGER
DIM i AS INTEGER, ib AS INTEGER, ic AS INTEGER
CLS
ib = 0: ic = 0
FOR i = 1 TO 12
READ a(i)
SELECT CASE a(i)
CASE 100
ib = ib + 1
b(ib) = i
CASE IS > 100
ic = ic + 1
c(ic) = i
END SELECT
NEXT i
PRINT "План (100%) в месяцах: ";
FOR i = 1 TO ib
PRINT b(i);
NEXT i
PRINT
PRINT "перевыполнение плана в месяцах ";
FOR i = 1 TO ic
PRINT c(i);
NEXT i
END
Результат выполнения программы:
План (100%) в месяцах: 3 8
перевыполнение плана в месяцах 1 4 6 9 11
Не нашли ответ?
Похожие вопросы