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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.05.2015, 22:04   #1
anton_guitar
 
Регистрация: 06.01.2015
Сообщений: 8
По умолчанию Чтение из текстового файла данных для типа запись, Pascal.

Задача такова: "Определить переменную "студент", содержащую следующие поля: имя, фамилия, отчество студента, название института, номер группы. Данные считать из текстового файла. Вывести данные о студентах, которые учатся в одном и том же институте, и в одной группе."
Никак не пойму, как правильно считать данные
Данные в исходном файле записывал построчно, например:
Иванов Иван Иванович МИФИ 1234
Петров Петр Петрович МГУ 6543

Прошу помочь именно с чтением из файла, со вторым пунктом как-нибудь разберусь.
Код:
program lab5;

type
  stud = record
    fio: record
      fam: string;
      im: string;
      otch: string;
    end;
    inst: string;
    grup: integer;
  end;

var
  f: text;
  students: array [1..20] of stud;
  student: stud;
  i, kol: integer;
  addr: string;

begin
  
  repeat
    writeln('Введите расположение файла');
    readln(addr);
    if not fileexists(addr) then
    begin
      writeln('Не могу открыть файл ', addr, '.');
      writeln('Повторите ввод.');
    end
  until (fileexists(addr) = true);
  
  assign(f, addr);
  reset(f);
  writeln('Введите кол-во студентов: ');
  readln(kol);
  for i := 1 to kol do
  begin
    with student do 
    begin
      with fio do
      begin
        readln(f, student.fio.fam, student.fio.im, student.fio.otch);
      end;
      readln(f, student.inst, student.grup);       
    end;
    students[i] := student;
  end;
  close(f);
  
  for i := 1 to kol do
    writeln(students[i], ' ');
  readln;
end.
PS Пошарил по многим форумам, но находил не то, что нужно(

Последний раз редактировалось Stilet; 06.05.2015 в 09:38.
anton_guitar вне форума Ответить с цитированием
Старый 12.05.2015, 20:59   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Если кратно и по сути, то Вы малясь неправильно поняли формат исходных данных
Вы должны прочитать строку и разбить ее на имя, фамилию, и остальное счастье
Делается это с помощью Pos, Copy и прочей радости
Poma][a вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запись данных из текстового файла в контейнер list romasimeiz Общие вопросы C/C++ 0 02.04.2014 15:19
Чтение и запись (изменение) текстового файла Yurchik Общие вопросы Delphi 1 10.11.2012 15:13
Чтение данных с текстового файла(VBA) manula Microsoft Office Excel 6 04.04.2012 12:27
Запись на файл/чтение данных с файла stas135642 Общие вопросы C/C++ 11 25.02.2011 13:33
Чтение данных из текстового файла flame33 Общие вопросы .NET 2 19.07.2010 11:43