Upfort писал(а):это и вся задача?
просто я вообще не шарю(
В принципе, приведенная процедура полностью соответствует поставленной задаче, но возможно потребуется описать тип данных:
[syntax='Delphi']
type
PListItem=^TListItem;
TListItem=record
Number:real;
sData:string[20];
Next:PListItem;
end;
[/syntax]
Тогда заголовок процедуры примет вид:
procedure summ(P:PListItem);
А вообще, советую описать эту подпрограмму как функцию:
[syntax='Delphi']
function summ(p:PListItem):real;
var
sum:real;
begin
sum:=0;
while p<>nil do
begin
sum:=sum+p^.number;
p:=p^.next;
end;
summ:=sum;
end;
[/syntax]