Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за месяц

Riotvan

Создать файл, содержащий сведения о количестве изделий категории А, В, С, собранных рабочим за месяц. Структура записи имеет поля: фамилия сборщика, наименование цеха, количество изделий по категориям, собранных рабочим за месяц. Количество записей не менее 2.
2 ответа

Riotvan

Если правильно понял условие, то так:
Uses crt;
Type
book=Record
fam: String;
ceh: String;
a: Integer;
b: Integer;
c: Integer;
end;
Var
t: Text;
i,n: Integer;
x: Array[1..100] of book;
Begin
Clrscr;
Repeat
Writeln('Введите количество записей (не менее 2): ');
Readln(n);
Until n>=2;
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;
Assign(t,'File.txt');
Rewrite(t);
For i:=1 to n do
Writeln(t,'Сборщик ',x[i].fam,' собрал ',x[i].a+x[i].b+x[i].c,' деталей (', x[i].ceh,' цех)');
Close(t);
Readln
End.


Riotvan

Спасибо)))Считая заданными значения расценок SumА, SumВ, SumС за выполненную работу по сборке единицы изделия категорий А, В, С соответственно, выдать на печать следующую информацию: общее количество изделий категорий А, В, С, собранных рабочим цеха Х; ведомость заработной платы рабочим цеха Х; средний размер заработной платы работников этого цеха.