Найти сумму чисел в системе, не вычисляя самих чисел.

@Yulenka92 · Регистрация: 14.04.2011

Студворк — интернет-сервис помощи студентам

Пусть n натуральных чисел заданы своими цифрами в q-ичной системе счисления, хранящимся в строках матрицы K(m,n). Найти сумму этих чисел в той же системе, не вычисляя самих чисел (q <= 10)

@кот Бегемот · 15.04.2011, 00:32

Может, всё-таки K(n,m)?

@Yulenka92 · 15.04.2011, 08:04 **[ТС]**

Пардон. Пусть m натуральных чисел.

@кот Бегемот · 15.04.2011, 12:00

Какие ограничения по системам счисления? Если q<=10 - это одна программа, если больше - совсем другая

Для q<=10
Количество чисел и цифр - любое разумное

PureBasic
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
33
34
35
36
37
38
39
INPUT "vvedite kolichestvo chisel M ", m
INPUT "vvedite kolichestvo cifr N ", n
DIM k(m, n), s(n + m)
INPUT "vvedite sistemu q ", q
FOR i = 1 TO m
PRINT "vvedite  cifry "; i; "-togo chisla:"
FOR j = 1 TO n
PRINT "cifra"; j; "=";
INPUT k(i, j)
NEXT
NEXT
PRINT "matrica "
FOR i = 1 TO m
FOR j = 1 TO n
PRINT k(i, j);
NEXT
PRINT
NEXT
FOR i = n TO 1 STEP -1
sum = 0
FOR j = 1 TO m
sum = sum + k(j, i)
NEXT
sum = sum + per
s(i) = sum MOD q
per = (sum - s(i)) / q
NEXT
DO WHILE per > 0
FOR i = n TO 1 STEP -1
s(i + 1) = s(i)
NEXT
n = n + 1
s(1) = per MOD q
per = (per - s(1)) / q
LOOP
PRINT "rezultat"
FOR i = 1 TO n
PRINT s(i);
NEXT

@Alarst · 15.04.2011, 15:09

кот Бегемот, спасибо!

@softmob · 15.04.2011, 17:34

такая же задача, только числа задаются сразу

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
INPUT "vvedite q"; q
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite"; i; "chislo";: INPUT a(i)
NEXT
FOR i = 1 TO n
    x = VAL(c$): c$ = "": r = 0
    DO
        w = (a(i) MOD 10) + (x MOD 10) + r
        a(i) = a(i) \ 10: x = x \ 10
        IF w >= q THEN r = w \ q: w = w MOD q ELSE r = 0
        c$ = LTRIM$(STR$(w)) + c$
    LOOP UNTIL a(i) = 0 AND x = 0
    IF r <> 0 THEN c$ = LTRIM$(STR$(r)) + c$
NEXT
PRINT "otvet= "; c$

Добавлено через 9 минут
или только через числа

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
INPUT "vvedite q"; q
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite"; i; "chislo";: INPUT a(i)
NEXT
FOR i = 1 TO n
    k = 0: x = t: t = 0: r = 0
    DO
        w = (a(i) MOD 10) + (x MOD 10) + r
        a(i) = a(i) \ 10: x = x \ 10
        k = k + 1
        IF w >= q THEN r = w \ q: w = w MOD q ELSE r = 0
        t = t + w * 10 ^ (k - 1)
    LOOP UNTIL a(i) = 0 AND x = 0
    IF r <> 0 THEN t = t + r * 10 ^ k
NEXT
PRINT "otvet="; t

@кот Бегемот · 15.04.2011, 18:05

softmob, 2 вариант:
и какое отношение эти решения имеют к условию ТС?

@softmob · 15.04.2011, 18:17

ну можно например добавить DEFLNG A-Z, но все равно будет сворачивать длинные числа. к тому же основной 1 вариант программы.

@кот Бегемот · 15.04.2011, 18:24

softmob, всё равно больше 10 знаков твоя прога не выдержит. И повторяю: к условию задачи ни 1, ни 2 твои варианты никакого отношения не имеют, потому что чисел нет, есть их цифры.

@softmob · 15.04.2011, 18:49

немного переделав выдержит

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
INPUT "vvedite q"; q
INPUT "vvedite n"; n
DIM a$(n)
FOR i = 1 TO n
    PRINT "vvedite"; i; "chislo";: INPUT a$(i)
NEXT
FOR i = 1 TO n
    b$ = c$: c$ = "": r = 0: m = LEN(a$(i)): y = LEN(b$)
    IF m > y THEN p = m ELSE p = y
    FOR j = 1 TO p
        w = VAL(MID$(a$(i), m - j + 1, 1)) + VAL(MID$(b$, y - j + 1, 1)) + r
        IF w >= q THEN r = w \ q: w = w MOD q ELSE r = 0
        c$ = LTRIM$(STR$(w)) + c$
    NEXT
    IF r <> 0 THEN c$ = LTRIM$(STR$(r)) + c$
NEXT
PRINT "otvet= "; c$

@кот Бегемот · 15.04.2011, 19:27

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

INPUT a$(i)

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

заданы своими цифрами

цифры - это не строки

@softmob · 15.04.2011, 19:49

Но цифры могут быть записаны в строке...
P.S. нормально и 1 вариант программы работал, не думаю что будут складывать числа длиной в 10 и более символов.

@кот Бегемот · 15.04.2011, 19:59

почему же? двоичные числа в 10 бит - это всего лишь 512. Задание, задание посмотри, там массив цифр.

@softmob · 15.04.2011, 21:52

Конечно через массив с цифрами более правильно раз так в условии задачи. Но вводить многозначные числа по одной цифре это неудобно...

@кот Бегемот · 15.04.2011, 22:06

softmob, я нисколько не хаю твоё решение. Оно хорошее. Но оно- решение не этой задачи. Вот и все претензии.

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Yulenka92 3 / 3 / 0 Регистрация: 14.04.2011 Сообщений: 20

	Найти сумму чисел в системе, не вычисляя самих чисел. 14.04.2011, 23:03. Показов 1971. Ответов 14 Метки нет (Все метки) Пусть n натуральных чисел заданы своими цифрами в q-ичной системе счисления, хранящимся в строках матрицы K(m,n). Найти сумму этих чисел в той же системе, не вычисляя самих чисел (q <= 10) 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	15.04.2011, 00:32
	Может, всё-таки K(n,m)? 2

@Yulenka92 3 / 3 / 0 Регистрация: 14.04.2011 Сообщений: 20
	15.04.2011, 08:04 [ТС]
	Пардон. Пусть m натуральных чисел. 0

@Alarst Заблокирован
	15.04.2011, 15:09
	кот Бегемот, спасибо! 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	15.04.2011, 18:05
	softmob, 2 вариант: и какое отношение эти решения имеют к условию ТС? Изображения 0

@softmob 1255 / 705 / 359 Регистрация: 20.02.2010 Сообщений: 1,035
	15.04.2011, 18:17
	ну можно например добавить DEFLNG A-Z, но все равно будет сворачивать длинные числа. к тому же основной 1 вариант программы. Изображения 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	15.04.2011, 18:24
	softmob, всё равно больше 10 знаков твоя прога не выдержит. И повторяю: к условию задачи ни 1, ни 2 твои варианты никакого отношения не имеют, потому что чисел нет, есть их цифры. 0

@softmob 1255 / 705 / 359 Регистрация: 20.02.2010 Сообщений: 1,035
	15.04.2011, 19:49
	Но цифры могут быть записаны в строке... P.S. нормально и 1 вариант программы работал, не думаю что будут складывать числа длиной в 10 и более символов. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	15.04.2011, 19:59
	почему же? двоичные числа в 10 бит - это всего лишь 512. Задание, задание посмотри, там массив цифр. 0

@softmob 1255 / 705 / 359 Регистрация: 20.02.2010 Сообщений: 1,035
	15.04.2011, 21:52
	Конечно через массив с цифрами более правильно раз так в условии задачи. Но вводить многозначные числа по одной цифре это неудобно... 0

Опции темы

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	15.04.2011, 22:06
	softmob, я нисколько не хаю твоё решение. Оно хорошее. Но оно- решение не этой задачи. Вот и все претензии. 0

Найти сумму чисел в системе, не вычисляя самих чисел.

Решение