48640 (Разработка программных продуктов), страница 2
Описание файла
Документ из архива "Разработка программных продуктов", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48640"
Текст 2 страницы из документа "48640"
|_________________________|________|________|________|_________|
| Popova P.P. | 3545.00 | 800.85 | 165.40 | 4210.60 |
|_________________________|________|________|________|_________|
| Sidova S.S. | 1658.00 | 900.75 | 168.10 | 2566.10 |
|_________________________|________|________|________|_________|
| Komov K.K. | 6574.00 | 1000.95 | 642.10 | 7000.60 |
|_________________________|________|________|________|_________|
Ivanov I.I. 1000.0 100.53 166.5 9004.5
Petrov P.P. 2000.0 200.62 167.5 1864.4
Repina G.G. 3000.0 300.43 164.5 3150.5
Sidirov F.F. 4000.0 400.44 148.1 4256.5
Kotov K.K. 1512.0 500.67 168.4 1864.5
Somova S.S. 2654.0 600.69 168.1 3264.4
Dedov D.D. 1655.0 700.56 684.1 1680.4
Popova P.P. 3545.0 800.85 165.4 4210.6
Sidova S.S. 1658.0 900.75 168.1 2566.1
Komov K.K. 6574.0 1000.95 642.1 7000.6
5.1.2. Результирующий Файл:
-
Ведомость зарплаты:
Vivod zarplati
____________________________________________________________
| fio | oklad | premi9 | nalog | Itogo |
|_________________________|________|________|________|_________|
| Ivanov I.I. | 1000.00 | 100.53 | 166.50 | 9004.50 |
|_________________________|________|________|________|_________|
| Petrov P.P. | 2000.00 | 200.62 | 167.50 | 1864.40 |
|_________________________|________|________|________|_________|
| Repina G.G. | 3000.00 | 300.43 | 164.50 | 3150.50 |
|_________________________|________|________|________|_________|
| Sidirov F.F. | 4000.00 | 400.44 | 148.10 | 4256.50 |
|_________________________|________|________|________|_________|
| Kotov K.K. | 1512.00 | 500.67 | 168.40 | 1864.50 |
|_________________________|________|________|________|_________|
| Somova S.S. | 2654.00 | 600.69 | 168.10 | 3264.40 |
|_________________________|________|________|________|_________|
| Dedov D.D. | 1655.00 | 700.56 | 684.10 | 1680.40 |
|_________________________|________|________|________|_________|
| Popova P.P. | 3545.00 | 800.85 | 165.40 | 4210.60 |
|_________________________|________|________|________|_________|
| Sidova S.S. | 1658.00 | 900.75 | 168.10 | 2566.10 |
|_________________________|________|________|________|_________|
| Komov K.K. | 6574.00 | 1000.95 | 642.10 | 7000.60 |
|_________________________|________|________|________|_________|
-
Нахождение среднего размера оклада:
Vivod zarplati
____________________________________________________________
| fio | oklad | premi9 | nalog | Itogo |
|_________________________|________|________|________|_________|
| Ivanov I.I. | 1000.00 | 100.53 | 166.50 | 9004.50 |
|_________________________|________|________|________|_________|
| Petrov P.P. | 2000.00 | 200.62 | 167.50 | 1864.40 |
|_________________________|________|________|________|_________|
| Repina G.G. | 3000.00 | 300.43 | 164.50 | 3150.50 |
|_________________________|________|________|________|_________|
| Sidirov F.F. | 4000.00 | 400.44 | 148.10 | 4256.50 |
|_________________________|________|________|________|_________|
| Kotov K.K. | 1512.00 | 500.67 | 168.40 | 1864.50 |
|_________________________|________|________|________|_________|
| Somova S.S. | 2654.00 | 600.69 | 168.10 | 3264.40 |
|_________________________|________|________|________|_________|
| Dedov D.D. | 1655.00 | 700.56 | 684.10 | 1680.40 |
|_________________________|________|________|________|_________|
| Popova P.P. | 3545.00 | 800.85 | 165.40 | 4210.60 |
|_________________________|________|________|________|_________|
| Sidova S.S. | 1658.00 | 900.75 | 168.10 | 2566.10 |
|_________________________|________|________|________|_________|
| Komov K.K. | 6574.00 | 1000.95 | 642.10 | 7000.60 |
|_________________________|________|________|________|_________|
Sredniy razmer oklada 5519.60
-
Сведенья о сотрудниках с окладом менее 3000 рублей
Svedenia o sotrudnikah s okladom menshe 3000 rub:
Vivod zarplati
____________________________________________________________
| fio | oklad | premi9 | nalog | Itogo |
|_________________________|________|________|________|_________|
| Ivanov I.I. | 1000.00 | 100.53 | 166.50 | 9004.50 |
|_________________________|________|________|________|_________|
| Petrov P.P. | 2000.00 | 200.62 | 167.50 | 1864.40 |
|_________________________|________|________|________|_________|
| Kotov K.K. | 1512.00 | 500.67 | 168.40 | 1864.50 |
|_________________________|________|________|________|_________|
| Somova S.S. | 2654.00 | 600.69 | 168.10 | 3264.40 |
|_________________________|________|________|________|_________|
| Dedov D.D. | 1655.00 | 700.56 | 684.10 | 1680.40 |
|_________________________|________|________|________|_________|
| Sidova S.S. | 1658.00 | 900.75 | 168.10 | 2566.10 |
|_________________________|________|________|________|_________|
-
Сведенья о сотрудниках с премией больше 1000 рублей
Svedenia o sotrudnikah s premiey bolshe 1000 rub:
Vivod zarplati
____________________________________________________________
| fio | oklad | premi9 | nalog | Itogo |
|_________________________|________|________|________|_________|
| Komov K.K. | 6574.00 | 1000.95 | 642.10 | 7000.60 |
|_________________________|________|________|________|_________|
-
Суммарная сумма премий всех сотрудников
Vivod zarplati
____________________________________________________________
| fio | oklad | premi9 | nalog | Itogo |
|_________________________|________|________|________|_________|
| Ivanov I.I. | 1000.00 | 100.53 | 166.50 | 9004.50 |
|_________________________|________|________|________|_________|
| Petrov P.P. | 2000.00 | 200.62 | 167.50 | 1864.40 |
|_________________________|________|________|________|_________|
| Repina G.G. | 3000.00 | 300.43 | 164.50 | 3150.50 |
|_________________________|________|________|________|_________|
| Sidirov F.F. | 4000.00 | 400.44 | 148.10 | 4256.50 |
|_________________________|________|________|________|_________|
| Kotov K.K. | 1512.00 | 500.67 | 168.40 | 1864.50 |
|_________________________|________|________|________|_________|
| Somova S.S. | 2654.00 | 600.69 | 168.10 | 3264.40 |
|_________________________|________|________|________|_________|
| Dedov D.D. | 1655.00 | 700.56 | 684.10 | 1680.40 |
|_________________________|________|________|________|_________|
| Popova P.P. | 3545.00 | 800.85 | 165.40 | 4210.60 |
|_________________________|________|________|________|_________|
| Sidova S.S. | 1658.00 | 900.75 | 168.10 | 2566.10 |
|_________________________|________|________|________|_________|
| Komov K.K. | 6574.00 | 1000.95 | 642.10 | 7000.60 |
|_________________________|________|________|________|_________|
Summa premiy 5506.49
-
Поиск записей файла по сочетанию двух заданных поисковых признаков с помощью “ppoi.dat”:
Нахождение в ведомости зарплаты людей с ФИО Sidova S.S. и окладом 1658.00.
Naiti v baze svedenia lud9h s fio = Sidova S.S. i okladom 1658.00
Vivod zarplati
____________________________________________________________
| fio | oklad | premi9 | nalog | Itogo |
|_________________________|________|________|________|_________|
| Sidova S.S. | 1658.00 | 900.75 | 168.10 | 2566.10 |
|_________________________|________|________|________|_________|
5.2. Блок-схемы индивидуальной части курсовой работы
Блок-схема процедуры а
Блок-схема процедуры c1
Б лок-схема процедуры b1
Б лок-схема процедуры d
5.3. Программный модуль «Ведомость зарплаты»
Program Zarplata;
CONST N=5; {количество записей в файле}
TYPE ST=ARRAY[1..4] OF STRING[80];
ST1=STRING[12];
STR=RECORD {состав записи}
fio:string[30];
oklad:real;
premi9:real;
nalog:real;
itogo:real;
END;
FL=File of STR; {имя для типизированного файла}
CONST C:ST=( {массив шапки таблицы}
' Vivod zarplati ',
'_________________________________________________________',
'| fio | oklada | premi9 | nalog | Itogo |',
'|________________________|_______|________|________|________|' );
Var
Z:STR; {запись со сведениями о зарплате}
{для сортировки}
z1,z2:STR;
k:integer;
ok:boolean;
i,j:BYTE ; { неоходимы для огранизации циклов}
str1:STR;
FI, {файл для исходных данных}
FR:text; {файл для результатов}
f:FL; {типизированный файл}
{Вывод шапки таблицы}
PROCEDURE SH;
Begin
Writeln(FR);
FOR I:=1 TO 5 DO Writeln(FR,C[i]);
END;
{Опережающее описание функции}
FUNCTION FILTR(STR:ST1):st1;
FORWARD;
{Вывод одной строки таблицы}
PROCEDURE P;
BEGIN
WITH Z DO
Writeln(FR,'| ',fio:15,' | ',oklad:10:2,' | ',premi9:10:2,' | ',nalog:10:2,' | ',itogo:10:2,' |');
Writeln(FR,c[4]);
END;
{Запись данных в файл}
procedure ZF (NF:ST1);
var FID:text;
begin
assign(FID,'d:\Ish.txt');{связывание FID с физическим файлом NF}
reset (FID); {открыть FID для чтения}
with Z do
while not seekeof (FID) do
begin {Ввод данных строки:}
readln (FID,fio,oklad,premi9,nalog,itogo);
fio:=filtr(fio); {фильтрация naim}
write (F,Z); {вызов процедуры вывода в F}
end;
close(FID);
end; {конец процедуры ZF}
procedure ZF1 (NF:ST1);
var FID:text;
begin
assign(FID,'d:\pdop.dat');{связывание FID с физическим файлом NF}
reset (FID); {открыть FID для чтения}
with Z do
while not seekeof (FID) do
begin {Ввод данных строки:}
readln (FID,fio,oklad,premi9,nalog,itogo);
fio:=filtr(fio); {фильтрация name}
write (F,Z); {вызов процедуры вывода в F}
end;
close(FID);
end; {конец процедуры ZF1}
{_Опережающее описание процедуры чтения записей файла_}
procedure CHT;
FORWARD;
{_Создание типизированного файла}
procedure SOZ;
begin
Writeln(fr,'Sozdanie file');
assign(f,'d:\psoz.dat');
rewrite(F); {открыть F для создания файла}
ZF ('d:\pSOZ.dat'); {вызов ZF для создания файла}
close(F); {закрыть F}
write(FR, #10#13,'Posle sozdania file: ');
CHT;
end;
{Подсчет среднего размера оклада}
Procedure a;
Var s,sr:real; {сумма, средний размер оклада}
Begin
Assign(FI,'d:\psoz.dat'); {связь Fi с физическим файлом}
Reset(Fi);Reset(f); {открыть файлы для чтения}
seek(f,0); {ставим указатель на первую позицию}
s:=0;
sr:=0;
Repeat
read(f,z); {чтение данных}
s:=s+z.oklad; {подсчет суммы}
until eof(f);
sr:=s/n; {подсчет среднего}
Writeln(FR);
Writeln(FR,'Sredniy razmer oklada',sr:8:2); {вывод результата}
end;
{Поиск сотрудников с премией > 1000 рублей}
Procedure c1;
Begin
Assign(FI,'d:\psoz.dat'); {связь Fi с физическим файлом}
Reset(Fi); {открыть Fi для чтения}
seek(f,0); {ставим указатель на первую позицию}
Writeln(FR);
Writeln(fr,#10#13,'Svedenia o sotrudnikah s premiey bolshe 1000 rub: ');
sh;
Repeat
read(f,z); {чтение записей}
if z.premi9>1000 then P;
until eof(f);
end;
{Поиск зарплаты < 3000 рублей}
Procedure b1;
Begin
Assign(FI,'d:\psoz.dat'); {связь Fi с физическим файлом}
Reset(Fi); {открыть Fi для чтения}
seek(f,0); {ставим указатель на первую позицию}
Writeln(FR);
Writeln(fr,#10#13,'Svedenia o sotrudnikah s okladom menshe 3000 rub: ');
sh;
Repeat
read(f,z); {чтение записей}
if z.oklad<3000 then P;
until eof(f);
3000>