Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Sanet
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 14
1

Вычислить сумму всех четных положительных чисел числового ряда

13.01.2014, 18:51. Просмотров 1197. Ответов 6
Метки нет (Все метки)

Добрый день. Мне нудно выполнить два задания на языке Basic.
1. Вычислить сумму всех четных положительных чисел,след.числового ряда 2,4 -3,0,5,1,6.
2. Вычислить сумму элементов, кратных пяти,след.числового ряда -10,3, 8,15,5.
Нужно каким-то образом через Input For.
Я вот так сделал. Но это не подходит. Именно через Input For.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
INPUT "a",a
INPUT "b",b
INPUT "c",c
INPUT "d",d
INPUT "e",e
INPUT "f",f
INPUT "g",g
SUM=0
IF a>0 THEN SUM=SUM+a ELSE SUM=SUM
IF b>0 THEN SUM=SUM+b ELSE SUM=SUM
IF c>0 THEN SUM=SUM+c ELSE SUM=SUM
IF d>0 THEN SUM=SUM+d ELSE SUM=SUM
IF e>0 THEN SUM=SUM+e ELSE SUM=SUM
IF f>0 THEN SUM=SUM+f ELSE SUM=SUM
IF g>0 THEN SUM=SUM+g ELSE SUM=SUM
PRINT SUM
Помогите, пожалуйста.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2014, 18:51
Ответы с готовыми решениями:

Вывести сумму всех положительных четных чисел
Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести...

Подсчитать количество положительных четных чисел, а также сумму чисел
В числовую переменную вводятся целые числа. Количество чисел заранее...

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

Как из последовательности 20 чисел вычислить сумму нечетных чисел и определить количество четных чисел.
Помогите пожалуйста !!!! Из последовательности 20 чисел вычислить сумму...

В одномерном массиве из N натуральных чисел вычислить сумму удвоенных четных чисел
Давно не работала с QBasic и уже половину забыла. Нужна помощь::cry: Задача 1:...

6
vodav
562 / 132 / 36
Регистрация: 12.03.2012
Сообщений: 380
14.01.2014, 03:52 2
Цитата Сообщение от Sanet Посмотреть сообщение
через Input For
В чистом виде в QB такого оператора нет. Уточните свое задание.
0
Sanet
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 14
14.01.2014, 10:19  [ТС] 3
Наверное, это два разных оператора: Input и For. For, который с To, Step, Next.
0
markiza-inc
480 / 194 / 89
Регистрация: 21.10.2012
Сообщений: 451
14.01.2014, 14:59 4
Может быть имеется ввиду такая прога:
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
OPTION BASE 1
CLS
DIM a(7) AS INTEGER
FOR i = 1 TO 7
    PRINT "Введите элемент "; i; :
    INPUT " = ", a(i)
NEXT i
CLS
s = 0
PRINT "Введены числа:"
FOR i = 1 TO 7
    PRINT USING "######"; a(i);
    IF (a(i) > 0) AND (a(i) MOD 2 = 0) THEN s = s + a(i)
NEXT i: PRINT
PRINT : PRINT "Сумма всех четных положительных = "; s
PRINT : PRINT "Для продолжения нажмите любую клвишу ...";
ch$ = INPUT$(1)
CLS
FOR i = 1 TO 5
    PRINT "Введите элемент "; i; :
    INPUT " = ", a(i)
NEXT i
CLS
s = 0
PRINT "Введены числа:"
FOR i = 1 TO 5
    PRINT USING "######"; a(i);
    IF a(i) MOD 5 = 0 THEN s = s + a(i)
NEXT i: PRINT
PRINT : PRINT "Сумма элементов, кратных 5 = "; s
ch$ = INPUT$(1)
END
Пробуйте.
0
Sanet
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 14
14.01.2014, 18:59  [ТС] 5
Спасибо. У меня получилось чуть попроще:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
INPUT "vvedite kol-vo chlenjv ryada ", ryad
DIM r(ryad)
FOR i = 1 TO ryad
  PRINT "vvedite alement ("; i; ")=";
  INPUT "", r(i)
NEXT i
SUM = 0
FOR i = 1 TO ryad
  IF r(i) > 0 THEN SUM = SUM + r(i)
NEXT
PRINT SUM
0
markiza-inc
480 / 194 / 89
Регистрация: 21.10.2012
Сообщений: 451
14.01.2014, 19:54 6
Цитата Сообщение от Sanet Посмотреть сообщение
Спасибо. У меня получилось чуть попроще:
Пожалуйста.
Ваша прога просто суммирует положительные числа, и ВСЕ.
А где проверка на четность, на кратность? При этом, условия должны быть врозь.
Или Вам условие задачи пофигу?
Так в следующий раз и пишите: "На условие задачи внимания не обращать!"
1
Sanet
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 14
15.01.2014, 10:45  [ТС] 7
Я показал выполнение только первой части задания. Вторая часть выполняется абсолютно анадлогично.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
INPUT "vvedite kol-vo chlenjv ryada ", ryad
DIM r(ryad)
FOR i = 1 TO ryad
  PRINT "vvedite alement ("; i; ")=";
  INPUT "", r(i)
NEXT i
SUM = 0
FOR i = 1 TO ryad
  IF r(i) MOD 5 =0 THEN SUM = SUM + r(i)
NEXT
PRINT SUM
.
Просто задания можно и по-отдельности выполнить. Извиняюсь, что забыл уточнить. Ещё раз спасибо.
0
15.01.2014, 10:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2014, 10:45

На промежутке [a,b] найти сумму всех целых четных чисел кратных 5
помогите

Найти сумму и количество всех нечетных положительных чисел.
Всем доброго времени суток! Подскажите, пожалуйста как решить задачу в...

Вычислить произведение всех положительных чисел меньше 20
Ребята помогите решить задачку : Вычислить произведение всех положительных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru