«Организация обработки фалов».

[***ЛидОК***]

Из файла Doc.dat (номер накладной, код товара, количество, стоимость единицы товара) сформировать файл Code.dat, подытожив общее количество и общую стоимость товаров каждого кода.(Turbo Pascal)

[Son Of Pain]

Вопросы, наработки, whatever?

[s-andriano]

Где тот Doc.dat который нужно обрабатывать?

[***ЛидОК***]

У меня есть только задание...(

[s-andriano]

То есть Вы искренне полагаете, что исходный файл тоже кто-то должен сделать за Вас?
В таком случае могу порекомендовать разместить объявление в разделе Фриланс - там за разумную плату Вы получите результат, не затрачивая никаких собственных усилий.

[***ЛидОК***]

что нужно изменить в программе, чтобы она работала?

program lab_10;
uses crt;
var f,g:text;
    s1,s2,s3,s4:string;
    i,j,k1,k2,k3,k4:integer;
    a:array[1..100] of integer;
begin
 assign(f,'Doc.dat');
 assign(g,'Code.dat');
 reset(f);
 i:=0;
 while not EOF(f) do
  begin
   readln(f,s1);                         я
   readln(f,s2);
   readln(f,s3);
   readln(f,s4);
   k3:=0;
     for j:=1 to length(s3) do
    k3:=k3*10+ord(s1[j])-48;
   k4:=0;
   for j:=1 to length(s4) do
    k4:=k4*10+ord(s4[j])-48;
    if k3<=i
     then a[k3]:=a[k3]+k4;
    if k3>i
     then begin
           a[k3]:=k4;
           i:=i+1;
          end;
  end;
 close(f);
 rewrite(g);
  for j:=1 to i do
   begin
    s3:='';
    while a[j]<>0 do
     begin
      s3:=chr(a[j] mod 10+48)+s1;
      a[j]:=a[j] div 10;
     end;
    writeln(g,chr(j+48));
    writeln(g,s1);
   end;
 close(g);
end.

[s-andriano]

Для начала нужен файл doc.dat.
Без него программа работать не будет.

[Stilet]

program lab_10;
uses crt;
var f,g:text;
    s1,s2,s3,s4:string;
    i,j,k1,k2,k3,k4:integer;
    a:array[1..100] of integer;
begin
 assign(f,'Doc.dat');
 assign(g,'Code.dat');
 reset(f);
 i:=0;
 while not EOF(f) do
  begin
   readln(f,s1);   readln(f,s2);   readln(f,s3);   readln(f,s4);
   writeln(g,s1:20,s2:20,s3:20,s4:20);
   val(s3,k3,i);val(s4,k4,i);
   k1:=k1+k3; k2:=k2+k4;
   end;
   writeln(g,k1:20,k2:20);
 close(g);close(f);
end.

Подходит?

[***ЛидОК***]

Спасибо большое, но у меня все равно не работает(

[Stilet]

у меня все равно не работает(

Бывает. )
У меня тоже не всегда все работает.