 Задача про циклы. Рассчет долга по условию... |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| lFOXl |
  4.03.2010 20:43
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Денис Репутация:  0   |
В паскале силен на очень мелком уровне, требуют решить задачу, вот уже по всякому писал, хоть убей не могу правильно указать цикличность...
Задача: В понедельник Т одолжил 2р. Во вторник в два раза больше, и отдал половину долга. Каждый следующий день Т занимал в два раза больше рублей чем в предидущий, отдавая из них целую часть от половины долга. Сколько в целом займет Т через n недель, сколько будет должен, сколько вернет. Помогите пожалуйста, уже не могу прямо...  Сообщение отредактировано: lFOXl - 4.03.2010 20:43 |
   |
 
|
  |
Ответов
| lFOXl |
5.03.2010 13:28
Сообщение
#2
|
|
Новичок Группа: Пользователи Сообщений: 11 Пол: Мужской Реальное имя: Денис Репутация: 0 |
Спасибо!!!
Я понял теперь ошибки. Во первых я обьявлял исходное значение переменных уже в for i:=2 to n*7 do begin Во вторых longint. В первый раз слышу, странно что дали такую задачу а про эту штуку не рассказали. В третьих я вообще по другому выводил целую часть. Еще раз спасибо за помощь, наконец-то все по своим местам!  |
|
|
|
Сообщений в этой теме
lFOXl Задача про циклы. Рассчет долга по условию... 4.03.2010 20:43
Unconnected Может, так?
var i,dolg,sum,backsum,n:integer;
beg... 4.03.2010 22:17 lFOXl Хм, я примерно так же делал... но вот проблемма.
З... 5.03.2010 12:24 Unconnected Тогда так:
var i,dolg,sum,backsum,n:longint;
begi... 5.03.2010 12:56
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.12.2025 16:42 |