Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Zara2707
0 / 0 / 0
Регистрация: 18.03.2018
Сообщений: 16
#1

Расчетная ведомость бригады за три месяца содержит информацию о выработке бригады - PascalABC.NET

20.03.2018, 09:42. Просмотров 168. Ответов 2
Метки нет (Все метки)

Расчетная ведомость бригады за три месяца содержит информацию о выработке бригады в рублях,суммарной заработной плате. Эти данные ввести с клавиатуры. Если выработка бригады превышает суммарную зарплату,то бригаде выплачивается премия в размере 10% выработки. Вывести на экран информацию за июль,август,сентябрь о выработке бригады,суммарной заработной плате,премии (если премия не начисляется выводится 0) и общей сумме заработка.
http://www.cyberforum.ru/pascal/thread175409.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2018, 09:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Расчетная ведомость бригады за три месяца содержит информацию о выработке бригады (PascalABC.NET):

Записи: распечатать фамилии рабочих бригады, начинающиеся с А и С
Распечатать фамилии рабочих бригады, начинающиеся с А и С с указанием их...

Сформировать бригады с минимальным "числом неудобства"
Пожалуйста, помогите решить, я сам пытался, но ничего не получается. Буду очень...

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

В сборе винограда принимают участие три бригады
В сборе винограда принимают участие три бригады.Учет ведется с помощью...

Вывести на экран фамилии и имена членов бригады, расположив Информацию вцентре окна
1. Открыть окно с координатами х1=11, y1=4, x2=71, y2=22. 2. Окрасить его в...

2
EvgenyPin
3 / 3 / 5
Регистрация: 25.11.2017
Сообщений: 5
22.03.2018, 14:33 #2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
var
  viri, zari, 
  vira, zara,
  virs, zars
  : integer;
  pr, sum: real;
 
begin
  Writeln('Введите информацию о выработке бригады в рублях,суммарной заработной плате в июле:');
  Readln(viri, zari);
  Writeln('Введите информацию о выработке бригады в рублях,суммарной заработной плате в августе:');
  Readln(vira, zara);
  Writeln('Введите информацию о выработке бригады в рублях,суммарной заработной плате в сентябре:');
  Readln(virs, zars);
  Writeln('Месяц   Выработка бригады  Суммарная заработная плата  Премия  Общая сумма заработка');
  Write('Июль     ', viri:10, zari:25);
  if viri > zari then pr := 0.1 * viri else pr := 0;
  sum := pr + zari;
  Writeln(pr:16, sum:16);
  Write('Август   ', vira:10, zara:25);
  if vira > zara then pr := 0.1 * vira else pr := 0;
  sum := pr + zara;
  Writeln(pr:16, sum:16);
  Write('Сентябрь ', virs:10, zars:25);
  if virs > zars then pr := 0.1 * virs else pr := 0;
  sum := pr + zars;
  Writeln(pr:16, sum:16);
end.
0
Zara2707
0 / 0 / 0
Регистрация: 18.03.2018
Сообщений: 16
22.03.2018, 17:19  [ТС] #3
Спасибо))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2018, 17:19
Привет! Вот еще темы с решениями:

На участке две бригады
(Алгебра событий) На участке две бригады. Вероятность выполнения плана первой...

на предприятии работают две бригады рабочих
на предприятии работают две бригады рабочих: первая производит 3/4 продукции с...

Сколькими способами можно разбить работников на бригады?
Сколькими способами можно разбить 30 работников на 3 бригады по 10 человек в...

Посчитать количество фактических дней работы бригады
Мне нужно посчитать кол-во фактических дней работы бригады. (то бишь те которые...


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

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

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