Задача про циклы. Рассчет долга по условию... |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача про циклы. Рассчет долга по условию... |
lFOXl |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Денис Репутация: 0 |
В паскале силен на очень мелком уровне, требуют решить задачу, вот уже по всякому писал, хоть убей не могу правильно указать цикличность...
Задача: В понедельник Т одолжил 2р. Во вторник в два раза больше, и отдал половину долга. Каждый следующий день Т занимал в два раза больше рублей чем в предидущий, отдавая из них целую часть от половины долга. Сколько в целом займет Т через n недель, сколько будет должен, сколько вернет. Помогите пожалуйста, уже не могу прямо... Сообщение отредактировано: lFOXl - |
Unconnected |
Сообщение
#2
|
mea culpa Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: 24 |
Может, так?
var i,dolg,sum,backsum,n:integer; -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
lFOXl |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Денис Репутация: 0 |
Хм, я примерно так же делал... но вот проблемма.
За одну неделю получаеться Занял 39, Должен 19, а отдал 54. Он не мог отдать больше чем занял, да и если каждый день занимал в два раза больше чем в предидущий, то за неделю он должен занять больше, чем 39.... За пять недель пишет вообще что возвратил "-23463"... У меня вот с этим морока, где-то не то что то с рассчетом, цикл неверно образован Сообщение отредактировано: lFOXl - |
Unconnected |
Сообщение
#4
|
mea culpa Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: 24 |
Тогда так:
А отрицательное число - это потому, что значения уже не помещались в Integer. Я исправил на LongInt, на 4х неделях отрабатывает. -------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
lFOXl |
Сообщение
#5
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Денис Репутация: 0 |
Спасибо!!!
Я понял теперь ошибки. Во первых я обьявлял исходное значение переменных уже в for i:=2 to n*7 do begin Во вторых longint. В первый раз слышу, странно что дали такую задачу а про эту штуку не рассказали. В третьих я вообще по другому выводил целую часть. Еще раз спасибо за помощь, наконец-то все по своим местам! |
Текстовая версия | 17.05.2024 12:25 |