Работа со списками в Delphi

Задание на лабораторную работу: Создать список студентов со следующими полями: номер группы, ФИО, оценки за сессию, средний балл. Список заполняется из типизированного файла. Предусмотреть возможность:

  • вывода списка студентов на экран
  • вывода списка студентов на отчисление (три или более неудовлетворительных оценки (<4))
  • вывода списка студентов-задолжников (одна или две неудовлетворительных оценки)
  • поиска студентов по ФИО
  • добавления студента в список
  • удаления студента из списка
  • редактирование элемента списка
  • выхода из программы с сохранением изменений
  • выхода из программы без сохранения
  • удаления всего списка
  • сортировки списка по ФИО.

Программа написана в консольном режиме. Предусмотрены все нестандартные ситуации, проведены всевозможные тесты.

Приложения:

procedure sortList (list:TSP);
var temp,x:TSP;
    tmps:Tzap;
    F:file of Tzap;
begin
  Assign(F,'spisok_1.dat');
  Rewrite(F);
  x:=list;
  while x<>nil do
  begin
    temp:=x^.ADR;
      while temp<>nil do
      begin
        if temp^.inf.FIO < x^.inf.FIO then
        begin
          tmps:=temp^.inf;
          temp^.inf:=x^.inf;
          x^.inf:=tmps;
        end;
        temp:=temp^.ADR;
      end;
      x:=x^.ADR;
  end;
  Writeln;
  Writeln('Список отсортирован');
  while list<>nil do
  begin
    write(F, list^.inf);
    list := list^.ADR;
  end;
  Close(F);
end;
function searchFIO(list: TSP; vsp: byte): TSP;
var
  name: string[36];
  flajok: Boolean;
begin
  flajok := True;
  Writeln('Введите ФИО студента: ');
  Readln(name);
  if list <> nil then
    while (list <> nil) and (trim(name) <> Trim(list^.inf.FIO)) do
      list := list^.ADR;
  if list = nil then
  begin
    writeln('Элемент с искомым значением отсутствует');
    flajok := False;
    searchFIO := list;
    Inc(i);
  end;
  if flajok = True then
  begin
    searchFIO := list;
    if vsp = 1 then
    Writeln(list^.inf.NG:8, list^.inf.FIO:36, list^.inf.OAIP:6, list^.inf.MAT:4, list^.inf.OKT:4, list^.inf.FIL:4, list^.inf.SB:8:2);
  end;
end;

СОДЕРЖАНИЕ АРХИВА:

  • искомый dpr-файл
  • типизированный файл spisok_1.dat (список студентов)
  • типизированный файл spisok_1_help.dat (вспомогательный файл, в случае выхода без сохранения)
  • текстовый файл Spisok.txt (для сохранения списка студентов на отчисление)
  • текстовый файл Spisok_2.txt (для сохранения списка студентов-задолжников)

Присоединяйся

Зарегестрируйся с помощью социальных сетей.

Публикуй

Опиши работу, прикрепи файлы и назначь цену.

Зарабатывай

Получай пассивный доход с продажи работ.

Тебе понадобится 5 минут для публикации работы на сайте.
Купить

350,00 

(без учета комиссии 3,8 %)

Spiski.zip
4712
Оцени работу

рейтинг

Поделись работой с друзьями

Мы не грузим циферки, чтоб ты увидел контент как можно быстрее;

Комментарии (0)

YaR1qq

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегестрированые пользователи имеют возможность комментировать работы
Работа со списками в Delphi
Программа позволяет создавать и выводить списки, добавлять и удалять элементы списка, редактировать элементы списка. Предусмотрена возможность поиска и сортировки по определенному полю.
Категория: Образование
Стоимость: 350,00