Developing.ru

Не думаю, что в учебных задачах критична скорость работы

зато будет чуточку быстрей работать

procedure summ(p:PListItem, var Sum:real);
begin 
  sum:=0; 
  while p<>nil do 
  begin  
    sum:=sum+p^.number;  
    p:=p^.next; 
  end; 
end;

[b]drummer[/b], [quote="&quot"]Я бы тоже делал функцию, но в условии было сказано
Цитата:
процедуру [/quote]
ну я бы результат процедуры всё таки вернул через параметер - использование глобальных переменных - некузявно!

[code]
procedure summ(p:PListItem, var Sum:real);
begin
sum:=0;
while p<>nil do
begin
sum:=sum+p^.number;
p:=p^.next;
end;
end;
[/code]

спасибо вам большое, за помощь! )
вы мне очень помогли.

Я бы тоже делал функцию, но в условии было сказано
[quote]
процедуру
[/quote]

[quote="Upfort"]это и вся задача?
просто я вообще не шарю([/quote]

В принципе, приведенная процедура полностью соответствует поставленной задаче, но возможно потребуется описать тип данных:
[syntax='Delphi']
type
PListItem=^TListItem;
TListItem=record
Number:real;
sData:string[20];
Next:PListItem;
end;
[/syntax]

Тогда заголовок процедуры примет вид:
[b]procedure summ(P:PListItem);[/b]

А вообще, советую описать эту подпрограмму как функцию:
[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]

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

это и вся задача?
просто я вообще не шарю(

procedure summ(p:Ptvoi_tip);
    begin
        sum:=0;
        while p<>nil do
            begin
                sum:=sum+p^.number;
                p:=p^.next;
            end;
    end;

[code]
procedure summ(p:Ptvoi_tip);
begin
sum:=0;
while p<>nil do
begin
sum:=sum+p^.number;
p:=p^.next;
end;
end;
[/code]

Списо состоит из слкдующей структуры:

- вещественное число
- строка из 20 символов
- указатель на следующий элемент списка (в последнем элементе это поле равно NIL ).
Элементы списка хранятся в динамически распределяемой памяти. (То есть, место для них выделяется процедурой new). Составить процедуру вычисления суммы числовых полей всех элементов списка. Процедуре должен передоваться адрес начала списка.

очень прошу вас помочь, 8-го госы