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

@skaleckiy · Регистрация: 06.03.2012

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

ТО что я не могу сделать

На экран и в отдельный файл вывести: список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы; средний стаж рабо¬тающих на указанной кафедре X. Значение X вводится с клавиатуры.

Вот здесь есть только первая часть задачи:

Pascal

uses crt;
  type Prepodavateli = record
       SecondName,Kafedra:string[20];
       Date:word;
       Stazh:byte;
       dlz:string[20];
       Oklad:integer;
  end;
  var massiv:array[1..100]of Prepodavateli;
      n,i,re:integer;
      f:file of Prepodavateli;
  begin
       clrscr;
       assign(f,'Sotrudniki.dat');
       rewrite(f);
 {Ñîçäàåì ôàéë Sotrudniki.dat è çàïîëíÿåì åãî}
       write('Ââåäèòå êîëëè÷åñòâî ñîòðóäíèêîâ: ');
       readln(n);
     for i:=1 to n do
         begin
           writeln('Ñîòðóäíèê  ¹ ',i);
             write('Ôàìèëèÿ: ');
               readln(massiv[i].SecondName);
                 write('Êàôåäðà: ');
                   readln(massiv[i].Kafedra);
                     write('Ãîä ðîæäåíèÿ: ');
                   readln(massiv[i].Date);
                 write('Ñòàæ ðàáîòû: ');
               readln(massiv[i].Stazh);
             write(f,massiv[i]);
         end;
         writeln('Ôàéë çàïèñàí,ñïàñèáî! Äëÿ ïðîäîëæåíèÿ ðàáîòû íàæìèòå "Enter" ');
           readln;
             close(f);
  {Ïðî÷èòûâàåì ôàéë}
        clrscr;
          reset(f);
          i:=0;
        while not eof(f) do
          begin
               i:=i+1;
               read(f,massiv[i]);
               write('[Ôàìèëèÿ : ',massiv[i].SecondName,'] ',' [Êàôåäðà: ',massiv[i].Kafedra,'] ',' [Ãîä ðîæäåíèÿ: ',massiv[i].Date,']');
               write('[Ñòàæ: ',massiv[i].Stazh, ']');
               writeln;
          end;
       close(f);
       readln;
 end.

Кто шарит помогите,буду благодарен!)

@КонецСвета · 09.03.2012, 13:06

skaleckiy, так подойдет? массив я исключаю, при работе с файлами в нем нет нужды...
протестируй на всякий случай =)

Pascal

uses crt;
const year=2012;
  type Prepodavateli = record
       SecondName,Kafedra:string[20];
       Date:word;
       Stazh:byte;
       dlz:string[20];
       Oklad:integer;
  end;
  var p: Prepodavateli;
      n,i,k,re:integer;
      f,g:file of Prepodavateli;
      ss: real;
      x: string;
  begin
       clrscr;
       assign(f,'C:\Sotrudniki.dat');
       assign(g,'C:\Pensionery.dat');
       rewrite(f);
 {Ñîçäàåì ôàéë Sotrudniki.dat è çàïîëíÿåì åãî}
       write('Ââåäèòå êîëëè÷åñòâî ñîòðóäíèêîâ: ');
       readln(n);
     for i:=1 to n do
         with p do
         begin
           writeln('Ñîòðóäíèê  ¹ ',i);
             write('Ôàìèëèÿ: '); readln(SecondName);
                 write('Êàôåäðà: '); readln(Kafedra);
                     write('Ãîä ðîæäåíèÿ: '); readln(Date);
                 write('Ñòàæ ðàáîòû: '); readln(Stazh);
             write(f,p);
         end;
         writeln('Ôàéë çàïèñàí,ñïàñèáî! Äëÿ ïðîäîëæåíèÿ ðàáîòû íàæìèòå "Enter" ');
           readln;
             close(f);
  {Ïðî÷èòûâàåì ôàéë}
        clrscr;
        reset(f);
        while not eof(f) do
          begin
               i:=i+1;
               read(f,p);
               with p do
                    begin
                    write('[Ôàìèëèÿ : ',SecondName,'] ',' [Êàôåäðà: ',Kafedra,'] ',' [Ãîä ðîæäåíèÿ: ',Date,']');
                    writeln('[Ñòàæ: ',Stazh, ']');
                    end;
          end;
       writeln('Äëÿ ïðîäîëæåíèÿ ðàáîòû íàæìèòå "Enter" ');
        readln;
  {íàõîäèì ïåíñèîíåðîâ, ïîäñ÷èòûâàåì ñòàæ}
        clrscr;
        i:=0; k:=0; ss:=0;
        write('Óêàæèòå êàôåäðó äëÿ ïîäñ÷åòà ñòàæà: ');
        readln(x);
        reset(f);
        rewrite(g);
        while not eof(f) do
          begin
               read(f,p);
               with p do
                    begin
                    if year-date>60 then
                       begin
                       inc(i);
                       if i=1 then writeln('Äàííûå î ïåíñèîíåðàõ');
                       write(f,p);
                       write('[Ôàìèëèÿ : ',SecondName,'] ',' [Êàôåäðà: ',Kafedra,'] ',' [Ãîä ðîæäåíèÿ: ',Date,']');
                       writeln('[Ñòàæ: ',Stazh, ']');
                       end;
                     if Kafedra=x then
                        begin
                        ss:=ss+Stazh;
                        inc(k);
                        end;
                      end;
          end;
if k>0 then writeln('Ñðåäíèé ñòàæ íà êàôåäðå ',x,' ðàâåí ',ss/k:0:1)
   else writeln('Íåò ïðåïîäàâàòåëåé íà êàôåäðå ',x);
if i>0 then writeln('Äàííûå î ïåíñèîíåðàõ çàíåñåíû â ôàéë')
   else writeln('Ñðåäè ïðåïîäàâàòåëåé ïåíñèîíåðîâ íåò');
close(f);
close(g);
readln;
end.

@skaleckiy · 10.03.2012, 22:19 **[ТС]**

КонецСвета, да подойдет , но тут у меня еще дополнения к этой задачке есть нужно сделать вот помимо этого еще вот это !

Программа должна выполнять следующие дополнительные функции: создание новой базы данных; открытие базы из файла; сохранение базы в файл; добавление записей; удаление записей; поиск записей по одному из полей; сортировку простым выбором по одному из полей; вывод базы данных на экран; выход из программы

вот и это надо сделать на клавишах, ну допустим на 1 - создание бд, 2 - открытие бд , и т.д

а вот как это сделать ? а еще в условие оговорено что нужно и можно использовать подпрограммы

@КонецСвета · 11.03.2012, 03:29

все, что могу (сил больше нет...)...

Pascal

uses crt;
const year=2012;
  type Prepodavateli = record
       SecondName,Kafedra:string[20];
       Date:word;
       Stazh:byte;
       dlz:string[20];
       Oklad:integer;
  end;
  var f,g:file of Prepodavateli;
      n: integer;
 
procedure NewBD(var f: file of Prepodavateli; var nn: integer);
var i,n: integer;
    p: Prepodavateli;
begin
clrscr;
rewrite(f);
 {Создаем файл Sotrudniki.dat и заполняем его}
       write('Введите количество сотрудников: ');
       readln(nn);
     for i:=1 to nn do
         with p do
         begin
           writeln('Сотрудник  № ',i);
             write('Фамилия: '); readln(SecondName);
                 write('Кафедра: '); readln(Kafedra);
                     write('Год рождения: '); readln(Date);
                 write('Стаж работы: '); readln(Stazh);
             write(f,p);
         end;
         writeln('Файл записан,спасибо! Для продолжения работы нажмите "Enter" ');
           readln;
close(f);
end;
 
procedure DopBD (var f: file of Prepodavateli; var nn: integer);
var p: Prepodavateli;
begin
clrscr;
reset(f);
 {открываем для чтения, но будем дописывать}
seek(f,nn);
         with p do
         begin
             write('Фамилия: '); readln(SecondName);
                 write('Кафедра: '); readln(Kafedra);
                     write('Год рождения: '); readln(Date);
                 write('Стаж работы: '); readln(Stazh);
             write(f,p);
         end;
         writeln('Данные внесены, спасибо! Для продолжения работы нажмите "Enter" ');
           readln;
             close(f);
inc(n);
close(f);
end;
 
procedure PrintBD(f: file of Prepodavateli; n: integer);
var p: Prepodavateli;
begin
  {Прочитываем файл}
        clrscr;
        reset(f);
        while not eof(f) do
          begin
               read(f,p);
               with p do
                    begin
                    write('[Фамилия : ',SecondName,'] ',' [Кафедра: ',Kafedra,'] ',' [Год рождения: ',Date,']');
                    writeln('[Стаж: ',Stazh, ']');
                    end;
          end;
       writeln('Для продолжения работы нажмите "Enter" ');
        readln;
close(f);
end;
 
procedure FindPens (f: file of Prepodavateli; var g: file of Prepodavateli);
var p: Prepodavateli;
    i: integer;
begin
clrscr;
i:=0;
reset(f);
rewrite(g);
        while not eof(f) do
          begin
               read(f,p);
               with p do
                    if year-date>60 then
                       begin
                       inc(i);
                       if i=1 then writeln('Данные о пенсионерах');
                       write(g,p);
                       write('[Фамилия : ',SecondName,'] ',' [Кафедра: ',Kafedra,'] ',' [Год рождения: ',Date,']');
                       writeln('[Стаж: ',Stazh, ']');
                       end;
          end;
if i>0 then writeln('Данные о пенсионерах занесены в файл')
   else writeln('Среди преподавателей пенсионеров нет');
       writeln('Для продолжения работы нажмите "Enter" ');
        readln;
close(f);
close(g);
end;
 
procedure CountStag (f: file of Prepodavateli);
var p: Prepodavateli;
      k:integer;
      ss: real;
      x: string;
begin
        clrscr;
        k:=0; ss:=0;
        write('Укажите кафедру для подсчета стажа: ');
        readln(x);
        reset(f);
        while not eof(f) do
          begin
               read(f,p);
               with p do
                    begin
                   if Kafedra=x then
                        begin
                        ss:=ss+Stazh;
                        inc(k);
                        end;
                      end;
          end;
if k>0 then writeln('Средний стаж на кафедре ',x,' равен ',ss/k:0:1)
   else writeln('Нет преподавателей на кафедре ',x);
       writeln('Для продолжения работы нажмите "Enter" ');
        readln;
close(f);
end;
 
procedure Menu;
var r: byte;
begin
repeat
writeln('0 - закончить работу');
writeln('1 - создать базу данных');
writeln('2 - вывести базу на экран');
writeln('3 - добавить запись');
writeln('4 - вывести данные о пенсионерах');
writeln('5 - подсчитать стаж по кафедре');
readln(r);
case r of
1: NewBD(f,n);
2: DopBD (f,n);
3: PrintBD(f,n);
4: FindPens (f,g);
5: CountStag (f);
end;
until r=0;
end;
 
 
begin
clrscr;
assign(f,'C:\Sotrudniki.dat');
assign(g,'C:\Pensionery.dat');
Menu;
end.

@skaleckiy · 11.03.2012, 13:48 **[ТС]**

КонецСвета, огромное спасибо только я еще седня уточнил и сказали что надо чтобы в программе использовалось вот это

Для обработки записей реализовать динамическую структуру данных дек.

@КонецСвета · 11.03.2012, 13:53

Не по теме:

skaleckiy, я-пас... (дек-не мое)
думаю, тебе в раздел фриланс...

@skaleckiy 2 / 2 / 0 Регистрация: 06.03.2012 Сообщений: 23
	10.03.2012, 22:19 [ТС]	3
	КонецСвета, да подойдет , но тут у меня еще дополнения к этой задачке есть нужно сделать вот помимо этого еще вот это ! Программа должна выполнять следующие дополнительные функции: создание новой базы данных; открытие базы из файла; сохранение базы в файл; добавление записей; удаление записей; поиск записей по одному из полей; сортировку простым выбором по одному из полей; вывод базы данных на экран; выход из программы вот и это надо сделать на клавишах, ну допустим на 1 - создание бд, 2 - открытие бд , и т.д а вот как это сделать ? а еще в условие оговорено что нужно и можно использовать подпрограммы 0

@skaleckiy 2 / 2 / 0 Регистрация: 06.03.2012 Сообщений: 23
	11.03.2012, 13:48 [ТС]	5
	КонецСвета, огромное спасибо только я еще седня уточнил и сказали что надо чтобы в программе использовалось вот это Для обработки записей реализовать динамическую структуру данных дек. 0

@КонецСвета
	11.03.2012, 13:53 Создать файл, содержащий сведения о сотрудниках универа #6
	Не по теме: skaleckiy, я-пас... (дек-не мое) думаю, тебе в раздел фриланс... 0

Опции темы