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

@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, я нисколько не хаю твоё решение. Оно хорошее. Но оно- решение не этой задачи. Вот и все претензии.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

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

	Найти сумму чисел в системе, не вычисляя самих чисел. 14.04.2011, 23:03. Показов 1968. Ответов 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

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

Решение