Найти числа, не превосходящие заданного числа N, двоичная запись которых представляет палиндром

@azmaz · Регистрация: 26.02.2011

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

Здравствуйте, посетители и программеры... нужна помощь в решении 2 задач...

Задание 1.
Найти все такие простые числа, не превосходящие заданного числа N (N < 1000000), двоичная запись которых представляет палиндром.

Задание 2.
Заполнить нулями элементы квадратной матрицы, расположенные по её периметру (использовать один цикл).

По поводу первой задачи: если число N будет задано как 10000, то в записи двоичного числа будем сотни цифр. А как сравнить их, если не знать какое число будет задано?

По поводу второй задачи: ведь матрица - двумерный массив... а чтобы построить его нужно как минимум 2 цикла... первый отвечает за столбцы, а второй за строки... так как можно решить эту зачачу в один цикл??? или это подразумевается, что после построения, нужно в один цикл заменить периметр нулями??
если взять матрицу допустим 6*6, то чтобы заполнить периметр, нужно использовать цикл от 1 до 36 и проверять A(I,J)??7

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

@кот Бегемот · 26.02.2011, 17:36

2 задача

PureBasic
1
2
3
4
5
6
for i=1 to n
a(1,i)=0
a(i,1)=0
a(i,n)=0
a(n,i)=0
next

@azmaz · 26.02.2011, 18:02 **[ТС]**

щас сам делал 2 задачу у меня вышло вот так:

QBasic/QuickBASIC
CLS
PRINT "Vvedite storonu matrici"
INPUT N
DIM A(N, N)
FOR I = 1 TO N
FOR J = 1 TO N
A(I, J) = INT(RND(1) * 9)
IF I = 1 OR I = N OR J = 1 OR J = N THEN A(I, J) = 0
PRINT A(I, J);
NEXT J
PRINT
PRINT
NEXT I
END

Добавлено через 4 минуты
вставил твой код, в конец проги, но без 80 строки, ничего не изменяется

@Quiet Snow · 26.02.2011, 18:04

2.

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
  ' Инициализация и ввод данных
  DEFINT A-Z
  CLS
Re: PRINT "Vvedite kol-vo elementov"
INPUT "v stoke kvadratnoj matrici: ", n
  DIM M(n, n)
  IF n <= 1 GOTO Re
  ' Вычисляем величину цикла
  K = (n - 1) * 4
  ' Вывод исходной матрицы
PRINT STRING$(80, 196)
FOR iy = 1 TO n: FOR ix = 1 TO n
     M(ix, iy) = RND * 100
     LOCATE , ix * 3: PRINT M(ix, iy);
   NEXT: PRINT
NEXT
  ' Алгоритм заполнения нулями
x = 1: y = 1: sx = 1
FOR i = 1 TO K
  M(x, y) = 0
  x = x + sx: y = y + sy
   IF x = 1 THEN sx = 0: sy = -1
   IF x = n AND sx = 1 THEN sy = 1: sx = 0
   IF y = n AND x <> 1 THEN sx = -1: sy = 0
NEXT
  'Вывод результата
PRINT STRING$(80, 196)
FOR iy = 1 TO n: FOR ix = 1 TO n
   LOCATE , ix * 3: PRINT M(ix, iy);
   NEXT: PRINT
NEXT

@azmaz · 26.02.2011, 18:10 **[ТС]**

ааа.... все разобрался.... но немного по другому вышло... но все равно спасибо

@Quiet Snow · 26.02.2011, 18:12

кот Бегемот, я не ищу лёгких путей)))

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

Да можно и из Москвы в Тулу через Новосибирск... Дело хозяйское.

@azmaz · 26.02.2011, 18:38 **[ТС]**

вот мои 2 варианта второго задания для сдачи:

1 вариант:

QBasic/QuickBASIC
10 CLS
20 PRINT "Vvedite storonu matrici"
30 INPUT N   // Ввод стороны матрицы
40 DIM A(N, N)
50 FOR I = 1 TO N
    60 FOR J = 1 TO N
        70 A(I, J) = INT(RND(1) * 9)   // Заполнение массива случайными числами от 0 до 9
        80 IF I = 1 OR I = N OR J = 1 OR J = N THEN A(I, J) = 0   // Заполнение нулями периметра матрицы
        90 PRINT A(I, J);   // Вывод матрицы
    100 NEXT J
    110 PRINT
    120 PRINT
130 NEXT I
140 END

2 вариант:

QBasic/QuickBASIC
10 CLS
20 PRINT "Vvedite storonu matrici"
30 INPUT N
40 DIM A(N, N)
// Заполнение матрицы случайными числами от 0 до 9
50 FOR I = 1 TO N
    60 FOR J = 1 TO N
        70 A(I, J) = INT(RND(1) * 9)
    80 NEXT J
90 NEXT I
// Заполнение нулями периметра матрицы(один цикл)
100 FOR I = 1 TO N
    110 A(1, I) = 0
    120 A(I, 1) = 0
    130 A(N, I) = 0
    140 A(I, N) = 0
150 NEXT I
// Вывод матрицы
160 FOR I = 1 TO N
    170 FOR J = 1 TO N
        180 PRINT A(I, J);
    190 NEXT J
    200 PRINT
210 NEXT I
220 END

@softmob · 26.02.2011, 19:00

1)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
INPUT "vvedite n"; n: u$ = "01"
FOR i = 2 TO n
    b = i: f = 0: c$ = ""
    DO
        c$ = MID$(u$, (b MOD 2) + 1, 1) + c$: b = b \ 2
    LOOP UNTIL b = 0
    FOR j = 1 TO LEN(c$) / 2
        IF MID$(c$, j, 1) = MID$(c$, LEN(c$) - j + 1, 1) THEN f = f + 1
    NEXT
    IF f = LEN(c$) \ 2 THEN PRINT i; CHR$(179);
NEXT

Добавлено через 13 минут
2)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
INPUT "vvsedite diapozon chisel dlja avto zapolnenija matricy [a,b]"; a, b
IF a > b THEN SWAP a, b
DIM a(n, n)
FOR i = 1 TO n: FOR j = 1 TO n
        a(i, j) = INT(RND * ABS(b - a + 1) + a)
NEXT: NEXT
FOR i = 1 TO n
    a(1, i) = 0: a(n, i) = 0
    a(i, 1) = 0: a(i, n) = 0
NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT USING "####"; a(i, j);
NEXT: PRINT: NEXT

@azmaz · 26.02.2011, 19:02 **[ТС]**

softmob, огромное спасибо за 1 задачу... вторую я со своим методом сдам...

@softmob · 27.02.2011, 13:32

1)
так побыстрее будет работать

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
INPUT "vvedite n"; n: DIM u$(0 TO 1): u$(0) = "0": u$(1) = "1"
FOR i = 2 TO n
    b = i: c$ = "": f = 0
    DO
        c$ = u$(b MOD 2) + c$: b = b \ 2
    LOOP UNTIL b = 0
    FOR j = 1 TO LEN(c$) / 2
        IF MID$(c$, j, 1) = MID$(c$, LEN(c$) - j + 1, 1) THEN f = f + 1 ELSE EXIT FOR
    NEXT
    IF f = LEN(c$) \ 2 THEN PRINT i; CHR$(179);
NEXT

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение/ Перевод https:/ / **********/ gallery/ thinkpad-x220-tablet-porn-gzoEAjs . . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

Найти числа, не превосходящие заданного числа N, двоичная запись которых представляет палиндром

Решение

Решение

Решение

@azmaz 0 / 0 / 0 Регистрация: 26.02.2011 Сообщений: 5

	Найти числа, не превосходящие заданного числа N, двоичная запись которых представляет палиндром 26.02.2011, 16:36. Показов 1410. Ответов 10 Метки нет (Все метки) Здравствуйте, посетители и программеры... нужна помощь в решении 2 задач... Задание 1. Найти все такие простые числа, не превосходящие заданного числа N (N < 1000000), двоичная запись которых представляет палиндром. Задание 2. Заполнить нулями элементы квадратной матрицы, расположенные по её периметру (использовать один цикл). По поводу первой задачи: если число N будет задано как 10000, то в записи двоичного числа будем сотни цифр. А как сравнить их, если не знать какое число будет задано? По поводу второй задачи: ведь матрица - двумерный массив... а чтобы построить его нужно как минимум 2 цикла... первый отвечает за столбцы, а второй за строки... так как можно решить эту зачачу в один цикл??? или это подразумевается, что после построения, нужно в один цикл заменить периметр нулями?? если взять матрицу допустим 6*6, то чтобы заполнить периметр, нужно использовать цикл от 1 до 36 и проверять A(I,J)??7 P.S. скоре всего я что то некоректно написал... кто чем может, помогите плиз... больше волнует 2 задание, т.к. я не представляю себе как можно в один цикл уложить двумерный массив.. 0

@azmaz 0 / 0 / 0 Регистрация: 26.02.2011 Сообщений: 5
	26.02.2011, 18:02 [ТС]
	щас сам делал 2 задачу у меня вышло вот так: QBasic/QuickBASIC 10 CLS 20 PRINT "Vvedite storonu matrici" 30 INPUT N 40 DIM A(N, N) 50 FOR I = 1 TO N 60 FOR J = 1 TO N 70 A(I, J) = INT(RND(1) * 9) 80 IF I = 1 OR I = N OR J = 1 OR J = N THEN A(I, J) = 0 90 PRINT A(I, J); 100 NEXT J 110 PRINT 120 PRINT 130 NEXT I 140 END Добавлено через 4 минуты вставил твой код, в конец проги, но без 80 строки, ничего не изменяется 0

@azmaz 0 / 0 / 0 Регистрация: 26.02.2011 Сообщений: 5
	26.02.2011, 18:10 [ТС]
	ааа.... все разобрался.... но немного по другому вышло... но все равно спасибо 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	26.02.2011, 18:12
	кот Бегемот, я не ищу лёгких путей))) 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	26.02.2011, 18:24
	Да можно и из Москвы в Тулу через Новосибирск... Дело хозяйское. 0

@azmaz 0 / 0 / 0 Регистрация: 26.02.2011 Сообщений: 5
	26.02.2011, 19:02 [ТС]
	softmob, огромное спасибо за 1 задачу... вторую я со своим методом сдам... 0