Удалить подсписок студентов с фамилии F1 до фамилиии F2 включительно

@olya17 · Регистрация: 19.10.2014

Пусть задан список студентов . Элемент списка содержит : фамилию , имя ,
№ курса , № группы , оценки по пяти экзаменах последней сессии . пусть ,
фамилии студентов в списке упорядочены по алфавиту , удалите
подсписок студентов , начиная с фамилии F1 и заканчивая фамилией F2
включительно

заранее спасибо

@JuriiMW · 06.03.2015, 08:00

Пусть задан список ссылкой на первый элемент List типа tList.
Тогда так:

Pascal

procedure DeleteF1_F2(F1, F2 : String; var List : tList);
var
  Cur, Tmp : tList;
begin
  Cur := List;
  while (Cur <> nil) and (Cur^.F <> F1) do { ищем 1 фамилию }
    Cur := Cur^.Next;
  if Cur = nil then Exit; { 1 фамилии нет в списке }
  while (Cur^.Next <> nil) and (Cur^.Next.F <> F2) do { удаляем до 2 фамилии }
    begin
      Tmp := Cur^.Next;
      Cur^.Next := Tmp^.Next;
      Dispose(Tmp);
    end;
end;

@olya17 · 10.03.2015, 22:52 **[ТС]**

спасибо

@olya17 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 16
		1
	Удалить подсписок студентов с фамилии F1 до фамилиии F2 включительно 05.03.2015, 22:30. Показов 1246. Ответов 2 Метки нет (Все метки) Пусть задан список студентов . Элемент списка содержит : фамилию , имя , № курса , № группы , оценки по пяти экзаменах последней сессии . пусть , фамилии студентов в списке упорядочены по алфавиту , удалите подсписок студентов , начиная с фамилии F1 и заканчивая фамилией F2 включительно заранее спасибо 0

@olya17 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 16
	10.03.2015, 22:52 [ТС]	3
	спасибо 0

Опции темы

Удалить подсписок студентов с фамилии F1 до фамилиии F2 включительно

Решение