Паскаль, работа с записями

[Veselyn]

Получил лабораторку:
Описать переменную "служащий", состоящую из имени, фамилии, отчества служащего, даты рождения, образования, домашнего адреса, профессии. Определить имена людей с высшим образованием. Выдать данные о служащем, который имеет ту или иную профессию.
Немогу понять, как сделать чтобы пользователь вводил данные сотрудников (количество неизвестно) и потом оформить их в одну таблицу.

[Jean-Esther]

Либо чтение из файла, либо указывать количество этих служащих изначально.

[Veselyn]

Я думал о чтении из файла, но только как сказать чтобы оно искало по специальности

[Курсант]

Могу ошибиться, но думаю так: создаете тип запись (Record), до тех пор пока оператор не скажет "хватит" запрашиваете у него данные и забиваете их в запись после чего записываете запись в файл. Потом схраняете файл. Открываете для чтения и по одной считываете из файла записи, смотрите что записано в поле "специальность", если Ваше - выдаете оператору инфу, если не ваше - то следующий. И так до конца файла... Вот только с файлами записей я никогда не работал, но думаю если очень надо можно побайтно записывать/считывать то с чем вы там работаете...

[Rus 47]

Да, создаёте комбинированный тип, например такой:
Type
Tsluzh = record;
imya,familiya,otchestvo,denrozhd,ob razov,adres,prof: string;
end.
var
sluzh:array [1..100] of sluzh

И так далее.
А вообще пощёлкай по темам здесь, тут есть такие темы уже.

[puporev]

Либо чтение из файла, либо указывать количество этих служащих изначально.

Не обязательно.
uses crt;
........
repeat
вводим записи, пока не надоест
until readkey=#27; //по нажатию Esc заканчиваем ввод(или любая другая клавиша)

[roach1967]

Можно открыть типизированный файл (тип Tsluzh). Паскаль прекрасно обрабатывает такие файлы: длина файла (кол-во записей), навигация по файлу (вперёд, назад, в начало, в конец).
Если необходимо иметь доступ сразу ко всем записям, тут уж придёться заносить данные из файлу в кучу (HEAP). Тогда при интенсивном использовании данных уменьшатся дисковые операции. Иначе при большом числе служащих будет постоянная задержка на выдачу результатов.

[puporev]

Можно открыть типизированный файл (тип Tsluzh).

Паскаль прекрасно обрабатывает такие файлы

Как говорил Матроскин, чтобы продать что-нибудь ненужное, нужно иметь это ненужное. Речь идет как раз о создании этих записей.

[roach1967]

Уже было предложено описание типа:

Сообщение от Rus 47

Type
Tsluzh = record;
imya,familiya,otchestvo,denrozhd,ob razov,adres,prof: string;
end.

Остаётся только объявить переменные данного типа, файловую переменную.
Открыть файл на считывание
В цикле по условию окончания файла считывать в переменную данные из файла и обрабатывать, как необходимо.
Для создания файла данных открываем файл для записи (правильнее для добавления), заполнив переменную этого-же типа вручную и записать в файл. Для окончания ввода можно ввести проверку условия ввода пустого имени.

Если необходимости в активном использовании таких данных нет, можно использовать простой текстовый файл с разделителями "точка с запятой" (*.CSV). Такой файл можно редактировать и в блокноте и в Excell.

[Veselyn]

Собственно вот что я набросал с помощу ваших советов

PHP код:

program base;
uses crt;
Var   
      name: string[40];
      adres: string[30];
      rojden: string[15];
      specialnost:string[15];
      sp: string;
      k, i, n: real;
Begin
Clrscr;
specialnost:=sp;
k:=0;
writeln ('Vvedite kolichestvo sotrydnikov :',n);
readln(n);
for i:=1 to n do
   Begin
    writeln ('Vvedite FIO :',name);
       readln(name);
            writeln ('Vvedite adres :',adres);
               readln(adres);
                   writeln ('Vvedite daty rojdenia :',rojden);
                      readln(rojden);
                            writeln ('Vvedite specialnost :',sp)
                              readln(sp);
 Clrscr;
   end;
   Writeln ('-------------------------------------------------------------------');
   writeln (' FIO ',,'|',,' adres ',,'|',,' god rojdeniya ',,'|',,' specialnost ');
   writeln ('-------------------------------------------------------------------');
           for i:=1 to n do
             Begin
              writeln (name,'|',adres,'|',rojden,'|',sp,'|');
           end;
   writeln ('-------------------------------------------------------------------');
       writeln ('Vvedie specialnost dla poiska :',sp);
         readln(sp);
  for i:=1 to n do
    if sp=sp then
  begin
   writeln (name,'|',adres,'|',rojden,'|',sp,'|');
    ins(k);
   end;
 Wreteln ('Kolichestvo naydenuh sotrydnikov :',k);
redln;
end. 


помогите исправить ошибки, первая на первом же цикле
нужно использовать
a: array [1..100] of real;
но незнаю как это сделать и ещё а[i].
Пожалуйста помогите я только учус.