IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Тип даных
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


....

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата(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;
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


Цитата
Посылочный тип даных

а разве такой существует ? blink.gif


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


...

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


...

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата(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... Чувствуешь разницу?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


...

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Цитата
If <Что тут писать ?> then Delete(s1);

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

Только нужно еще реализовать процедуру Delete...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


...

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






Поиском пользуйся. Да и FAQ мы не для красоты месяцами шлифуем... Чтобы ты пришел, и для тебя все заново решать...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


...

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


...

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Гость






Цитата
Я как раз и тем и дургим пользуюсь.

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

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

И не надо делать "Up", иначе тема уйдет в Down раз и навсегда...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


...

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской

Репутация: -  0  +


...

Сообщение отредактировано: Desktop II -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 28.06.2017 21:04
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"