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

Укажите наименьшее из таких чисел x, при вводе которого алгоритм печатает сначала 3, а потом 2

28.07.2015, 21:18. Показов 7132. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Укажите наименьшее из таких чисел x, при вводе которого алгоритм печатает сначала 3, а потом 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x, a, b: integer;
begin
readln(x);
a:=0; b:=0;
while x>0 do
begin
a:=a + 1;
if b < (x mod 8)
then
b:=x mod 8;
x:=x div 8;
end;
writeln(a); write(b);
end.
Я уже проверил, ответ 66, но найти его самостоятельно никак не могу. По моим подсчетам ответ должен быть не меньше 64.
Если взять 66, у меня получается так:
после первого цикла a=1 т. к. 66>0, b=25 т. к. 0<25(66 mod 8=25)
после второго a=2 т. к. 8>0, b=25 т. к. 25не<0
после третьего a=3 т. к. 1>0, b=125 т. к. 25<125(1 mod 8=125)
ответ 3 и 125. Плиз, скажите, что я делаю не так
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.07.2015, 21:18
Ответы с готовыми решениями:

Укажите наименьшее из таких чисел х, при вводе которых алгоритм печатает сначала 4, а потом 3
Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наименьшее из таких чисел х, при вводе которых алгоритм печатает...

Укажите наибольшее из таких чисел a, при вводе которых алгоритм печатает сначала 4, потом 7
Получив на вход число a, этот алгоритм печатает два числа, k и m. Укажите наибольшее из таких чисел a, при вводе которых алгоритм печатает...

Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 7
Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает...

7
0 / 0 / 2
Регистрация: 28.07.2015
Сообщений: 8
28.07.2015, 21:22
Лучший ответ Сообщение было отмечено oak1996 как решение

Решение

Ошибка в вычислениях. Операция a mod b даёт остаток от деления a на b. Получается, что 66 mod 8 = 2, а не 25.
0
0 / 0 / 0
Регистрация: 19.05.2015
Сообщений: 10
28.07.2015, 21:29  [ТС]
Хмм, ну теперь все сложилось, но как-то странно все это. 25 ведь и есть остаток от деления. Но спасибо за ответ!
0
0 / 0 / 2
Регистрация: 28.07.2015
Сообщений: 8
28.07.2015, 21:33
Как остаток от деления может быть равен 25, если он гарантированно меньше 8?)
0
0 / 0 / 0
Регистрация: 19.05.2015
Сообщений: 10
28.07.2015, 21:44  [ТС]
Что-то я не понимаю) я просто делю на калькуляторе 66 на 8 и он мне выдает ответ 8.25 25-это остаток, разве не так?
0
0 / 0 / 2
Регистрация: 28.07.2015
Сообщений: 8
28.07.2015, 22:02
Лучший ответ Сообщение было отмечено oak1996 как решение

Решение

Я под столом
Нет, не так) 0.25 - дробная часть результата деления, равная 2/8, 2 - это остаток)
0
0 / 0 / 0
Регистрация: 19.05.2015
Сообщений: 10
28.07.2015, 22:06  [ТС]

бывает
0
Модератор
10416 / 5703 / 3401
Регистрация: 17.08.2012
Сообщений: 17,363
29.07.2015, 19:27
Решение:

Первое число (a) - количество проходов цикла (a=3).

Условие выхода из цикла, в данном случае, x=0.

На 3 проходе должно быть 0≤x≤7.
Следовательно, на первом проходе 82≤x≤83-1.
Нужно наименьшее число, следовательно, на 3 проходе должно быть x=1.

Тогда на 2 проходе должно быть 8≤x≤15, и, потому что требуется минимальное число, то должно быть x=8.

Как видим, b может быть вычислено только на 1 проходе .
И должно быть b=x mod 8=2.
Тогда получается, что на первом проходе должно быть x=82+2=66.

Добавлено через 14 минут
И ещё. Пожалуйста, oak1996, не допускайте разночтений в Ваших изречениях. Алгоритм программы в том виде, как Вы её выложили, может быть понят превратно (строки 8..12). Если бы Вы применили рекомендуемое форматирование, такого бы не возникло. Смотрите:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var x, a, b: integer;
begin
  readln(x);
  a := 0;
  b := 0;
  while x > 0 do
    begin
      a := a + 1;
      if b < (x mod 8)
        then
          b := x mod 8;
      x := x div 8
    end;
  writeln(a);
  write(b)
end.
И сравните теперь с Вашим форматированием, вернее, с отсутствием оного.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.07.2015, 19:27
Помогаю со студенческими работами здесь

Определить наибольшее и наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7
Укажите наибольшее и наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7. var x, a, b:integer; begin ...

Укажите наименьшее из таких чисел Х, при которых алгоритм печатает сначала 3, а потом 7
Получив на вход число Х, программа печатает 2 числа L и М. Укажите наименьшее из таких чисел Х, при которых алгоритм печатает сначала 3, а...

Решение алгоритма - укажите наименьшее из чисел x, при вводе которого алгоритм печатает сначала 3, а потом 4
Получив на вход число x , алгоритм напечатает 2 числа: a и b. Укажите наименьшее из таких чисел x, при вводе которого алгоритм печатает...

Укажите наименьшее из двух напечатанных чисел, при вводе которых алгоритм печатает сначала 12, а потом 5
Ниже написан алгоритм. Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее из таких чисел x, при вводе...

Укажите наибольшее из чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7
У меня была задача : ниже написана программа. Получив на вход число x, она печатает два числа a и b. Укажите наибольшее из таких чисел x,...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru