Создать файл, содержащий сведения о сотрудниках института.

[Olgaandsasha]

1. Создать файл, содержащий сведения о сотрудниках института. Структура за-писи: фамилия работающего, название кафедры, год рождения, стаж работы, должность, оклад. Количество записей произвольное.
2. Написать программу, позволяющую получить следующую информацию:
- список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы;
- средний стаж работы на кафедре X.
помогите пожалуйста. на мысль хоть наталкните, с чего начинать хоть?

[Serge_Bliznykov]

начать нужно с того, что определиться, какой язык программирования Вам нужен.
потом, гуглите на тему структуры, записи и типизированные файлы (ибо это классическая задача на типизированный файл!). И, кстати, поиском по форуму найдёте тьму примеров!

ну а дальше - описывать структуру записи (она в символьном виде уже дана в задании). Дальше проектировать интерфейс программы, рисовать блок-схему (ну, или не рисовать, но хотя бы в уме представлять себе), потом писать код...

вот, для начала, допустим, что у Вас ЯП - Паскаль.
тогда

type SotrudRecord = record
    fio: string[30];
    kafedra: string[15];
    god_rogd: 1900..2000;
    stag : byte;
    dolgnost : string[15];
    oklad : double;
  end;
....
var 
  sotr : SotrudRecord;
  f: file of SotrudRecord;
...
begin
   Assign(f, 'Sotrud.dat');
   Rewrite(f);
   // ввод данных и запись в файл
    ....

[Olgaandsasha]

Program lr7;
type
sotrud=record
god_roz, staz, oklad: integer;
kaf, dolz, famil: string;
end;
var
f: file of sotrud;
x: sotrud;
n, a,kol: integer;
begin
assign(f, 'g:\base.zap');
writeln('nov_sotrud=1, dopisat=2');
readln(a);
if a=1 then rewrite(f)
else
begin
reset(f);
seek(f,filesize(f));
end;
writeln('vvedite kol sotrud');
readln(kol);
for n:=1 to kol do
begin
with x do begin
writeln('vvedite famil:');
readln(famil);
writeln('vvedite kaf:');
readln(kaf);
writeln('vvedite god_roz:');
readln(god_roz);
writeln('vvedite dolz:');
readln(dolz);
writeln('vvedite oklad:');
readln(oklad);
end;
write(f,x);
end;
close(f);
writeln('vvedite famil:');
readln;
reset(f);
while not Eof(F)  do
begin
read(f,x);
end;
close(f);
readln;
end.

а как написать прогу, чтоб инфу о сотрудниках получить?

[Olgaandsasha]

пожалуйста помогите

[BDA]

Uses CRT, WinDos;

type
  sotrud = record
    god_roz, staz, oklad: integer;
    kaf, dolz, famil: string[250];
  end;

const
  pensvoz=56;

var
  f: file of sotrud;
  x: sotrud;
  n, a, kol,count,s: integer;
  AYear,AMonth,ADay,Dow:word;
  nameofkaf:string;

begin
  assign(f, 'base.zap');
  writeln('nov_sotrud=1, dopisat=2');
  readln(a);
  if a = 1 then rewrite(f)
  else
  begin
    reset(f);
    seek(f, filesize(f));
  end;
  writeln('vvedite kol sotrud');
  readln(kol);
  for n := 1 to kol do
  begin
    writeln(n, ' SOTRUD');
    with x do 
    begin
      writeln('vvedite famil:');
      readln(famil);
      writeln('vvedite kaf:');
      readln(kaf);
      writeln('vvedite god_roz:');
      readln(god_roz);
      writeln('vvedite staz:');
      readln(staz);
      writeln('vvedite dolz:');
      readln(dolz);
      writeln('vvedite oklad:');
      readln(oklad);
    end;
    write(f, x);
  end;
  close(f);
  GetDate(AYear,AMonth,ADay, Dow);
  Writeln('Sotrudniki pensionnogo vozrasta (staz):');
  reset(f);
  while not Eof(F)  do
  begin
    read(f, x);
    if AYear-x.god_roz>=pensvoz then
      writeln(x.famil,' (',x.staz,' let)');
  end;
  close(f);
  writeln('Vvedite nazvanie kafedri:');
  readln(nameofkaf);
  s:=0;
  count:=0;
  reset(f);
  while not Eof(F)  do
  begin
    read(f, x);
    if x.kaf=nameofkaf then
    begin
      s:=s+x.staz;
      inc(count);
    end;
  end;
  close(f);
  if count=0 then
    writeln('Net takoi kafedri')
  else
    writeln('Srednii staz na kagerde ',nameofkaf,': ',s/count:0:3,' let');
  readln;
end.