IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на массивы и последовательности
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Михаил

Репутация: -  0  +


Дали контрольную по информатике, а я в программировании 0 с минусом, мож кто поможет в Turbo Pascal две задачи решить?

1) Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов кратных пяти.

2) Известен начальный вклад клиента в банк и процент годового дохода. Определить через сколько лет вклад превысит заданный размер и каков будет при это размер вклада.

Или если может они уже решены, то можете дать ссылки? Я и в форуме и в факе, нашел одну подобную для 1-ой задачи, только она какая-то сокращенная. Или я просто ниче понять не могу.

Заранее сильно-сильно благодарен.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Правила форума читал ? Сначала FAQ и поиск по форуму. Задач на матрицы и массивы решено уйма.

Так что вперед : FAQ : Массывы, матрицы, типичные задачи.

Буду конкретные вопросы, спрашивай.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






To: Xander ZoNe
Если ты про это: Одномерный массив
говорил, что
Цитата
нашел одну подобную для 1-ой задачи, только она какая-то сокращенная
, то обычно дается только основная идея программы... Все остальное (оформление программы полностью) - делай сам...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Михаил

Репутация: -  0  +


Так в том то и проблема что я вообще в Паскале дуб дубом, вот и не получается нифига.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.04.2025 17:07
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name