Списки

[AVer]

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

[SuperVisor]

Список чего? Или список - просто массив значений? Приведи наипростейший пример.

[zetrix]

Список какой? Односвязный или двусвязный, линейный или циклический (кольцевой)? Какой тип данных хранится в списке?

[AVer]

Вот программа. Это делфи-консольное приложение выдает Runtime Error. Где ошибка?

type
  TPStudent=^TStudent;
  TStudent = record
  Znachenie:string;
  Rezultat: string;
  next: TPStudent;
  end;


var
  Head: TPStudent;

function Palindrom(Z:string):boolean;
var i:integer;
    r:boolean;
begin
r:=true;
for i:=1 to length(z) div 2 do
 begin
 if z[i] <> z[length(z)-i+1] then
 r:=false;
 palindrom:=r;
 end;
end;

procedure Proverka;
var
curr: TPStudent;
begin
curr := head;
while curr <> NIL do
begin
if Palindrom(curr^.Znachenie) then
curr^.Rezultat:='Palindrom' else
curr^.Rezultat:='Ne palindrom';
Writeln(curr^.Znachenie+' '+curr^.Rezultat);
curr := curr^.next;
head:=curr;    //Исправлено здесь
end;
end;


procedure Glavnaya;
var
Curr: TPStudent;
s:string;
begin
readln(s);
While s <> '0' do
begin
new(Curr);
Curr^.Znachenie := s;
readln(s);
end;
Proverka;
end;

begin
Glavnaya;
Readln;
end.

end.

[SuperVisor]

А пошагово проверять пробовал? Где идет присвоение какого-либо значения переменной Head? Дальше - команда New() есть, а Dispose() хде?

[AVer]

Насчет Head я исправил. А теперь скажи пожалуйста куда понавтыкать Dispose, а то чего то не догоняю я эту задачу... Ведь если я вставлю ее в процедуру Glavnaya тогда я удалю только что созданный элемент. Так? Подскажи плз. И еще вопрос: Рунтайм Еррор возникает именно из-за этого?

[AVer]

Решение найдено совместно с SuperVisor. За это ему отдельное спасибо.

program Palindroms;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TPStudent=^TStudent;
  TStudent = record
  Znachenie:string;
  Rezultat: string;
  next: TPStudent;
  end;


var
  Curr,Buf: TPStudent;

function Palindrom(Z:string):boolean;
var i:integer;
    r:boolean;
begin
r:=true;
for i:=1 to length(z) div 2 do
 begin
 if z[i] <> z[length(z)-i+1] then
 r:=false;
 palindrom:=r;
 end;
end;

procedure Proverka;
begin
while curr <> NIL do
begin
if Palindrom(curr^.Znachenie) then
curr^.Rezultat:='Palindrom' else
curr^.Rezultat:='Ne palindrom';
Writeln(curr^.Znachenie+' '+curr^.Rezultat);
curr := curr^.next;
end;
end;


procedure Glavnaya;
var
s:string;
begin
readln(s);
While s <> '0' do
begin
new(Curr);
Curr^.Znachenie := s;
curr^.Rezultat:='';
curr^.next:=Buf;
Buf:=curr;
readln(s);
end;
writeln;
Proverka;
Readln;
end;

begin
Glavnaya;
Dispose(Curr);
end.