 Задача на массивы и последовательности |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Xander ZoNe |
 8.11.2005 16:37
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Реальное имя: Михаил Репутация:  0   |
Дали контрольную по информатике, а я в программировании 0 с минусом, мож кто поможет в Turbo Pascal две задачи решить?
1) Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов кратных пяти. 2) Известен начальный вклад клиента в банк и процент годового дохода. Определить через сколько лет вклад превысит заданный размер и каков будет при это размер вклада. Или если может они уже решены, то можете дать ссылки? Я и в форуме и в факе, нашел одну подобную для 1-ой задачи, только она какая-то сокращенная. Или я просто ниче понять не могу. Заранее сильно-сильно благодарен. |
   |
 
|
  |
Ответов(1 - 4)
| klem4 |
8.11.2005 16:52
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Правила форума читал ? Сначала FAQ и поиск по форуму. Задач на матрицы и массивы решено уйма.
Так что вперед : FAQ : Массывы, матрицы, типичные задачи. Буду конкретные вопросы, спрашивай. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
8.11.2005 17:04
Сообщение
#3
|
|
Гость |
To: Xander ZoNe
Если ты про это: Одномерный массив говорил, что Цитата нашел одну подобную для 1-ой задачи, только она какая-то сокращенная , то обычно дается только основная идея программы... Все остальное (оформление программы полностью) - делай сам... |
|
|
|
| Xander ZoNe |
8.11.2005 22:02
Сообщение
#4
|
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Реальное имя: Михаил Репутация: 0 |
Так в том то и проблема что я вообще в Паскале дуб дубом, вот и не получается нифига.
|
|
|
|
| klem4 |
8.11.2005 22:30
Сообщение
#5
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Тебе ведь дали уже ссылку на первую задачу что там не ясно ? Обнуляешь сумму,проходишь по массиву, смотришь : если число не делится на 5 без остатка (x[i] mod 5 <> 0), то прибавляешь его к сумме, что тут непонятного ?
Если не знаешь как работать с массивами то ссылка на FAQ я тебе давал. количество лет, через которые вклад превысит заданный размер =(заданный размер-вклад)/(вклад*проценты/100) Тут не учитывается процент от новой суммы каждый год. Процент берется от изначального вклада. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 30.07.2025 11:08 |