Товарищи ПРОГРАММЕРЫ помогите!!

Я не знаю в какой ещё форум написать, если здесь не помогут, то уже не помогут нигде... Моей девочке в универе задали задание по информатике, написать программу на Basic'e, причём занятий у них по нему не было (учится заочно), а срок дали неделю! Как за это время выучить, да хотя бы разобраться, я не знаю! Сам я никогда этот язык в глаза не видел, универ давно окончил и по-этому прошу помочь, ведь асов, я думаю, не мало, а задачка простая! Вот данные на прилагаемом рисунке:

http://flud.fromru.com/progr.gif

Если кто может, помогите плиз! :молись

[denver]

Надо на Visual Basic или просто Basic под ДОС???

На ДОС'овском, винды там роскошь! :D

[denver]

Я тут набросал на коленке. Заточена под 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;"%"

Только надо обязательно ее проверить, т.к. я не уверен можно ли задавать величину массива переменной и такая ли операция деления в бейсике

может кто помнит подскажите

Эээ... да... проверить хорошо бы, но не на чем... Кто-нить помогите...

Denver, спасиба старина, и от моей Гали бооольшое спасибо, без тебя нам ну никак бы!

[denver]

Скачал Quick Basic, проверил, мелочи поправил, все работает!
С графической схемой сам разберешься?

Ээээ... с чем? Наверно нет...

[denver]

Графическая блок-схема алгоритма (вроде с подробными комментариями):

Вотета спасибище тебе большое!! Ты просто спас девчёнку!
Премного благодарен!

[denver]

Да ладно уж, не за что :shuffle: