3 / 3 / 3
Регистрация: 11.11.2012
Сообщений: 61
1

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

19.12.2012, 19:13. Показов 2538. Ответов 2
Метки нет (Все метки)

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

Добавлено через 4 часа 12 минут
помогите пожалуйста)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.12.2012, 19:13
Ответы с готовыми решениями:

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

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

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

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

2
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
19.12.2012, 19:36 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
type fir=record
     fam,ima,ot,adres:string[100];
     mes,god:integer;
     end;
var a,b:array [1..100] of fir;
    i,j,seg,kol,m:integer;
begin
 
writeln('kol-vo sotydnikov = ');readln(kol);
for i:=1 to kol do
    begin
    writeln('fam = ');readln(a[i].fam);
    writeln('ima = ');readln(a[i].ima);
    writeln('otvhes = ');readln(a[i].ot);
    writeln('adres = ');readln(a[i].adres);
    writeln('mes priema na rabot = ');readln(a[i].mes);
    writeln('god priema na rabot = ');readln(a[i].god);
    end;
writeln('seg god raven = ');readln(seg);
writeln('seg mesic raven = ');readln(m);
j:=0;
for i:=1 to kol do
    if ((seg-a[i].god)*12-a[i].mes+m)>(5*12) then
       begin
       inc(j);
       b[j]:=a[i];
       end;
for i:=1 to j do
    write(b[i].fam,' ',b[i].ima,' ',b[i].ot,' ',b[i].adres,' ',
    b[i].mes,' ',b[i].god);
writeln;
readln;
end.
1
3 / 3 / 3
Регистрация: 11.11.2012
Сообщений: 61
19.12.2012, 20:22  [ТС] 3
большое спасибо)
0
19.12.2012, 20:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.12.2012, 20:22
Помогаю со студенческими работами здесь

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

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

Во второй массив записать только данные тех из клиентов, кто взял телевизор
2. Дан массив данных о клиентах пункта проката: фамилия, имя, отчество, адрес (улица, дом,...

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


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

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

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