Структуры

[p4serhiy]

Вычислить общую сумму выплат по мысяць ао цеха Х, а также средне месячный заработок рабочего этого цеха. Напечатать для бухгалтерии ведомость для начисления заработной платы рабочим этого цеха. (если цех не найдено то вывод ошибки)
Оформить через структуры...
файл вложен

[p4serhiy]

Нуже аааааааа

[NiCola999]

Твое описание темы похоже на какой-то приказ. Мол сделайте, вечером заберу. Никто не будет за тебя делать твою программу, показывай то что сам написал или плати деньги за решение.

[p4serhiy]

Не знаю как средние и сумму посчитать зарплаты

PHP код:

uses crt;
type
        st = record
    Pri: string[15];
    name: string[10];
    cex: string[10];
      zarp:integer;
      end;
     VAR
     f:text;
     zp:st;
zaput:string;


procedure verhreg(var zmin:string);
var i:integer;
begin
  for i:=1 to length(zmin) do zmin[i]:=Upcase(zmin[i]);
end;



procedure osnovna(var out1:text);
var i:integer;
label 2,1,3;
begin
 TextColor(white);
 clrscr;
 write('Vvedit  cex:  ');

 readln(zaput);

     clrscr;
     writeln('Cex');

      verhreg(zaput);

    while not eof(out1) do


            begin
             readln(f,zp.pri,zp.cex,zp.zarp);



             for i:=length(zp.cex) downto 1  do
             if zp.cex[i] in [' '] then delete(zp.cex,i,1);
             if (zaput)<>(zp.cex) then goto 2;
         
           
            begin

              write(zp.pri,' ',zp.name,' ',zp.cex,' ',zp.zarp);
               writeln;
              end;
              2:
              end;
close(out1);readln;
end;







BEGIN
 assign(f,'c:/Cex.dat');
 reset(f);
 verhreg(zaput);
 osnovna(f);
END.