|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.12.2011, 22:20 | #1 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 126
|
Паскаль. Необходимо найти наименьшее абсолютное значение
Есть программа с одномерным массивом, с использованием процедур, где одно из заданий найти наименьшее абсолютное значение и поставить его на 6 место в массиве.
Написал прогу, но есть проблемы: - не пойму, как найти наименьшее абсолютное значение(в программе выделил красным) -поставить наименьшее абсолютное значение на 6 место в массиве; Вот моя программа, помогите пожалуйста!!! Код:
|
20.12.2011, 22:22 | #2 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Цитата:
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
|
20.12.2011, 22:24 | #3 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 126
|
|
20.12.2011, 22:26 | #4 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Low(a) - нижний индекс массива у тебя это 1
high(a) - верхний индекс массива у тебя это n
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
20.12.2011, 22:33 | #5 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 126
|
Вот я подставил, так соответствует программе?
amin:=1; for j:=1 to n do If abs(v[j])<abs(v[amin]) then amin:=j; Writeln(amin:7:1); |
20.12.2011, 22:40 | #6 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
да только
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
20.12.2011, 22:43 | #7 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 126
|
|
20.12.2011, 22:57 | #8 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Цитата:
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 20.12.2011 в 23:00. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти наименьшее значение с заданым параметром | SMShrek | Microsoft Office Excel | 3 | 22.11.2011 14:02 |
Наименьшее и наибольшее значение функции | Ejevila | Помощь студентам | 4 | 21.12.2010 01:41 |
Турбо паскаль:программа находящая сумму ряда(необходимо найти ошибку в коде) | Galchonok | Помощь студентам | 5 | 12.06.2010 15:10 |
Задача:Найти наименьшее и наибольшее значение заданной функции с помощью массива.(Pascal) | abiturient | Помощь студентам | 12 | 08.10.2009 20:35 |