Список

[Leshii]

Создать список из целых чисел.
Подсчитать сумму чисел попадающих в заданый интервал.

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

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;
Until number=0;
writeln('---List---');
current:=head;
sum:=0;
while current<>nil do begin
  if current in ['5'..'9'] then begin sum:=sum+current;
  write(' ',current^.data);
  current:=current^.next;
  writeln(sum);
  end
  else writeln('There is no numbers matching this array');
end;
readln;
end.

[Mad_Cat]

вот так должно быть вроде как

if current^.data in [5..9] then begin sum:=sum+current^.data;

[Leshii]

Хм. Возможно я что-то неправильно написал ?

Работает, но выводит интересные числа.

На входе скажем:

9
6
3
2
0

На выходе:

0268

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;
Until number=0;
writeln('---List---');
current:=head;
sum:=0;
while current<>nil do begin
  if current^.data in [5..9] then begin sum:=sum+current^.data;
  write(' ',current^.data);
  current:=current^.next;
  writeln(sum);
  end
  else writeln('There is no numbers matching this array');
end;
readln;
end.

[Mad_Cat]

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

if current^.data in ['5'..'9']  _ then begin sum:=sum+current^.data;

Там где нижнее подчеркивание выскочило теперь \Type Mismatch\.

у тя data integer а множество char! как исправить знаешь?
по сабжу

[Leshii]

Сорри. Я уже выше исправился.

[Leshii]

Спасибо mad_cat. Разобрался. Код ниже.

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---');

current:=head;
sum:=0;
while current<>nil do begin
  write(' ',current^.data);
  current:=current^.next;
writeln;
if current^.data in [5..9] then begin sum:=sum+current^.data; end;
  writeln(sum);
end;
readln;
end.