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

Вычислить глубину погружения гвоздя в массив дерева

26.12.2021, 18:04. Показов 546. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Необходимо составить программу, которая рассчитывает глубину погружения гвоздя через t секунд после начала работы в массив дерева.
Гвоздь длиной m миллиметров забивается ударами молотка (в секунду один удар), погружаясь каждый раз на n миллиметров в массив дерева. На забитый гвоздь удары молотка влияния не оказывают. Перерыв после каждой минуты (60 секунд) работы составляет 5 секунд.
Определить глубину погружения гвоздя в массив дерева через t секунд после начала работы.
Тесты программы:
Ввод (100 1 80) Вывод (75)
Ввод (256 3 91) Вывод (256)

Спасибо за помощь!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.12.2021, 18:04
Ответы с готовыми решениями:

Определить глубину погружения шайбы в жидкость
На границе раздела двух жидкостей с плотностями \rho1 и \rho2 плавает шайба с плотностью \rho (\rho1<\rho<\rho2). Высота шайбы h....

Определить глубину погружения шара в воду способом последовательных приближений
Здравствуйте, уважаемые программисты! Помогите, пожалуйста реализовать задачу да Delphi: на поверхности воды плавает шар, радиус которого...

Проход дерева в глубину
Дерево задано матрицой смежности ( произвольной). Нужно реализовать проход дерева в глубину с использованием стека . using System; ...

1
Модератор
10445 / 5737 / 3406
Регистрация: 17.08.2012
Сообщений: 17,450
27.12.2021, 14:06
Сначала посчитаем, сколько всего можно нанести ударов за время t.

Каждые 65 секунд будет нанесено 60 ударов, то есть, всего t div 65 * 60 ударов.

Останется от 0 до 64 секунд, то есть, t mod 65 секунд, и за это время можно будет нанести не более 60 ударов, то есть, если останется от 0 до 60 секунд, то может быть нанесено от 0 до 60 ударов, если останется от 61 до 64 секунд, то будет нанесено 60 ударов.

Осталось сложить две величины, и умножить на количество миллиметров, на которые погружается гвоздь за один удар.

Если то, что получилось, больше длины гвоздя, то гвоздь будет забит на всю длину.

Чтобы не плодить лишних переменных, удобнее сначала разобраться с остатком 0..64, а затем сложить его с t div 65 * 60.
Pascal
1
2
3
4
5
6
7
8
9
10
var
  m, n, t, d: integer;
begin
  readln(m, n, t);
  d := t mod 65;
  if d > 60 then d := 60;
  d := (d + t div 65 * 60) * n;
  if d > m then d := m;
  writeln(d)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.12.2021, 14:06
Помогаю со студенческими работами здесь

Подсчитать глубину дерева
У меня получается только подсчитать количество узлов в левом и правом поддереве. Кто-нибудь знает как решается эта задача? Подскажите,...

Обход дерева в глубину
Доброго времени суток. Ребята, подскажите, плиз, что я делаю не так. Есть дерево, неглубокое и неширокое. на нем данное решение работает,...

Обход бинарного дерева в глубину
Есть вот такой код, никак не могу сделать так, чтобы обходил дерево. Выводит почему-то в порядке добавления. protected class...

Найти максимальную глубину дерева
найти максимальную глубину дерева

Найти глубину бинарного дерева
Всем привет. Нужно найти глубину бинарного дерева, пробовал разные способы отсюда и не только, не получается никак. При заданном способе...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
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
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru