VPF::[Pascal] Динамические структуры данных. Списки.

blackandwhite

Дата 15.11.2006, 21:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Задача на тему: Динамические структуры данных. Списки.

С клавиатуры вводится последовательность вещественных чисел x1, x2, x3... xn n>2. Вывести по-следовательность, состоящую из элементов: x1*xn; x2*xn-1; x3*xn-2 ... xn*x1.

Если кто знает как сделать,напишите пожалуисто !!!

ruman

Дата 15.11.2006, 23:43 (ссылка)

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

Загрузка ...

Новичок

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

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

хмммм интересно !!!

volvo877

Дата 16.11.2006, 00:26 (ссылка)

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

Загрузка ...

Эксперт

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

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

blackandwhite, если список односвязный, то вот так:

Код


type
  pitem = ^titem;
  titem = record
    X: real;
    next: pitem;
  end;

var
  p, pp, head, tail: pitem;
  i, j, n: integer;

  x: real;

begin

  write('n = '); readln(n);
  head := nil; tail := nil;

  for i := 1 to n do begin

    write('X[', i, '] = '); readln(X);
    new(p);
    p^.X := X;
    p^.next := nil;

    if head = nil then head := p
    else tail^.next := p;
    tail := p

  end;

  i := 1; p := head;
  while p <> nil do begin

    j := 0; pp := head;
    while j < n - i do begin
      inc(j); pp := pp^.next;
    end;
    writeln('X[',i,'] * X[',n-i+1,'] = ', (p^.x * pp^.x):10:5);

    inc(i); p := p^.next;

  end;

end.

Результат прогона:

Код

n = 4
X[1] = 1
X[2] = 2
X[3] = 3
X[4] = 4
X[1] * X[4] =    4.00000
X[2] * X[3] =    6.00000
X[3] * X[2] =    6.00000
X[4] * X[1] =    4.00000

Если можно использовать двухсвязный - будет еще проще...

DEZZZZZ

Дата 18.12.2006, 16:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Задачка на ту же тему

Последовательность вещественных чисел сохранить в динамическом списке. Поместить в стек все отрицательные числа, икслючив их из динамического списка.

если кто знает как решается - напшите плиззз

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