Задача на Бэйсике... Помогите пож....

[kirill1590]

прошу людей... которые смыслят в программировании мне помочь.... дали задачу в универе... надо решить срочно.. а я дуб дубом.... если кто поможет... был бы очень благодарен....


"Для одномерного массива размерности N <=20, вычислитьсумму элеменов,меньших заданного числа А"


Help plizzz

[Sazary]

sum = 0
for i=1 to N
 if mas(i)<A then
  sum = sum + mas(i)
 end if
next i

Сообщение от kirill1590

дали задачу в универе... надо решить срочно.. а я дуб дубом...

А что ж вы все это время делали?

[kirill1590]

я конечно понимаю что это уже наглость с моей стороны.. но всетаки... можно блок схему и и полный текст проги? p.s. это надо для поступления... а школьного курса информатики я как уже понял было не достаточно.... буду учиться, потихоньку разбирать подобные задачи... зарание огромное спасибо

[Вавел из ГМТУ]

Можно воспрос.. А Вы бейсик установили на компьютер?

[Sazary]

DIM N AS INTEGER
DIM i AS INTEGER
DIM mas(N) AS INTEGER
DIM A AS INTEGER
DIM sum AS INTEGER

INPUT "Enter N: "; N
INPUT "Enter A: "; A
PRINT "Enter elements: "
REDIM mas(N)
FOR i = 1 TO N
 INPUT mas(i)
NEXT i

sum = 0
FOR i = 1 TO N
 IF mas(i) < A THEN
  sum = sum + mas(i)
 END IF
NEXT i

PRINT "Summ= "; sum
END

Блок-схему сами сделаете.

Это что же за вуз такой, где для поступления нужно какие-то задачки решать? Да еще и в конце августа.

Бейсик на уровне таких задач можно выучить за пару часов. При том пользуясь только встроенной справкой.

[kirill1590]

я так понял такая схема должна быть ?

[Sazary]

Что-то вроде этого. Я уже не помню точно, как они делаются.
Если не ошибаюсь, у вас не все соединительные линии проставлены в циклах.