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

Получить список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы

05.05.2015, 21:23. Показов 1620. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу, которая позволяет получить следующую информацию: список сотрудников пенсионного возраста на сегодняшний день с указанием стажа работы; средний стаж работающих в отделе Х
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.05.2015, 21:23
Ответы с готовыми решениями:

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

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

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

Определить сотрудников, которым в следующем году достигнут пенсионного возраста (выводится только 1 сотрудник)
Определить сотрудников, которым в следующем году достигнут пенсионного возраста.. #include...

1
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
06.05.2015, 10:15 2
Лучший ответ Сообщение было отмечено ARCHIE95 как решение

Решение

Как пример:

(С) BDA

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
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.
В программе не учитывается пол сотрудника. Вычисление пенс. возраста идет только по году. Подправьте самостоятельно.
0
06.05.2015, 10:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2015, 10:15
Помогаю со студенческими работами здесь

Вывести список работников пенсионного возраста (Ошибка)
Когда создан список, нужно вывести список работников пенсионного возраста, но при нажатии клавиши 4...

Напечатать фамилию, имя, отчество и адрес каждого из сотрудников, проработавших и фирме на сегодняшний день
Известна информация о 20 сотрудниках фирмы: фамилия, имя, отчество, адрес и дата поступления на...

Использование структур. Напечатать сотрудников которые на сегодняшний день проработали в фирме не менее трех лет
Известна информация о 20 сотрудниках фирмы: фамилия, имя, отчество, адрес, и дата поступления на...

Структура: Напечатать ФИО и адрес сотрудников, которые на сегодняшний день проработали в фирме не менее трех лет.
Задачка проста, но сложности у меня все же возникли. Известна информация о 20 сотрудниках фирмы:...


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

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

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