подпрограмма

[zxzxz]

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[20];
      ins: string[20];
      zan: string[10];
end;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     gruppa,i:integer;
     n:char;
     day: string[20];
     s1:rasp;
begin
clrscr;
Writeln ('Задайте имя файла');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите фамилию и инициалы преподавателя ');
Readln (s1.fio);
While s1.fio <> ' ' do
      Begin
           Writeln ('Введите номер группы ');
           Readln (s1.group);
           writeln ('Введите предмет ');
           readln (s1.conk);
           writeln ('Введите день недели ');
           readln (s1.ins);
           writeln ('Введите время занятия ');
           readln (s1.zan);
           writeln ('Введите аудиторию ');
           readln (s1.aud);
           write (f,s1);
           Writeln ('Введите фамилию и инициалы следующего преподавателя ');
           Readln (name);
           s1.fio:=name;
             End;
      Writeln ('Файл создан');
         Close(f);reset(f);
      writeln (' Pokazat spisok ');
       while not Eof(f) do
       begin
         read (f,s1);
         with s1 do begin
           WriteLn('ФИО: ',fio);
           WriteLn('Группа: ',group);
           WriteLn('Предмет: ',conk);
           WriteLn('День недели: ',ins);
           WriteLn('Время занятий: ',zan);
           WriteLn('Аудитория: ',aud);
           WriteLn('----------------');
         end;
       end;
ReadLn(gruppa);
While not Eof(F) do begin
  Read(f,s1);
  if s1.group=gruppa then begin
    readln (s1.zan);
    readln (s1.conk);
    readln (s1.aud);
    readln (s1.fio);
  end;
end;
Close(F);reset(f);
  ReadLn(day);
While not Eof(F) do begin
  Read(f,s1);
  if s1.ins=day then begin
    readln (s1.zan);
    readln (s1.conk);
    readln (s1.aud);
    readln (s1.fio);
     end;
end;
Close(F);
end.

помогите сделать через подпрограмму



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

пока Вы не определитесь, ЧТО именно должно быть вынесено в процедуру (процедуры), разговор бессмысленен...

можно, например, полностью весь код вынести в процедуру!
Так устроит ?

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[20];
      ins: string[20];
      zan: string[10];
end;

procedure DoAll;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     gruppa,i:integer;
     n:char;
     day: string[20];
     s1:rasp;
begin
   clrscr;
   Writeln ('Задайте имя файла');
   Readln (name);
   Assign (f, name);
   Rewrite (f);
   Writeln ('Введите фамилию и инициалы преподавателя ');
   Readln (s1.fio);
   While s1.fio <> ' ' do
         Begin
              Writeln ('Введите номер группы ');
              Readln (s1.group);
              writeln ('Введите предмет ');
              readln (s1.conk);
              writeln ('Введите день недели ');
              readln (s1.ins);
              writeln ('Введите время занятия ');
              readln (s1.zan);
              writeln ('Введите аудиторию ');
              readln (s1.aud);
              write (f,s1);
              Writeln ('Введите фамилию и инициалы следующего преподавателя ');
              Readln (name);
              s1.fio:=name;
                End;
         Writeln ('Файл создан');
            Close(f);reset(f);
         writeln (' Pokazat spisok ');
          while not Eof(f) do
          begin
            read (f,s1);
            with s1 do begin
              WriteLn('ФИО: ',fio);
              WriteLn('Группа: ',group);
              WriteLn('Предмет: ',conk);
              WriteLn('День недели: ',ins);
              WriteLn('Время занятий: ',zan);
              WriteLn('Аудитория: ',aud);
              WriteLn('----------------');
            end;
          end;
   ReadLn(gruppa);
   While not Eof(F) do begin
     Read(f,s1);
     if s1.group=gruppa then begin
       readln (s1.zan);
       readln (s1.conk);
       readln (s1.aud);
       readln (s1.fio);
     end;
   end;
   Close(F);reset(f);
     ReadLn(day);
   While not Eof(F) do begin
     Read(f,s1);
     if s1.ins=day then begin
       readln (s1.zan);
       readln (s1.conk);
       readln (s1.aud);
       readln (s1.fio);
        end;
   end;
   Close(F);
end; {конец процедуры}

begin
  DoAll;
end.

[zxzxz]

а как сделать,чтобы он еще выводил все по заданным данным тоже через подпрограмму

[netpolice]

Ответ тот же, код тот же...

Что и куда Вы хотите

[hon]

Зачем вам нужна процедура? Что вы хотите вынести в процедуру?
Процедуру используют или для "блочности" кода (если его очень много), или для многоразово выполняющегося кода.