....
Сообщение отредактировано: Desktop II -
 Тип даных |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Desktop II |
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация:  0   |
|
   |
 
|
| volvo |
Сообщение
#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;
|
|
|
|
| GoodWind |
Сообщение
#3
|
 Автооответчик Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Цитата Посылочный тип даных а разве такой существует ?  -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
|
|
|
| Desktop II |
Сообщение
#4
|
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
...
Сообщение отредактировано: Desktop II - |
|
|
|
| Desktop II |
Сообщение
#5
|
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
...
Сообщение отредактировано: Desktop II - |
|
|
|
| volvo |
Сообщение
#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... Чувствуешь разницу? |
|
|
|
| Desktop II |
Сообщение
#7
|
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
...
Сообщение отредактировано: Desktop II - |
|
|
|
| volvo |
Сообщение
#8
|
|
Гость |
Цитата If <Что тут писать ?> then Delete(s1); То же самое и писать!!! If count_2 < 0 Then Delete(s1)
else s1 := s1^.cc;
Только нужно еще реализовать процедуру Delete... |
|
|
|
| Desktop II |
Сообщение
#9
|
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
...
Сообщение отредактировано: Desktop II - |
|
|
|
| volvo |
Сообщение
#10
|
|
Гость |
Поиском пользуйся. Да и FAQ мы не для красоты месяцами шлифуем... Чтобы ты пришел, и для тебя все заново решать...
|
|
|
|
| Desktop II |
Сообщение
#11
|
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
...
Сообщение отредактировано: Desktop II - |
|
|
|
| Desktop II |
Сообщение
#12
|
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
...
Сообщение отредактировано: Desktop II - |
|
|
|
| volvo |
Сообщение
#13
|
|
Гость |
Цитата Я как раз и тем и дургим пользуюсь. Правда? Так что же ты разобраться не можешь, ПОЧЕМУ у тебя ошибка? А посмотреть на описание НАШЕГО типа Point тебе что, лень было? Или мы должны исключительно по твоему образу и подобию в FAQ-е использовать названия полей, не несущих НИКАКОЙ смысловой нагрузки? Будь добр перечитать тему о списках еще раз. И не надо делать "Up", иначе тема уйдет в Down раз и навсегда... |
|
|
|
| Desktop II |
Сообщение
#14
|
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
...
Сообщение отредактировано: Desktop II - |
|
|
|
| Desktop II |
Сообщение
#15
|
|
Новичок Группа: Пользователи Сообщений: 31 Пол: Мужской Репутация: 0 |
...
Сообщение отредактировано: Desktop II - |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 22.04.2025 2:19 |
Связь с администрацией: bu_gen в домене octagram.name