По заданным значениям расценок SА, SВ, SС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно,выдать на печать информацию - Turbo Pascal
Формулировка задачи:
1) Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за месяц. Структура записи имеет поля: фамилия сборщика, наименование цеха, количество изделий по категориям, собранных рабочим за месяц. Количество записей не менее 10.
Текст программы(спасибо форумчанину Kodzaev))):
2) Считая заданными значения расценок SА, SВ, SС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно, выдать на печать следующую информацию: общее количество изделий категорий А, В, С, собранных рабочим цеха Х; ведомость заработной платы рабояим цеха Х; средний размер заработной платы работников этого цеха.??????
Решение задачи: «По заданным значениям расценок SА, SВ, SС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно,выдать на печать информацию»
textual
Листинг программы
Uses crt; Type book=Record a: Integer; b: Integer; c: Integer; fam: String; ceh: String; end; Var sa,sb,sc,i,n,k,sum: Integer; str: String; x: Array[1..100] of book; Begin Clrscr; Writeln('Количество записей: '); Readln(n); Writeln('Значения расценок SA,SB,SC: '); Readln(sa,sb,sc); For i:=1 to n do begin Write('Введите фамилию рабочего: '); Readln(x[i].fam); Write('Введите наименование цеха: '); Readln(x[i].ceh); Write('Количество изделий A: '); Readln(x[i].a); Write('Количество изделий B: '); Readln(x[i].b); Write('Количество изделий C: '); Readln(x[i].c); end; Writeln('Введите наименование цеха, по которому нужно выдать информацию: '); Readln(str); Writeln('Работники этого цеха:'); For i:=1 to n do If x[i].ceh=str Then begin Inc(k); Writeln(x[i].fam); sum:=sum+(sa*x[i].a+sb*x[i].b+sc*x[i].c); end; Writeln('Зарплата для работников цеха ',str,' =',sum); Writeln('Средняя зарплата= ',sum/k:2:2); Readln End.
Объяснение кода листинга программы
- Инициализация переменной
n
для хранения количества записей. - Ввод значений расценок
sa
,sb
,sc
для каждой записи. - Инициализация переменной
i
для цикла по записям. - Чтение фамилий рабочих и наименований цехов для каждой записи.
- Инициализация переменной
k
для подсчета количества работников цеха. - Проверка условия, что введенный цех совпадает с цехом из записи.
- Если условие выполняется, то увеличивается значение переменной
k
, суммируются значения расценок для изделий A, B, C и выводится фамилия рабочего. - После завершения цикла выводится общая зарплата для работников цеха и средняя зарплата.
- Выводится сообщение о завершении ввода данных и предлагается нажать любую клавишу для выхода из программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д