Тип даных Опции

[Desktop II]

....

Сообщение отредактировано: Desktop II - 6.04.2006 12:37

[volvo]

Как правильно написать условие что бы исключить из списка студентов у которых больше одной двойки ?

Что-то такого типа:

var count_2: integer;
...
s1:=poch;
while s1<>nil do begin

  count_2 := 1;
  for   i:= 1 to 4 do if s1^.y.ocinky[i] = 2 then dec(count_2);
  if count_2 < 0 then { данные, на которые указывает s1, нужно удалять }

  s1:=s1 ^.cc;
end;

[Desktop II]

...

Сообщение отредактировано: Desktop II - 6.04.2006 12:38

[volvo]

Сделал как ты сказал, после ввода даных паскаль намертво виснет...

Я не это совершенно имел в виду! Смотри, что у тебя происходит:

while s1<>nil do begin

  count_2 := 1;
  for   i:= 1 to 4 do if s1^.y.ocinky[i] = 2 then dec(count_2);
  if count_2 < 0 then s1:=s1 ^.cc; { Вот так расценивается твоя программа !!! }
end;

Я же подразумевал, что ты ВМЕСТО комментариев вставишь код удаления элемента списка, на который указывает s1... Чувствуешь разницу?