Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2017, 13:39   #1
Korban
Пользователь
 
Регистрация: 02.11.2016
Сообщений: 26
По умолчанию Записать информацию с очереди в файл - Pascal ABC

Записать информацию с очереди А в файл FF. Использовать динамическую структуру данных.
Korban вне форума Ответить с цитированием
Старый 01.04.2017, 19:18   #2
Korban
Пользователь
 
Регистрация: 02.11.2016
Сообщений: 26
По умолчанию

Как теперь каждую запись из очереди записать в файл?
Код:
const
  n=4;
type
  student=record
    fio:string[64];
    god_rozh:integer;
    god_post:integer;
    ph_ocenka, mat_ocenka, i_ocenka:integer
  end;

type
   PComp= ^Comp;
   Comp= record
    sD:student;
    pNext:PComp
   end;
var
  pBegin, pEnd: PComp;
  sC,stud:student;
  i:integer;
  FF:text;

Procedure CreateQueue(var pBegin,pEnd: PComp; var sC: student);
begin
  New(pBegin);
  pBegin^.pNext:=NIL;
  pBegin^.sD:=sC;
  pEnd:=pBegin
end;

Procedure AddQueue(var pEnd:PComp; var sC:student);
var
  pAux: PComp;
begin
  New(pAux);
  pAux^.pNext:=NIL;
  pEnd^.pNext:=pAux;
  pEnd:=pAux;
  pEnd^.sD:=sC
end;

Procedure DelQueue(var pBegin: PComp; var sC: student);
begin
  sC:=pBegin^.sD;
  pBegin:=pBegin^.pNext
end;

begin
  writeln('Введите первую запись: ');
  with sC do
    begin
      write('Введите ФИО: '); readln(fio);
      write('Введите год рождения:    '); readln(god_rozh);
      write('Введите год поступления: '); readln(god_post);
      write('Введите оценку по математике:  '); readln(mat_ocenka);
      write('Введите оценку по физике:      '); readln(ph_ocenka);
      write('Введите оценку по информатике: '); readln(i_ocenka);
    end;

  CreateQueue(pBegin,pEnd,sC);
  writeln('Введите ещё записей: ',n-1);
  for i:=1 to 3 do
    begin
      with sC do
        begin
          write('Введите ФИО: '); readln(fio);
          write('Введите год рождения:    '); readln(god_rozh);
          write('Введите год поступления: '); readln(god_post);
          write('Введите оценку по математике:  '); readln(mat_ocenka);
          write('Введите оценку по физике:      '); readln(ph_ocenka);
          write('Введите оценку по информатике: '); readln(i_ocenka);
        end;
      AddQueue(pEnd,sC)
    end;
writeln('________________________________________________________');
 writeln('Вывод сформированной очереди: ');
  i:=1;
  repeat
    writeln('Запись № ',i);
    with sC do
      begin
        writeln('ФИО: ',fio);
        writeln('Год рождения:    ',god_rozh);
        writeln('Год поступления: ',god_post);
        writeln('Оценка по математике:  ',mat_ocenka);
        writeln('Оценка по физике:      ',ph_ocenka);
        writeln('Оценка по информатике: ',i_ocenka);
      end;
      inc(i);
    DelQueue(pBegin,sC);
  until pBegin=NIL;
end.
Korban вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Считать массив чисел из файла и записать в другой файл два массива (Pascal ABC) Luka_Megurine Помощь студентам 0 20.12.2016 16:51
Задание по Visual c++ 2013, Нужно создать файл, записать в него информацию, а затем по другой кнопке считать информацию из файла. Rastoried Visual C++ 5 16.03.2014 20:21
[Pascal ABC] Задать 2 очереди DemonXZ Помощь студентам 0 24.05.2013 21:01
Как всю информацию с экрана записать в файл? feonit C++ Builder 3 04.03.2011 14:33
Как очистить текстовый файл и записать другую информацию Swatch Microsoft Office Access 2 23.12.2010 13:32