2 / 2 / 0
Регистрация: 06.03.2012
Сообщений: 23
1

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

08.03.2012, 11:43. Показов 2679. Ответов 5
Метки нет (Все метки)

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

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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.
Кто шарит помогите,буду благодарен!)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.03.2012, 11:43
Ответы с готовыми решениями:

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

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

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

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

5
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.03.2012, 13:06 2
skaleckiy, так подойдет? массив я исключаю, при работе с файлами в нем нет нужды...
протестируй на всякий случай =)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
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.
0
2 / 2 / 0
Регистрация: 06.03.2012
Сообщений: 23
10.03.2012, 22:19  [ТС] 3
КонецСвета, да подойдет , но тут у меня еще дополнения к этой задачке есть нужно сделать вот помимо этого еще вот это !

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

а вот как это сделать ? а еще в условие оговорено что нужно и можно использовать подпрограммы
0
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.03.2012, 03:29 4
все, что могу (сил больше нет...)...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
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.
0
2 / 2 / 0
Регистрация: 06.03.2012
Сообщений: 23
11.03.2012, 13:48  [ТС] 5
КонецСвета, огромное спасибо только я еще седня уточнил и сказали что надо чтобы в программе использовалось вот это

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

Не по теме:

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2012, 13:53

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

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

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru