TurboPascal - Применение типа "Запись"

[RazdoR]

Очень нужно разработать программу, демонстрирующую использование абстрактного типа «Запись» для учета посещаемости студентов.

Буду очень-очень благодарен))

И еще вопрос: как вывести запись на экран?

[Sazary]

И еще вопрос: как вывести запись на экран?

Если вы почитаете тему про записи в каком-нибудь учебнике, этот вопрос отпадет.

[__STDC__]

with record_name do begin
  writeln(elem_1);
  writeln(elem_2);
  {...}
  writeln(elem_n);
end;

??

[RazdoR]

Если вы почитаете тему про записи в каком-нибудь учебнике, этот вопрос отпадет.

Я бы так и сделал, но нет никакой возможности, ситуация(

[Sazary]

Сообщение от RazdoR

Я бы так и сделал, но нет никакой возможности, ситуация(

Что за ситуация? Для этого требуются только умение читать.

[RazdoR]

Сообщение от Sazary

Что за ситуация? Для этого требуются только умение читать.

Под рукой нет книг, нет времени...

Написал малую часть программы
Общий смысл таков: программа должна создать список студентов, и чтобы можно было отмечать кто был на паре, а кто нет%) и выводить при необходимости весь список

часть кода
Но он не полный и не совсем верыный, т.к моих познаний хватило только на это)

Uses crt;
Const fname='students.dat';
      n=5;              {количество предметов}
Type st=record
      n_sp:integer;     {номер в группе по списку}
      fam:string;       {фамилия}
      im:string;        {имя}
      ot:string;        {отчество}

      end;
Var t:array[1..30] of st;
    c,m,i,ch,j:integer;
    h: file of st;
    exit:boolean;


procedure vvod;
begin
writeln('Введите количество студентов в группе: ');
readln(ch);


  for i:=1 to ch do begin
    writeln('Сведения о ' ,i,' студенте');
    write('Номер в группе по списку: '); readln(t[i].n_sp);
    write('Фамилия: '); readln(t[i].fam);
    write('Имя: '); readln(t[i].im);
    write('Отчество: '); readln(t[i].ot);
  writeln;
  end;
  Assign (h,fname);
  {$I-}
  reset(h);
  If Ioresult<>0 then rewrite(h);
  {$I+}
  for i:=1 to ch do write(h,t[i]);

  close(h);
  writeln('Данные занесены в файл ',fname);
  readln;
  end;

procedure vyvod;
begin
with st(t[i]) do begin
writeln(n_sp);
writeln(fam);
writeln(im);
writeln(ot);
end;
end;


begin
exit:=false;
while not exit do begin
writeln;
writeln('nazhmite 1 dya vvoda ili 2 dlya vyvoda 3 - vyhod');
readln(c);
case c of
1:vvod;
2:vyvod;
3:exit:=true;
end;
if exit then break;
end;

end.

Мне дали совет

ну, если по-простому - создать свой тип, в котором два поля - имя студента и массив посещаемости. Этот массив сопоставляется с массивом предметов и выясняется, на каких он был, а на каких нет

Но как это сделать я не знаю(

Помогите дописать програму, очень нужно. Буду безмерно благодарен!)

[Stilet]

Я чет недопонял. а что такое "абстрактного типа «Запись»"? Чего "Абстрактный"?

тот массив сопоставляется с массивом предметов

Допустим, каков тип массива с предметами?

[RazdoR]

Я сделал кое-что
пока ввожу список студентов, сохраняю в файл и вывожу его
Как сделать что бы файл не перизаписывался, но открывался на запись? [SPOILER]

Uses crt;
Const fname='students.dat';
      n=7;              {количество предметов}
      ned=41;

Type predm=(tp,ta, progr,phis, fka, matan, et);
     prop=array[1..ned,tp..et] of byte;
     st=record
      n_sp:integer;     {номер в группе по списку}
      fam:string;       {фамилия}
      im:string;        {имя}
      ot:string;        {отчество}
      pr:prop;
    end;
Var t:array[1..30] of st;
    c,m,i,ch,j:integer;
    h: file of st;
    exit:boolean;


procedure vvod;
begin
writeln('Введите количество студентов в группе: ');
readln(ch);


  for i:=1 to ch do begin
    writeln('Сведения о ' ,i,' студенте');
    write('Номер в группе по списку: '); readln(t[i].n_sp);
    write('Фамилия: '); readln(t[i].fam);
    write('Имя: '); readln(t[i].im);
    write('Отчество: '); readln(t[i].ot);
  writeln;
  end;
  Assign (h,fname);
  {$I-}
  reset(h);
  If Ioresult<>0 then rewrite(h);
  {$I+}
  for i:=1 to ch do write(h,t[i]);

  close(h);
  writeln('Данные занесены в файл ',fname);
  readln;
  end;

procedure vyvod;
var tmp: st;

begin
reset(h);
while not eof(h) do
begin
   read(h,tmp);
   with tmp do begin
        writeln(n_sp);
        writeln(fam);
        writeln(im);
        writeln(ot);
   end;
 end;
 close(h);
end;


begin
exit:=false;
while not exit do begin
writeln;
writeln('nazhmite 1 dya vvoda ili 2 dlya vyvoda 3 - vyhod');
readln(c);
case c of
1:vvod;
2:vyvod;
3:exit:=true;
end;
if exit then break;
end;

end.

[/SPOILER]
Как мне сделать, отметку пропусков и вывод в виде

[SPOILER]

  
                           Матан       Физика     История
Иванов                     н
Петров                                      н
Сидоров                   н                              н

[/SPOILER]
Если массивами - то как?