Списки.

[Leshii]

Код, ниже.
Задание, Создать и заполнить список целыми числами и после подсчитать сумму квадратов парных чисел.
Но не в этом суть. Так как задание сделал. Вопрос заключается в следующем.
Скажем ввожу числа
1
2
3
4
0 - окончание ввода.
После оно мне считает сумму, сумму то оно какбэ посчитало, но вот после суммы возникает левое четырехзначное число ( 6288 ). Вопрос, откуда оно взялось? и как от него избавится при выводе на экран.

Program list;
Uses crt;

type
  listing=^N;
  N=record
  data: integer;
  next: listing;
end;
var
  current: listing;
  number: integer;
  head: listing;
  sum: integer;

begin
clrscr;
repeat
  write('Number=');readln(number);
  New(current); current^.data:=number; current^.next:=head;
  head:=current;
Until number=0;
writeln('---List---');
writeln('Summa kvadratov parnux elementov');
current:=head;

sum:=0;

while current<>nil do begin
  write(' ',current^.data);
  current:=current^.next;

writeln;
if current^.data mod 2 =0 then
  begin 
   sum:= sum+sqr(current^.data);   
   writeln('Sum:=',sum);
  end;
end;
readln;
end.

[Serge_Bliznykov]

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

попробуйте такой код:

begin
  clrscr;
  repeat
    write('Number='); readln(number);
    if number <> 0 then begin
      New(current); current^.data := number; current^.next := head;
      head := current;
    end;
  until number = 0;
  writeln('---List---');
  writeln('Summa kvadratov parnux elementov');
  current := head;

  sum := 0;

  while current <> nil do begin
    write(' ', current^.data);
    if current^.data mod 2 = 0 then
    begin
      sum := sum + sqr(current^.data);
      write(' Sum:=', sum);
    end;
    current := current^.next;
  end;
  writeln;
  writeln('Itogo : summa kvadratov parnux elementov = ', sum);
  writeln;
  readln;
end.

p.s. кстати, Вы знаете, что вы таким образом добавляя элементы в список, получаете их в обратной (относительно порядка ввода) последовательности?...

[Leshii]

Да знаю, я уже просто сдавал такой же вариант, с выводом конечно не очень красиво, но прокатило =)
Благодарю.