На нашем сайте Вы сможете найти готовые курсовые и дипломные работы по программированию
Сейчас работаем

Работа со списками в 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 (для сохранения списка студентов-задолжников)
Купить 350,00 
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
Комментарии (0)

YaR1qq

/ /

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

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

Только зарегистрированые пользователи имеют возможность комментировать работы
Другие работы автора
Тип Название Рейтинг Категория Стоимость
Лабораторная Деревья Delphi 0 Pascal/Delphi бесплатно
Лабораторная Добавление и удаление Cookie PHP 0 PHP бесплатно
Лабораторная Добавление, удаление, редактирование записей в БД (phpMyAdmin) PHP 0 PHP бесплатно
Лабораторная Программа, выводящая все английские, русские слова и числа в тексте разными цветами PHP 0 PHP бесплатно
Лабораторная Программа, определяющая точный возраст (до одного дня) по дате рождения PHP 0 PHP бесплатно
Купить

350,00 

Покупается впервые!
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
Spiski.zip
4712
Оцени работу

рейтинг

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

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