формирование линейного списка целых чисел, элементы которого считываются из текстового файла

[kalosha-stepa]

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

program k;

type
  Chain = ^elem;
  Elem = record
    data: integer;
    next: chain;
  end;

var
  first: chain;
  i: integer;

procedure form(var first: chain);
var
  f:text;temp: chain;
begin
  Assign(f, '5.txt');
  Reset(f);
 
  readln(f, temp^.data);
  
  temp^.next := first;
  first := temp;
  Close(f);
end;

procedure print(first: chain);
var
  temp: chain;
begin
  temp := first;
  while temp <> nil do
  begin
    write(temp^.data, ' ');
    temp := temp^.next;
  end;
end;

Плюсом функцию дописать




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

сразу - чтение из файла и заполнение списка - НЕПРАВИЛЬНОЕ.
Вы забываете, что нужно для каждого нового элемента выделять память через New(указатель)

[kalosha-stepa]

Дак вот я и прошу мне помочь!

[Serge_Bliznykov]

ладно. разбирайтесь:

program k;

type
  Chain = ^elem;
  Elem = record
    data: integer;
    next: chain;
  end;

procedure AddToEndList(iValue : integer; var start : Chain);
var
 One, tmp : Chain;
begin
  New(One);{ выделяем память под очередной элемент}
  One^.data := iValue;
  One^.next := nil; {т.к добавляем в конец,то указатель на след.равен nil}

  {если "голова" списка start не равна nil, значит список уже не пуст}
  if start <> nil then
  begin
     tmp:=start;
     {перематываем список,что бы list стал последним элементом}
     while tmp^.next <> nil do
        tmp := tmp^.next;
     tmp^.next:= One{устанавливаем указатель на след.элемент}
  end
  else {если список был пуст, тогда делаем One первым элементом}
     start:= One; 
end;

procedure ReadFileToList(const FName : string; var first: chain);
var
  f : text;
  d : Integer;
begin
  Assign(f, FName);
  Reset(f);
 
  while (not eof(f)) and ( not eoln(f) ) do 
  begin
    read(f, d);
    AddToEndList( d, first);
  end;
  Close(f);
end;

procedure print(first: chain);
var
  temp: chain;
begin
  temp := first;
  WriteLn('List contains of: ');
  while temp <> nil do
  begin
    write(temp^.data, ' ');
    temp := temp^.next;
  end;
  WriteLn;
end;

function CountElementGreaterThenFirst(first: chain) : integer;
var
  cnt, firstValue : integer;
  temp: chain;
begin
  if first = nil then
     CountElementGreaterThenFirst := 0
  else begin
    temp := first;
    firstValue := temp^.data;
    cnt := 0;
    temp := temp^.next; {перейдём на второй элемент списка}

    while temp <> nil do
    begin
      if temp^.data > firstValue then Inc(cnt);
      temp := temp^.next;
    end;

    CountElementGreaterThenFirst := cnt

  end;
end;

var
  first: chain;
  i: integer;

begin
  first := nil;
  ReadFileToList('5.txt', first);
  print( first );

  WriteLn('Elementov greater then first: ',
              CountElementGreaterThenFirst ( first ));

  Readln
end.

файл 5.txt должен быть текстовым и содержать целые числа в одной строке (разделённые пробелами, например).
вот, как может выглядеть такой файл:

7 2 4 5 9 1 2 16 8

p.s. при добавлении элементов в список все элементы перебираются, чтобы найти последний (добавляем в конец списка).
Разумеется, это не очень красиво и эффективно. Я бы рекомендовал вам добавить ЕЩЁ одну переменную, указатель, которая всегда будет показывать на конечный элемент списка и добавление производить через неё.
Переделать код процедуры добавления оставляю Вам в качестве домашнего задания, если не справитесь, пишите, подскажу...

[Stilet]

procedure form(var first: chain);
var
  f:text;last,temp: chain;
begin
  Assign(f, '5.txt');
  Reset(f);last:=first;
  while not eof(f) do begin
   new(temp);
   readln(f, temp^.data);
   temp^.next := last;
   last:= temp;
  end;
  Close(f);
end;

Так понятнее?

[Serge_Bliznykov]

Stilet, не-а.. А first кто будет изменять? (если first -= nil - то теряете все добавленные элементы)

[DiemonStar]

Сообщение от Stilet

procedure form(var first: chain);
var
  f:text;last,temp: chain;
begin
  Assign(f, '5.txt');
  Reset(f);last:=first;
  while not eof(f) do begin
   new(temp);
   readln(f, temp^.data);
   temp^.next := last;
   last:= temp;
  end;
  Close(f);
end;

Так понятнее?

что-то сильно на стек смахивает. Хоть это тоже линейный список, но, как мне кажется, в задании подразумевалась очередь.

procedure form(var first: chain);
var
  f:text; head, last, temp: chain;
begin
  Assign(f, '5.txt');
  Reset(f);head := nil; last := nil;
  
while not eof(f) do begin
   new(temp);
   if head = nil then head := temp;
   readln(f, temp^.data);
   If last <> nil then last^.next := temp;
   last:= temp;
  end;
  Close(f);
  first := head;
end;

з.ы. я бы функцией оформил

[Stilet]

А first кто будет изменять?

Согласен, провтыкал.

[kalosha-stepa]

а для чего last и можно ли обойтись без него

[Stilet]

last это указатель на последний элемент. теоретически можно и без него.