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