|
Создать файл, содержащий информацию о сотрудниках предприяти
|
|
| reggie | Дата: Понедельник, 28.05.2012, 15:45 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| Помогите, будьте любезны, с блок схемой.
Всерьез рассматриваю возможность покупки полной версии и дальнейшего сотрудничества с заинтересованными пользователями ресурса http://www.audi-bel.com/forum.php.
uses crt;
const nmax=100;
line= '-----------------------------------------------------------------------';
shap='| Фамилия | Отдел | Стаж |';
type Sotrudniki = record
Surname,SecondName,Name:string[20];
Otdel, Stazh: byte;
end;
var p: Sotrudniki;
a: array [1..nmax] of Sotrudniki;
n,i,k,re:integer;
f:file of Sotrudniki;
ss: real;
x: string;
begin
clrscr;
assign(f,'C:\Sotrudniki.dat');
rewrite(f);
write(' Введите количество сотрудников предприятия : ');
readln(n);
for i:=1 to n do
with p do
begin
writeln;
writeln(' Сотрудник № ',i);
write(' Фамилия : '); readln(SecondName);
write(' Имя : '); readln(Name);
write(' Отчество : '); readln(Surname);
writeln;
write(' Номер отдела : '); readln(Otdel);
write(' Стаж работы : '); readln(Stazh);
write(f,p);
end;
writeln('файл записан.Для продолжения работы нажмите "Enter" ');
readln;
reset(f);
n:=0;
while not (eof(f)) do
begin
read(f,p);
inc(n);
a[n]:=p;
end;
re:=0;
while re<=n*2 do
begin
for i:=1 to n-1 do
if (a[i].Otdel=a[i+1].Otdel) and (a[i].Stazh<a[i+1].Stazh) then
begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
end else
if a[i].Otdel>a[i+1].Otdel then
begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
end;
inc(re);
end;
close(f);
rewrite(f);
for i:=1 to n do
with a[i] do
write(f,a[i]);
clrscr;
writeln(' Список сотрудников по отделам ');
writeln(line);
writeln(shap);
writeln(line);
reset(f);
while not (eof(f)) do
begin
read(f,p);
with p do
writeln('|',Secondname:20,'',Name:20,'',Surname:20,'|':2,Otdel:4,'|':4,Stazh:4,'|':3);
writeln(line);
end;
close(f);
readln;
end.
Спасибо
Добавлено (28.05.2012, 15:45)
---------------------------------------------
извинит, курсовая работа.
Приведенный адрес не реклама, а скорее фронт потенциальных заказчиков.
Спасибо огромное.
|
| |
|
|
| reggie | Дата: Понедельник, 28.05.2012, 22:38 | Сообщение # 2 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| прикрепил файлик с программой
|
| |
|
|
| diamFC | Дата: Понедельник, 28.05.2012, 22:50 | Сообщение # 3 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Укажите условие задачи.
Буду благодарен, если вы приведете здесь ссылку на ветку с адресом моего сайта и пояснением, что делает программа 
Иначе ссылка будет расценена как реклама и удалена.
В приложении только часть вашей блок схемы. Жду условия задачи.
|
| |
|
|
| reggie | Дата: Понедельник, 28.05.2012, 23:05 | Сообщение # 4 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| diamFC, условие задачи:
Создать файл, содержащий информацию о сотрудниках предприятия. Каждая запись содержит: фамилию, имя, отчество, номер отдела, стаж работы. Вывести на экран и в отдельный файл список сотрудников по отделам в порядке убывания стажа.
По поводу рекламирования приведенного мной ресурса - не согласен категорически, мы - не маленькие дети. Все когда-то были студентами (или сейчас студенты), потребность в таких вещах не ограничивается узкоспециализированными ресурсами для программистов. Уверяю Вас в позитивности моих намерений. Линк на свой профиль на том ресурсе вышлю вам в личку, дабы не вызвать подозрений.
Спасибо за помощь.
|
| |
|
|
| diamFC | Дата: Понедельник, 28.05.2012, 23:20 | Сообщение # 5 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| В архиве полная блок-схема программы.
|
| |
|
|
| reggie | Дата: Понедельник, 28.05.2012, 23:25 | Сообщение # 6 |
|
Рядовой
Группа: Пользователи
Сообщений: 4
Статус: Offline
| не предполагал, что указание конкретного адреса форума, может навредить.Оговаривался, что это скорее определенная категория людей, также заинтересованная в использовании данного продукта.Сам рад был бы исправить, дабы убрать предмет недоразумения с глаз, но на данном ресурсе не нашел коррекции своих сообщений
|
| |
|
|
| diamFC | Дата: Понедельник, 28.05.2012, 23:37 | Сообщение # 7 |
|
Полковник
Группа: Администраторы
Сообщений: 207
Статус: Offline
| Ничего страшного. Пусть висит.
|
| |
|
|
Программа для построения БЛОК-СХЕМ!!!
