сформировать файл - Помощь студентам

ччч1 · 13.03.2013, 06:16

Сформировать файл Rasp, вводя с клавиатуры следующие сведения – предмет, преподаватель, день недели, время занятия, группа, аудитория.
Написать следующие подпрограммы:
1. Вывести все занятия заданной группы в указанный день:
время предмет аудитория преподаватель.

Код:

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[10];
      ins: string[20];
      zan: string[10];
end;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     i:integer;
     n:char;
     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;
 End;
      Writeln ('Файл создан');
         Close(f);reset(f);
      writeln (' Pokazat spisok ');
       while not Eof(f) do
       begin
             read (f,s1);

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

Sciv · 13.03.2013, 06:57

Код:

Reset(f);
ReadLn(gruppa);
While not Eof(F) do begin
  Read(f,s1);
  if s1.group=gruppa then begin
    {Здесь пишем вывод полей записи}
  end;
end;
Close(F);

По аналогии делается вывод по дню - меняется только сравнение

ччч1 · 13.03.2013, 15:25

а почему gruppa неизвестный идентификатор?

ччч1 · 13.03.2013, 15:34

Код:

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud,gruppa: integer;
      conk: string[10];
      ins: string[20];
      zan: string[10];
end;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     i:integer;
     n:char;
     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);
             Reset(f);
ReadLn(group);
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(ins);
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);reset(f);

вот так?только пишет,что идентификаторы неизвестные

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

Serge_Bliznykov · 13.03.2013, 16:33

ну и правильно пишет..
Паскаль, так же, как и мы, не понимает, что вы хотите сказать этими строчками:

Цитата:

Код:

    read(f, s1);
    Reset(f);
    ReadLn(group);
    while not Eof(F) do begin
      Read(f, s1);
      if s1.group = gruppa then begin

Если это переменные, то их нужно описать в секции var программы.

ччч1 · 13.03.2013, 16:41

я описала,а теперь пишет,что операнда имеет не приводимый тип

Serge_Bliznykov · 13.03.2013, 16:58

Цитата:

я описала,а теперь пишет,что операнда имеет не приводимый тип

показывайте, как и где описали..

ччч1 · 13.03.2013, 17:01

Код:

Program file11;
uses crt;
Type rasp = record
      fio: string [5];
      group,aud: integer;
      conk: string[10];
      ins: string[20];
      zan: string[10];
end;
var
     f: file of rasp;
     name: string;
     uch: array[1..4] of rasp;
     i:integer;
     n,gruppa,group,day:char;
     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);
             Reset(f);
ReadLn(group);
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(ins);
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);reset(f);

Sciv · 13.03.2013, 18:32

Вам нужно было объявить только gruppa, так как group - это поле записи. Типы этой переменной и поля должны совпадать. Аналогично и для дней.

Я просто выше не стал приводить весь код, надеясь, что Вы и так поймете, что переменную надо объявлять. А Сергей, думаю, просто напутал слегка

ччч1 · 13.03.2013, 19:16

var
f: file of rasp;
name: string;
uch: array[1..4] of rasp;
i:integer;
n,gruppa,day:char;
s1:rasp;
не так?

13.03.2013, 06:57	#2
Sciv Старожил Регистрация: 16.05.2012 Сообщений: 3,211	Код: `Reset(f); ReadLn(gruppa); While not Eof(F) do begin Read(f,s1); if s1.group=gruppa then begin {Здесь пишем вывод полей записи} end; end; Close(F);` По аналогии делается вывод по дню - меняется только сравнение Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...

13.03.2013, 18:32	#9
Sciv Старожил Регистрация: 16.05.2012 Сообщений: 3,211	Вам нужно было объявить только gruppa, так как group - это поле записи. Типы этой переменной и поля должны совпадать. Аналогично и для дней. Я просто выше не стал приводить весь код, надеясь, что Вы и так поймете, что переменную надо объявлять. А Сергей, думаю, просто напутал слегка Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сформировать файл записей	Дэнчик	Паскаль, Turbo Pascal, PascalABC.NET	0	17.05.2012 23:42
сформировать текстовый файл	Артл	Паскаль, Turbo Pascal, PascalABC.NET	4	02.05.2011 21:34
сформировать текстовый файл	Артл	Помощь студентам	1	10.04.2011 22:02
Сформировать файл	Захар28	Помощь студентам	3	05.09.2010 21:27
Сформировать и записать в файл	Tykon	Фриланс	9	27.03.2010 19:33

13.03.2013, 15:25	#3
ччч1 Пользователь Регистрация: 13.03.2013 Сообщений: 35	а почему gruppa неизвестный идентификатор?

13.03.2013, 16:41	#6
ччч1 Пользователь Регистрация: 13.03.2013 Сообщений: 35	я описала,а теперь пишет,что операнда имеет не приводимый тип

13.03.2013, 19:16	#10
ччч1 Пользователь Регистрация: 13.03.2013 Сообщений: 35	var f: file of rasp; name: string; uch: array[1..4] of rasp; i:integer; n,gruppa,day:char; s1:rasp; не так?