Я тут набросал на коленке. Заточена под MS Quick Basic 4.5:
Цитата:
print "Курсовая программа такой-то сякой-то"
input "Введите количество месяцев:"; n
dim f(n)
dim p(n)
for i=1 to n
print "-----------------"
print "Данные за ";i;"-й месяц "
input "Фактический товарооборот: ";f(i)
input "Плановый товарооборот: ";p(i)
next i
let sumf=0
let sump=0
for i=1 to n
let sumf=sumf+f(i)
let sump=sump+p(i)
next i
let y=sumf/sump*100
print "Y=";y;"%"
|
Только надо обязательно ее проверить, т.к. я не уверен можно ли задавать величину массива переменной и такая ли операция деления в бейсике
может кто помнит подскажите