Найти числа, не превосходящие заданного числа 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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

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

Решение

Решение

Решение

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

	Найти числа, не превосходящие заданного числа N, двоичная запись которых представляет палиндром 26.02.2011, 16:36. Показов 1435. Ответов 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

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

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