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

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

Студворк — интернет-сервис помощи студентам

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

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

На экран и в отдельный файл вывести: список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы; средний стаж рабо¬тающих на указанной кафедре 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.

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

@КонецСвета · 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.

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

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

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

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

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

@КонецСвета · 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.

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

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

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

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

Не по теме:

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

Новые блоги и статьи Все статьи Все блоги /
Оптимизация производительности 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, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .

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

Опции темы