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

Маша

Дата 1.4.2007, 17:35 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите пожалуйста решить задачу: дан массив ссылок на вещественные числа. Провкрить, есть л в нем элементы, ссылающиеся на одинаковые числа.
Не совсем понятно, требуется ли здесь создавать список, или нужно делать что-то другое.
Заранее большое спасибо!

volvo877

Дата 1.4.2007, 17:52 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Маша @ 1.4.2007, 17:35

)

требуется ли здесь создавать список, или нужно делать что-то другое.

Судя по условию, список тебе не нужен... Проходить по массиву ссылок, и проверять числа, на которые они указывают, на равенство...

Маша

Дата 1.4.2007, 18:03 (ссылка)

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

Загрузка ...

Новичок

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

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

спасибо!

Добавлено через 3 минуты и 38 секунд
только как вводить данные? сначала создать пустые указатили, а потом в соответствующие ячейки добавлять числа, вводимые с клавиатуры?

volvo877

Дата 1.4.2007, 19:01 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ну, вообще-то написано, что массив тебе уже дан... То есть, организовывать его в общем-то не твоя задача... Но организовать можно, например, так (случайные числа):

Код


Type
  pReal = ^Real;
Var
  arr: array[1 .. 10] of pReal;

...
for i := 1 to 20 do begin
  new(arr[i]);
  arr[i]^ := Random(1000) + Random;
end;

А потом проверять...

Только учти, что вещественные числа нельзя сравнивать через "=", надо так:

Код


If abs(x1 - x2) < Eps Then ... { <--- С определенной погрешностью }

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