Помощь - Поиск - Пользователи - Календарь
Полная версия: Тип даных
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Desktop II
....
volvo
Цитата(Desktop II @ 4.04.2006 10:33)
Как правильно написать условие что бы исключить из списка студентов у которых больше одной двойки ?


Что-то такого типа:
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;
GoodWind
Цитата
Посылочный тип даных

а разве такой существует ? blink.gif
Desktop II
...
Desktop II
...
volvo
Цитата(Desktop II @ 4.04.2006 14:14)
Сделал как ты сказал, после ввода даных паскаль намертво виснет...

Я не это совершенно имел в виду! Смотри, что у тебя происходит:
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... Чувствуешь разницу?
Desktop II
...
volvo
Цитата
If <Что тут писать ?> then Delete(s1);

То же самое и писать!!!
If count_2 < 0 Then Delete(s1)
else s1 := s1^.cc;

Только нужно еще реализовать процедуру Delete...
Desktop II
...
volvo
Поиском пользуйся. Да и FAQ мы не для красоты месяцами шлифуем... Чтобы ты пришел, и для тебя все заново решать...
Desktop II
...
Desktop II
...
volvo
Цитата
Я как раз и тем и дургим пользуюсь.

Правда? Так что же ты разобраться не можешь, ПОЧЕМУ у тебя ошибка? А посмотреть на описание НАШЕГО типа Point тебе что, лень было? Или мы должны исключительно по твоему образу и подобию в FAQ-е использовать названия полей, не несущих НИКАКОЙ смысловой нагрузки?

Будь добр перечитать тему о списках еще раз.

И не надо делать "Up", иначе тема уйдет в Down раз и навсегда...
Desktop II
...
Desktop II
...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.