Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 7

Дана последовательность чисел 12323

17.12.2013, 13:59. Показов 1635. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана последовательность чисел 12323. К ней применён следующий цикл:
1) Все цифры 1 заменить на 33
2) Все цифры 2 заменить на 1
3) Все цифры 3 заменить на 2
Например, после однократного выполнения этого цикла обработки получится 221212
Запишите количество цифр в последовательности, если цикл применялся 11 раз.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.12.2013, 13:59
Ответы с готовыми решениями:

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о
Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести...

дана последовательность вещественных чисел а1,а2,.а15 Определить являеться ли последовательность упорядоченной по возрастанию
дана последовательность вещественных чисел а1,а2,...а15 Определить являеться ли последовательность упорядоченной по возрастанию. В случае...

Дана последовательность из 10 чисел.Определить колличество отрицаиельных чисел в ней.
Пожалуйста,помогите решить задачки!Нужно срочно! Составить схему алгоритма и программу на языке Pascal следующих задач: 1)....

7
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.12.2013, 15:24
Pascal
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
Var
  S : String;
  i,j : Byte;
Begin
  S:='12323';
  For i:=1 to 11 do
  Begin
    For j:=Length(S) downto 1 do
      If S[j] in ['1'..'3'] then
        Case S[j] of
          '1' : Begin
                  Delete(S,j,1);
                  Insert('33',S,j);
                End;
          '2' : Begin
                  Delete(S,j,1);
                  Insert('1',S,j);
                End;
          '3' : Begin
                  Delete(S,j,1);
                  Insert('2',S,j);
                End;
        End;
    Writeln(S);
   End;
End.
1
0 / 0 / 0
Регистрация: 10.12.2013
Сообщений: 7
17.12.2013, 17:47  [ТС]
Нет, не оно. 221212 не получается после первого раза.
0
Модератор
10442 / 5734 / 3406
Регистрация: 17.08.2012
Сообщений: 17,446
17.12.2013, 20:24
Вот, подправил.
Pascal
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
Var
  S : String;
  i,j : Byte;
Begin
  S:='12323';
  For i:=1 to 11 do
  Begin
    For j:=Length(S) downto 1 do
      If S[j] = '1' then
         Begin
           Delete(S,j,1);
           Insert('33',S,j);
         End;
    For j:=Length(S) downto 1 do
      Case S[j] of
        '2' : Begin
                Delete(S,j,1);
                Insert('1',S,j);
              End;
        '3' : Begin
                Delete(S,j,1);
                Insert('2',S,j);
              End
        End;
     Writeln(length(s), ' ', s)
   End;
  Readln
End.
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.12.2013, 21:38
Цитата Сообщение от Nbgfbvz Посмотреть сообщение
Нет, не оно. 221212 не получается после первого раза.
Вы не правы.
должно получится 331212 (согласно Вашим условиям замены) - и оно получается!
А вот как Вы получаете 221212 - это вопрос!
Ведь Вы сами написали что 1 меняется на 33 - и как же так должно получится после первого прохода что первые цифры станут22 ???
Вы сами себе противоречите.

Добавлено через 10 минут
Хочу заметить:
К ней применён следующий цикл:
ОДИН цикл, а не 3! Т.е. за один проход применяются три условия, а не три прохода поочередно.
0
Модератор
10442 / 5734 / 3406
Регистрация: 17.08.2012
Сообщений: 17,446
17.12.2013, 22:33
Цитата Сообщение от APALoff Посмотреть сообщение
ОДИН цикл, а не 3!
APALoff, Вы не правы. Вовсе нет. Вниметельно прочитайте задание. К последовательности применяется цикл из трёх последовательных действий. В порядке 1), 2), 3). То, что каждое действие тоже является циклом, не должно было сбить Вас с толку.
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
17.12.2013, 22:54
Тогда получается само условие двоякое. Ну да ладно.
0
Модератор
10442 / 5734 / 3406
Регистрация: 17.08.2012
Сообщений: 17,446
17.12.2013, 23:11
APALoff, нет, не двоякое. перевожу с русского на русский.

Дана последовательность чисел 12323. К ней применён следующий цикл:
<Начало цикла>
1) Все цифры "1" числа заменить на "33"
2) Все цифры "2" числа, получившегося на шаге 1), заменить на "1"
3) Все цифры "3" числа, получившегося на шаге 2), заменить на "2"
<Конец цикла>

Какие предпосылки привели Вас к выводу, что последовательные действия выполняются не последовательно, а параллельно?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.12.2013, 23:11
Помогаю со студенческими работами здесь

Дана последовательность из n целых чисел. Определите, со скольких положительных чисел она начинается.
Дана последовательность из n целых чисел. Определите, со скольких положительных чисел она начинается.

Дана последовательность из 10 чисел...
Дана последовательность из 10 чисел. Перенести значение 1-го элемента во второй, значение второго в третий и т.д., а значение последнего в...

Дана последовательность чисел
Дана последовательность целых чисел Х1, Х2,..., Хn где n &gt; = 3. Найти: А) максимальную сумму двух соседних чисел Б) максимальную сумму...

дана последовательность чисел
помогите плиииз с задачей:help: дана последовательность чисел вывести те из них в которых есть цифра 5. заранее спасибо..

Дана последовательность чисел а1,а2..............аn.
помогите пожалуйста с решением задачи в паскале. Дана последовательность чисел а1,а2..............аn. ообразовать новую последовательность...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru