Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 21.12.2010
Сообщений: 10
1

Найти сумму чисел массива ,начиная с первого числа большего 51

21.12.2010, 23:27. Показов 947. Ответов 11
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дан массив из 12 чисел.Найти сумму чисел массива,начиная с первого числа большего 51. и если можно напишите пожалуйста какие цифры вписать после того как нажимаешь ф5.спасибо огромное.

 Комментарий модератора 
Название темы должно отражать ее содержание.
Именуйте темы осмысленно, в противном случае темы будут удалятся.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2010, 23:27
Ответы с готовыми решениями:

Найти сумму чисел массива, начиная с первого числа, равного 4
Получил задание , а в QBasic не бум-бум , прошу help me :D Дан массив из 15 чисел. Найти сумму...

Найти индекс первого элемента массива, большего заданного числа
Спасибо что зашёл в эту тему :good: Ребят, я вам очень благодарен, что целый день мне помогали...

Для массива из 10 чисел найти номер первого элемента, большего 25
Для массива из 10 чисел найти номер первого элемента, большего 25.

Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х чисел.
Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму...

11
16 / 16 / 13
Регистрация: 10.12.2010
Сообщений: 62
21.12.2010, 23:49 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Если правильно понял задание то вот:
(..после ф5 нажимать любые цифры)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DIM a(1 TO 12) AS SINGLE
DIM sum AS SINGLE, temp AS SINGLE
DEFINT I
 
FOR i = 1 TO 12
    PRINT "Enter"; i; ":": INPUT a(i)
NEXT i
 
 
temp = 0
FOR i = 1 TO 12
    IF a(i) > 51 THEN
        sum = a(i) + temp
        temp = sum
    END IF
NEXT i
 
PRINT
PRINT "sum is: "; sum
 
END
1
0 / 0 / 0
Регистрация: 21.12.2010
Сообщений: 10
21.12.2010, 23:51  [ТС] 3
спасибо большое)
0
16 / 16 / 13
Регистрация: 10.12.2010
Сообщений: 62
21.12.2010, 23:54 4
данезачто), тут кстати для этого есть спец. КНОПКА еще
0
5001 / 1673 / 409
Регистрация: 25.04.2010
Сообщений: 4,625
Записей в блоге: 2
22.12.2010, 01:31 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Aye73x, неверно, у вас программа 1 раз пройдёт по условию и не соберёт сумму. Ставьте CLS ибо на экране может быть много всего, DEFINT I и END можно не писать.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
DIM a(1 TO 12) AS SINGLE
DIM S AS SINGLE, f AS INTEGER
  CLS
  ' Заполнение массива
  FOR i = 1 TO 12
     PRINT "Vvedite "; i; ":"; : INPUT "", a(i)
  NEXT i
  'Подсчет суммы
  FOR i = 1 TO 12
     IF a(i) > 51 THEN f = 1
     IF f = 1 THEN S = S + a(i)
  NEXT i
  ' Вывод результата
PRINT "Summa : "; S
1
16 / 16 / 13
Регистрация: 10.12.2010
Сообщений: 62
22.12.2010, 01:58 6
В моем примере я что-то так и не нашел ошибку.. где? .. и как это не соберет?

А ваша вот у меня чето не считает!)
'==================

А вот это
PureBasic
1
2
IF a(i) > 51 THEN f = 1
     IF f = 1 THEN S = S + a(i)
не равно ли этому?:
PureBasic
1
IF a(i) > 51 THEN S = S + a(i)

PS.. спасибо за "CLS и DEFINT I"

Добавлено через 8 минут

Да у вас из-за лишних манипуляций с f как раз и ошибка,

вот так гуд
PureBasic
1
IF a(i) > 51 THEN S = S + a(i)
PS2.. непонимаю правда отчего с f было не так)
0
5001 / 1673 / 409
Регистрация: 25.04.2010
Сообщений: 4,625
Записей в блоге: 2
22.12.2010, 02:00 7
А ваша вот у меня чето не считает!)
Пруф в виде скрина, так претензии не принимаются...

А вы упёртый человек, вам показывают ошибку, а вы стоите на своём, скрин прилагается.
И эта - читайте задание лучше:
Найти сумму чисел массива,начиная с первого числа большего 51.
Миниатюры
Найти сумму чисел массива ,начиная с первого числа большего 51  
0
16 / 16 / 13
Регистрация: 10.12.2010
Сообщений: 62
22.12.2010, 02:08 8
Я может и правда условия не понял, 65 больше чем 51. Суммировать не с чем(других больших 51 нет). Ответ 65+0=65.


ржака ей богу
кому-то пора спать - надеюсь мне))

PS.. скрин ща пришлю
1
5001 / 1673 / 409
Регистрация: 25.04.2010
Сообщений: 4,625
Записей в блоге: 2
22.12.2010, 02:15 9
Я может и правда условия не понял
Двусмысленное задание, я понял про что вы говорите, пусть будут 2 варианта. ТС придёт разберётся, его проблемы раз не может написать правильно задание.
1
16 / 16 / 13
Регистрация: 10.12.2010
Сообщений: 62
22.12.2010, 02:18 10
>Quiet Snow<

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

PS.. наверное вы правы с таким прочтением задачи.
0
5001 / 1673 / 409
Регистрация: 25.04.2010
Сообщений: 4,625
Записей в блоге: 2
22.12.2010, 02:25 11
Пойдём от противного.
ваше решение трактовалось бы так:
Найти сумму всех чисел массива, значение которых больше 51.
моё решение трактуется так:
Найти сумму чисел массива, начиная с первого найденного числа со значением больше 51
На мой взгляд второе ближе к исходному определению, т.к. в противном случае зачем нужна логическая цепочка "начиная с".
0
16 / 16 / 13
Регистрация: 10.12.2010
Сообщений: 62
22.12.2010, 02:55 12
>Quiet Snow<, согласен.
1
22.12.2010, 02:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2010, 02:55
Помогаю со студенческими работами здесь

Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1
1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1.

Найти сумму элементов участка массива начиная с первого положительного и кончая вторым положительным элементом
Дан одномерный массив из 1000 элементов, состоящий из случайных целых чисел в диапазоне от -5 до 8....

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.
Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2....

Найти сумму четных чисел натурального ряда, начиная с числа n до m
Найти сумму четных чисел натурального ряда, начиная с числа n до m(m и n вводит пользователь).

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

Если последняя цифра первого числа чётная то найти сумму чисел, иначе найти произведение последних цифр чисел
Дано два двузначных числа. Если последняя цифра первого числа четная то найти сумму исходных чисел,...


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru