работа с файлами.

[tinton]

Записать в типизованный файл информацию о сотрудниках фирмы. Использовать тип «запись» со следующими полями: Фамилия, Имя, Отчество, Возраст, Стаж, Оклад. Результат – количество записей в файле и данные директора фирмы.


типизованный файл типа запись как описывается?

так?
Type f = file of record

подскажите пожалуйста что будет результатом?

заранее благодарю.

[Zer0]

сначала нужно объявить саму запись:

type Sotr = record
   Fam,Name,Otch:string[20];
   Age,Stag:byte;
   Oklad:real;
end;
      f = file of Sotr;

и уже дальше работать
Только будьте аккуратны, для работы с таким файлом в записи размер всех переменных должен быть ограничен (например со string работать не будет, надо искусственно ограничить длину - string[20])

[Serge_Bliznykov]

tinton, нет, не так.

поищите по форуму по словам ТИПИЗИРОВАННЫЙ или по слову RECORD

выглядеть это будет так:

type
   RSotrudnik = record
     Fam, Im, Otch : string[20];
     Vozrast : integer;
     Stag : integer;
     Stavka : extended;
   end;

var
  F1 :  file of RSotrudnik;
....

ДОБАВЛЕНО
Zer0, сорри... Ваш пост не видел, когда писал ответ...

[Zer0]

Serge_Bliznykov, ничего страшного, мне даже кажется забавным, что мы ввели одинаковые ограничения на ФИО))

[tinton]

подскажите плз как сделать блок схему покороче для вот этого куска программы

if (m[i]='b') or (m[i]='c') or (m[i]='d') or (m[i]='f')
or (m[i]='g') or (m[i]='h') or (m[i]='j') or (m[i]='k')
or (m[i]='l') or (m[i]='m') or (m[i]='n') or (m[i]='p')
or (m[i]='q') or (m[i]='r') or (m[i]='s') or (m[i]='t')
or (m[i]='v') or (m[i]='w') or (m[i]='x') or (m[i]='z')
then r:=r+1;


смысл программы проверка количества согласных букв в файле. и выводит это число.

блок схема большая получается с этим циклом. можно его как то компактно и правильно записать?

заранее спасибо

[tinton]

за файлы спасибо большое)))

[p51x]

засунуть буквы в множество и проверять (рисовать) одно условие

[Zer0]

добавлю к посту p51x

var so:set of char;
...
so:=so+['b','c','d','f' ..итд.. ,'x','z'];
....
if m[i] in so then r:=r+1

[tinton]

Записать в типизованный файл информацию о сотрудниках фирмы. Использовать тип «запись» со следующими полями: Фамилия, Имя, Отчество, Возраст, Стаж, Оклад. Результат – количество записей в файле и данные директора фирмы.



еще вопрос скажите пожалуйста что будет результатом? на экран должна вывестись таблици или она должна нарисоваться в файле который нужно будет открыть через блокнот что бы увидеть?