48640 (Разработка программных продуктов), страница 2

2016-07-30СтудИзба

Описание файла

Документ из архива "Разработка программных продуктов", который расположен в категории "". Всё это находится в предмете "информатика" из 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. Результирующий Файл:

  1. Ведомость зарплаты:

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 |

|_________________________|________|________|________|_________|

  1. Нахождение среднего размера оклада:

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

  1. Сведенья о сотрудниках с окладом менее 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 |

|_________________________|________|________|________|_________|

  1. Сведенья о сотрудниках с премией больше 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 |

|_________________________|________|________|________|_________|

  1. Суммарная сумма премий всех сотрудников

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

  1. Поиск записей файла по сочетанию двух заданных поисковых признаков с помощью “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);

Свежие статьи
Популярно сейчас
Зачем заказывать выполнение своего задания, если оно уже было выполнено много много раз? Его можно просто купить или даже скачать бесплатно на СтудИзбе. Найдите нужный учебный материал у нас!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Да! На равне с готовыми студенческими работами у нас продаются услуги. Цены на услуги видны сразу, то есть Вам нужно только указать параметры и сразу можно оплачивать.
Отзывы студентов
Ставлю 10/10
Все нравится, очень удобный сайт, помогает в учебе. Кроме этого, можно заработать самому, выставляя готовые учебные материалы на продажу здесь. Рейтинги и отзывы на преподавателей очень помогают сориентироваться в начале нового семестра. Спасибо за такую функцию. Ставлю максимальную оценку.
Лучшая платформа для успешной сдачи сессии
Познакомился со СтудИзбой благодаря своему другу, очень нравится интерфейс, количество доступных файлов, цена, в общем, все прекрасно. Даже сам продаю какие-то свои работы.
Студизба ван лав ❤
Очень офигенный сайт для студентов. Много полезных учебных материалов. Пользуюсь студизбой с октября 2021 года. Серьёзных нареканий нет. Хотелось бы, что бы ввели подписочную модель и сделали материалы дешевле 300 рублей в рамках подписки бесплатными.
Отличный сайт
Лично меня всё устраивает - и покупка, и продажа; и цены, и возможность предпросмотра куска файла, и обилие бесплатных файлов (в подборках по авторам, читай, ВУЗам и факультетам). Есть определённые баги, но всё решаемо, да и администраторы реагируют в течение суток.
Маленький отзыв о большом помощнике!
Студизба спасает в те моменты, когда сроки горят, а работ накопилось достаточно. Довольно удобный сайт с простой навигацией и огромным количеством материалов.
Студ. Изба как крупнейший сборник работ для студентов
Тут дофига бывает всего полезного. Печально, что бывают предметы по которым даже одного бесплатного решения нет, но это скорее вопрос к студентам. В остальном всё здорово.
Спасательный островок
Если уже не успеваешь разобраться или застрял на каком-то задание поможет тебе быстро и недорого решить твою проблему.
Всё и так отлично
Всё очень удобно. Особенно круто, что есть система бонусов и можно выводить остатки денег. Очень много качественных бесплатных файлов.
Отзыв о системе "Студизба"
Отличная платформа для распространения работ, востребованных студентами. Хорошо налаженная и качественная работа сайта, огромная база заданий и аудитория.
Отличный помощник
Отличный сайт с кучей полезных файлов, позволяющий найти много методичек / учебников / отзывов о вузах и преподователях.
Отлично помогает студентам в любой момент для решения трудных и незамедлительных задач
Хотелось бы больше конкретной информации о преподавателях. А так в принципе хороший сайт, всегда им пользуюсь и ни разу не было желания прекратить. Хороший сайт для помощи студентам, удобный и приятный интерфейс. Из недостатков можно выделить только отсутствия небольшого количества файлов.
Спасибо за шикарный сайт
Великолепный сайт на котором студент за не большие деньги может найти помощь с дз, проектами курсовыми, лабораторными, а также узнать отзывы на преподавателей и бесплатно скачать пособия.
Популярные преподаватели
Нашёл ошибку?
Или хочешь предложить что-то улучшить на этой странице? Напиши об этом и получи бонус!
Бонус рассчитывается индивидуально в каждом случае и может быть в виде баллов или бесплатной услуги от студизбы.
Предложить исправление
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
5057
Авторов
на СтудИзбе
456
Средний доход
с одного платного файла
Обучение Подробнее