VPF::[Pascal] Pascal: обработка массива - Форум программистов

Alexander4321

Дата 23.4.2013, 22:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 11.11.2010

Репутация: нет
Всего: нет

Добрый день! Требуется в одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) второй (по величине) минимальный положительный нечетный элемент и его позицию.

На первом проходе определяю минимальный элемент, а на втором уже определяю второй минимальный элемент и его позицию в массиве. Так вот, в первом проходе минимальный элемент нормально находится. А вот во втором значения переменным, содержащим информацию о самом элементе и его позиции, не присваиваются.
Не посмотрите, в чем ошибка? Спасибо!

Минуту, что-то скриншот с кодом не грузится. Сейчас набью код.

Код


const n=20;
var a: array[1..n] of integer;
      pred, i, min, i_pred, imin: integer;
begin
       writeln('Введите 20 элементов массива');
       for i := 1 to n do read(a[i]);
       min := a[i];
             for i := 1 to n do
             if a[i] < min then begin min := a[i]; imin := i; end;
       pred := 1;
       i_pred := 1;
             for i := 1 to n do
             if (a[i] < pred) and (i <> imin) and (a[i] mod 2 > 0)  then begin pred := a[i]; i_pred := i; end;
             writeln(Выводим всякие данные);
end.

Это сообщение отредактировал(а) Alexander4321 - 23.4.2013, 22:13

MetalFan

Дата 30.4.2013, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

There are always someone smarter than you...

Mirkes

Дата 1.5.2013, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 586
Регистрация: 18.8.2011
Где: Красноярск

Репутация: 4
Всего: 17

Цитата(Alexander4321 @ 23.4.2013, 22:04)

Код


const n=20;
var a: array[1..n] of integer;
      pred, i, min, i_pred, imin: integer;
begin
       writeln('Введите 20 элементов массива');
       for i := 1 to n do read(a[i]);
       min := a[i];
             for i := 1 to n do
             if a[i] < min then begin min := a[i]; imin := i; end;
       pred := 1;
       i_pred := 1;
             for i := 1 to n do
             if (a[i] < pred) and (i <> imin) and (a[i] mod 2 > 0)  then begin pred := a[i]; i_pred := i; end;
             writeln(Выводим всякие данные);
end.

Сначала вопрос к формулировке: Что такое нечетное действительное число? Для действительных чисел нет такого понятия.
Видимо речь идет об елементах с нечетными номерами, а ето несколько другая задача. (прошу прощения за орфографию, пишу с транслита).
Следовательно вам нужно перебирать только нечетные елементы массива, а не все.
Нулевая грубая ошибка - переменные для хранения действительных (они же вещественные) должны иметь тип Real, Single, Double, Extended но никак не Integer.
Первая грубая ошибка в строке 7 (min := a[i];) Как вы думаете, чему равно i?
Вторая грубая ошибка сосоит в предположении, что ваши числа меньше 1 (pred:=1;).

Совет
Прочитайте внимательно задачу

--------------------

Mirkes

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »