Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 05.11.2015
Сообщений: 6
1

Рассчитать величину средней зарплаты

06.11.2015, 00:40. Показов 1168. Ответов 2
Метки нет (Все метки)

Дан список работников фирмы с указанием фамилий и зарплаты (в рублях). Рассчитать величину средней зарплаты и суммы доплат, размеры которых определяются по правилу: А ед., если зарплата работника составляет 50% – 67% от средней зарплаты; В ед., если зарплата работника составляет 49% и менее от средней зарплаты. Рассчитать также общую сумму выплат каждому работнику (с учетом окладов, доплат и подоходного налога).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2015, 00:40
Ответы с готовыми решениями:

Рассчитать массу детали средней конфигурации
Довольно сложно. Для меня. Необходимо в Pascal рассчитать массу детали средней конфигурации....

Рассчитать величину оплаты.
1. Известна норма выработки деталей и фактическая выработка рабочего. Оплата труда рабочему за...

Расчет средней зарплаты сотрудников фирмы
В среде турбо паскаль составить и отладить прграмму,которая позволяет посчитать среднюю зарплату...

Найти величину наибольшей зарплаты в отделе и номер сотрудника с зарплатой
Известна зарплата 16 сотрудников одного отдела. Найти величину наибольшей зарплаты в отделе и номер...

2
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
06.11.2015, 01:48 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
type
    TWorker = record
        lastName: String[30];
        salary, extra: LongWord;
    end;
var
    ar: Array[Byte] Of TWorker;
    i, n: Byte;
    avr: Double;
    a, b: LongWord;
    tax: Single;
begin
    repeat
        Write('How many workers (1..255)? ');
        ReadLn(n);
    until (n > 0);
    avr := 0;
    for i := 0 to n - 1 do
        with ar[i] do
        begin
            WriteLn('Input info about ', i + 1, ' worker:');
            Write(#9#9'Last name: '); ReadLn(lastName);
            Write(#9#9'Base salary: '); ReadLn(salary);
            avr := avr + ar[i].salary;
        end;
    avr := avr / n;
    WriteLn('AVR=', avr:0:3);
    
    //начисление доплат. ввод А и B разукрасить по желанию
    Write('A='); ReadLn(a);
    Write('B='); ReadLn(b);
    for i := 0 to n - 1 do
        with ar[i] do
        begin
            if (salary / avr <= 0.49)
            then
                extra := b
            else
                if (salary / avr <= 0.67)
                then
                    extra := a
                else
                    extra := 0;
        end;
    repeat
        Write('Input income tax (0..1): ');
        ReadLn(tax);
    until ((tax >= 0) And (tax <= 1));
    WriteLn; WriteLn('Final list:');
    for i := 0 to n - 1 do
        with ar[i] do
            WriteLn(lastName:30, #9, ((salary + extra) * (1 - tax)):0:2);
end.
1
0 / 0 / 0
Регистрация: 05.11.2015
Сообщений: 6
06.11.2015, 18:32  [ТС] 3
Спасибо большое!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2015, 18:32

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Выбрать работников, у которых средняя зарплата за 2 года больше средней зарплаты всех работников
Ввести сведения о работниках предприятия (фамилию, год пос¬тупления на работу, среднюю зарплату...

Зарплаты распределены нормально, определить 95% интервал для средней зарплаты.
Из 200 работников банка случайным образом отобрано 20 человек, средняя заработная плата которых...

Структуры: вычисление средней зарплаты
Помогите решить проблему, в качестве средней зарплаты выдаёт последнюю из трёх (как запустите код -...

Расчет средней зарплаты за любой месяц
В Двумерном массиве хранится информация о зарплате 18 человек за каждый месяц года (в первом...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.