Постановка задачи.
Существует некоторая фирма, которая образована в 1991 году. Составить список сотрудников этой фирмы, содержащей 10 человек. Список должен содержать следующие сведения для каждого сотрудника: ФИО, дату рождения, год поступления в фирму, оклад, адрес (улица, номер дома и квартиры). Информацию о каждом сотруднике оформить в виде записи. Записи объединить в массив.
Составить программу, которая выполняет ввод и печать списка сотрудников, которым больше 25 лет.
Решение.
Текст программы № 8
Program lab8 {вариант № 2};
type man=record
fio:record fameli,name,och:string[15];end;
date:record day,mes,god:string;end;
godpos:integer;
many:integer;
adres:record ul:string[15];
dom,kv:integer;end;
end;
var sot:array [1..10] of man;
n:integer;
symb:string[4];
procedure vvod;
begin
for n:=1 to 10 do
begin
writeln('Вводим данные на сотрудникa номер:',n);
write('Фамилия ');
readln(sot[n].fio.fameli);
write('Имя' );
readln(sot[n].fio.name);
write('Отчество ');
readln(sot[n].fio.och);
writeln('Дата рождения ');
write('День ');
readln(sot[n].date.day);
write('Месяц ');
readln(sot[n].date.mes);
write('Год ');
readln(sot[n].date.god);
write('Год поступления в фирму ');
readln(sot[n].godpos);
write('Заработная плата ');
readln(sot[n].many);
writeln('Адрес проживания ');
write('Улица ');
readln(sot[n].adres.ul);
write('Номер дома ');
readln(sot[n].adres.dom);
write('Номер квартиры ');
readln(sot[n].adres.kv);
end;
end;
procedure list(n:integer);
begin
writeln('--------------------------------------------------------------------------------');
write(sot[n].fio.fameli,' ',sot[n].fio.name,' ',sot[n].fio.och);
writeln(' Дата рождения ',sot[n].date.day,'/',sot[n].date.mes,'/',sot[n].date.god);
writeln(' Год поступления в фирму ',sot[n].godpos);
writeln(' Заработная плата ',sot[n].many);
writeln(' Адрес проживания ',sot[n].adres.ul,' ',sot[n].adres.dom,', ',sot[n].adres.kv);
writeln;
end;
begin
vvod; {процедура ввода исходных данных}
writeln('Распечатать анкетные данные сотрудников, которым больше 25 лет.');
writeln;
for n:=1 to 10 do
begin
symb:=copy(sot[n].date.god,1,1);
if sot[n].date.god<='1986' then list(n);
end;
end.
Распечатка результатов выполнения программы.
Программы №8
Распечатать анкетные данные сотрудников, которым больше 25 лет.
--------------------------------------------------------------------------------
Анисимов Пётр Иванович Дата рождения 23/1/1960
Год поступления в фирму 1991
Заработная плата 15000
Адрес проживания Ленина 15, 45
--------------------------------------------------------------------------------
Синилов Сергей Анатольевич Дата рождения 14/5/1964
Год поступления в фирму 1991
Заработная плата 14500
Адрес проживания Мира 67, 19
--------------------------------------------------------------------------------
Бажин Никита Андреевич Дата рождения 3/9/1963
Год поступления в фирму 1991
Заработная плата 13500
Адрес проживания Вагонная 94, 36
--------------------------------------------------------------------------------
Тихонов Сергей Генадьевич Дата рождения 30/3/1967
Год поступления в фирму 1991
Заработная плата 11500
Адрес проживания Автозаводская 42, 88
--------------------------------------------------------------------------------
Михайлов Артём Егорович Дата рождения 2/11/1970
Год поступления в фирму 1992
Заработная плата 10000
Адрес проживания Невская 13, 46
--------------------------------------------------------------------------------
Токарева Надежда Александровна Дата рождения 4/7/1970
Год поступления в фирму 1992
Заработная плата 9000
Адрес проживания Кочегарова 75, 63
--------------------------------------------------------------------------------
Корягина Нина Плаховна Дата рождения 10/2/1970
Год поступления в фирму 1994
Заработная плата 7500
Адрес проживания Калинина 24, 12
--------------------------------------------------------------------------------
Егорова Пелагея Луповна Дата рождения 12/1/1971
Год поступления в фирму 1996
Заработная плата 7000
Адрес проживания Нефтяников 47, 38
--------------------------------------------------------------------------------
Теплоухов Юрий Леонидович Дата рождения 25/5/1978
Год поступления в фирму 2000
Заработная плата 6000
Адрес проживания Заречная 28, 47
--------------------------------------------------------------------------------
Кирьянов Антон Алексеевич Дата рождения 28/8/1968
Год поступления в фирму 1993
Заработная плата 12700
Адрес проживания Кислотная 26, 14
