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

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

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

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

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

На экран и в отдельный файл вывести: список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы; средний стаж рабо¬тающих на указанной кафедре 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
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.03.2012, 11:43
Ответы с готовыми решениями:

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

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

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

5
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.03.2012, 13:06
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  [ТС]
КонецСвета, да подойдет , но тут у меня еще дополнения к этой задачке есть нужно сделать вот помимо этого еще вот это !

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

а вот как это сделать ? а еще в условие оговорено что нужно и можно использовать подпрограммы
0
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.03.2012, 03:29
все, что могу (сил больше нет...)...
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  [ТС]
КонецСвета, огромное спасибо только я еще седня уточнил и сказали что надо чтобы в программе использовалось вот это

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

Не по теме:

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.03.2012, 13:53
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Оптимизация производительности Express.js бэкенда
Reangularity 23.05.2025
Express. js заслуженно остаётся одним из самых популярных инструментов для создания бэкенда, но даже он не застрахован от проблем с производительностью. Многие разработчики сталкиваются с ситуацией,. . .
Продвинутая обработка данных с LINQ в C#
stackOverflow 23.05.2025
LINQ (Language Integrated Query) — это фундаментальное изменение парадигмы работы с данными в C#. Простые запросы Where и Select знакомы любому разработчику, но настоящая мощь LINQ раскрывается в. . .
Инфраструктура PKI и сертификатов безопасности
Mr. Docker 23.05.2025
PKI (Public Key Infrastructure) — это невидимый фундамент цифрового доверия, без которого современный интернет просто рассыпался бы как карточный домик. За этой аббревиатурой скрывается целый. . .
Аутентификация OAuth в Python
py-thonny 22.05.2025
OAuth (Open Authorization) — это целый стандарт для делегированного доступа. Звучит занудно? Давайте проще: OAuth позволяет приложениям получать доступ к информации пользователя на сторонних сервисах. . .
Хеширование и соль паролей в веб-приложениях C#
stackOverflow 22.05.2025
Когда-то в начале своей карьеры я тоже грешил простейшими подходами к хранению паролей – MD5-хеширование казалось верхом защиты. Но технологии не стоят на месте, вычислительные мощьности растут, и. . .
Генераторы Python для эффективной обработки данных
AI_Generated 21.05.2025
В Python существует инструмент настолько мощный и в то же время недооценённый, что я часто сравниваю его с тайным оружием в арсенале программиста. Речь идёт о генераторах — одной из самых элегантных. . .
Чем заменить Swagger в .NET WebAPI
stackOverflow 21.05.2025
Если вы создавали Web API на . NET в последние несколько лет, то наверняка сталкивались с зелёным интерфейсом Swagger UI. Этот инструмент стал практически стандартом для документирования и. . .
Использование Linq2Db в проектах C# .NET
UnmanagedCoder 21.05.2025
Среди множества претендентов на корону "идеального ORM" особое место занимает Linq2Db — микро-ORM, балансирующий между мощью полноценных инструментов и легковесностью ручного написания SQL. Что. . .
Реализация Domain-Driven Design с Java
Javaican 20.05.2025
DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .
Возможности и нововведения C# 14
stackOverflow 20.05.2025
Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru