Одномерные массивы, Помогите, пожалуйста |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Одномерные массивы, Помогите, пожалуйста |
goosberry |
10.04.2009 19:27
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 40 Пол: Женский Репутация: 0 |
1. В списке указаны суммы вкладов n вкладчиков. Расположить эти суммы в порядке убывания сумм вкладов.
И вот что у меня получилось program zadacha; 2. Элементы массива y(20) сформированы следующим образом: yi= 2tg(i^2), если i-чётное, cos^2(i/2)-1, если i кратно 5, i^2-10, во всех других случаях. Найти максимальный и минимальный элементы массива y и поменять их местами. Я вот начала писать, но что-то такая ерунда, наверное получается... я что-то с этим i элементом не очень поняла...
Сообщение отредактировано: goosberry - 11.04.2009 8:19 |
Айра |
10.04.2009 20:11
Сообщение
#2
|
Профи Группа: Пользователи Сообщений: 731 Пол: Женский Репутация: 25 |
Вообще, как бы одна тема - одна задача, но в первой я ошибок не нашла) Только я циклы сортировки обычно такими делала
По второй: тебе не нужно вводить элементы вручную, нужно проверять индексы и выполнять соответствующее присваивание:
Только не понятно, что делать с 10 и 20, они ж обоим условиям удовлетворяют.. Сообщение отредактировано: Айра - 10.04.2009 20:23 |
goosberry |
11.04.2009 6:36
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 40 Пол: Женский Репутация: 0 |
Спасибо . Я вот тоже задалась вопросом что же делать с 10 и 20...
|
goosberry |
11.04.2009 7:58
Сообщение
#4
|
Новичок Группа: Пользователи Сообщений: 40 Пол: Женский Репутация: 0 |
Сообщение отредактировано: goosberry - 11.04.2009 8:00 |
Lapp |
11.04.2009 8:33
Сообщение
#5
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
if i mod 2=0 then y[i]:=2*(sin(i*i)/cos(i*i)); По поводу твоего вопроса.. Запоминать нужно не значения, а их индексы. Причем, можно и в одном цикле (сделай min и max целыми): max:=1; Тогда змена будет делаться (ессно, без всякого цикла) вот так: p:=y[min]; -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
goosberry |
11.04.2009 9:13
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 40 Пол: Женский Репутация: 0 |
Всё, разобралась. Большое спасибо!!!
|
Текстовая версия | 28.05.2024 16:41 |