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

IMHO.WS (http://www.imho.ws/index.php)

- Программирование (http://www.imho.ws/forumdisplay.php?f=40)

- - Товарищи ПРОГРАММЕРЫ помогите!! (http://www.imho.ws/showthread.php?t=17774)

AHTEPO

13.12.2002 06:59

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

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

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

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

denver

13.12.2002 07:12

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

AHTEPO

13.12.2002 07:18

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

denver

13.12.2002 07:49

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

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

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

AHTEPO

13.12.2002 08:12

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

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

denver

13.12.2002 08:48

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

AHTEPO

13.12.2002 09:39

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

denver

13.12.2002 09:40

Вложений: 1

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

AHTEPO

13.12.2002 09:50

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

denver

13.12.2002 10:01

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

Часовой пояс GMT +4, время: 05:28.