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

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

05.05.2010, 21:57. Показов 2100. Ответов 1
Метки нет (Все метки)

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

Во второй массив записать данные только о тех рабочих, кто на сегодняшний день проработал не менее 5 лет
Дан массив данных о работающих в фирме: фамилия, имя, отчество, адрес (улица,дом,квартира) и дата...

Во второй массив записать данные только тех из них, кто на сегодняшний день проработал не менее 5 лет
1.Дан массив о работающих в фирме: фамилия, имя, отчество, адреч ( улица, дом, квартира) и дата...

Во второй файл записать данные только тех из них, кто на сегодняшний день проработал не менее 5 лет
Помогите,пожалуйста,последняя задача по файлам! Дан текстовый файл, в котором хранятся данные о...

Записать во второй массив данные тех работников, кто на сегодняшний день проработал уже не менее 5 лет
помогите с программой procedure TForm22.Button1Click(Sender: TObject); begin close; end;...

1
64 / 64 / 44
Регистрация: 15.11.2009
Сообщений: 247
05.05.2010, 22:20 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const n = 20;
 
type
 TPerson = record
   FIO: string;
   Date: integer
 end;
 
 TMas = array[1..n] of TPerson;
 
 var Mas, MasRes: TMas;
     i, cnt: integer;
 
 
 begin
 
 // предполагаем, что MAS уже ввели
  cnt := 0;
  for i := 1 to n do
    begin
      with Mas[i] do
       if (2010 - Date) >= 5 then
                              begin
                               MasRes[i] := Mas[i];
                               inc(cnt)
                              end;
    end;
 
   for i := 1 to cnt do
     begin
       writeln('#', i);
       writeln('ФИО: ', MasRes[i].FIO);
       writeln('Работает с ', MasRes[i].Date, ' года. ');
       writeln;
     end;
   readln
end.
Добавлено через 50 секунд
Если нужно, напишу ввод первого массива.

Добавлено через 5 минут
Вся программа:

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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n = 20;
 
type
 TPerson = record
   FIO: string;
   Date: integer
 end;
 
 TMas = array[1..n] of TPerson;
 
 var Mas, MasRes: TMas;
     i, cnt: integer;
 
 
 begin
 
  for i := 1 to n do
    begin
      writeln(i,' - й человек из ', n,': ');
      write('ФИО: '); readln(Mas[i].FIO);
      write('С какого года работает? '); readln(Mas[i].Date);
      writeln;
    end;
 
  cnt := 0;
  for i := 1 to n do
    begin
      with Mas[i] do
       if (2010 - Date) >= 5 then
                              begin
                               MasRes[i] := Mas[i];
                               inc(cnt)
                              end;
    end;
 
   for i := 1 to cnt do
     begin
       writeln('#', i);
       writeln('ФИО: ', MasRes[i].FIO);
       writeln('Работает с ', MasRes[i].Date, ' года. ');
       writeln;
     end;
   readln
end.
1
05.05.2010, 22:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2010, 22:20
Помогаю со студенческими работами здесь

Записать массив данные только тех работников предприятия, кто на сегодняшний день уже проработал не менее 5 лет
Дан массив данных о работающих на предприятии: фамилия, имя, отчество, адрес (улица, дом, квартира)...

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

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

Посчитать количество проработавших на сегодняшний день не менее 3 лет
Дан массив данных о работающих в фирме: фамилия, имя, отчество, адрес (улица, дом, квартира) и дата...


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

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

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