замена данных в базе, типизированный файл

[Thabian]

Есть база в типизированном файле.
Выполняю замену данных в одной из строк.. вроде код написан, но в базе изменений не происходит, выводит изначальный вариант.

program zamena;
uses crt;
const n=10;
type zap=record 
	prodavec:string[8];
	marka:string[15];
	god, oborot:integer;
	date:string[8]
	end;
var d: file of zap;
    z: zap;
    mas:array[1..n] of zap;
    i,e: integer;
    t,r: string;
    
begin
    clrscr;
    assign (d, 'E:\d.txt');
    reset(d);
    write('Vvedite marky: '); readln (t);
    write('Vvedite new marky: '); readln(r);
    write('Vvedite new god: '); readln(e);
    clrscr;
    i:=1;
    while not eof (d) do begin
        read (d, z);
        mas[i]:=z; 
        i:=i+1;
        end;
    while not eof (d) do begin
        read (d, z);
        if t=mas[i].marka then begin
        mas[i].marka:=r;
        mas[i].god:=e;
        end;
    write (d,z);
    end;
    close (d);
    reset (d);
writeln('----------------------------------------------------------');
writeln('| Prodavec |     Marka     |  God  | Oborot  |  Data  |');
writeln('----------------------------------------------------------');
reset (d);
for i:=1 to n do 
   with mas[i] do begin
    gotoXY(1,whereY);write('| ',prodavec);
    gotoXY(12,whereY);write('| ',marka);
    gotoXY(28,whereY);write('| ',god);
    gotoXY(36,whereY);write('| ',oborot);
    gotoXY(47,whereY);write('| ',date);
    gotoXY(58,whereY);writeln('| ');
   end;
writeln('----------------------------------------------------------');
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Вы изменения делаете для элемента массива, а не для записи.
И пишете в файл исходную запись.


Если вам нужно редактировать конкретную запись в файле, необязательно читать весь файл. И не нужно читать его в массив.

Seek(f, nz); // nz - номер записи, нумерация с нуля
Read(f,z);
// изменили запись
Write(f,z);
....

[Serge_Bliznykov]

ну, как минимум, перед поиском записей стоит установить указатель на начало файла. Это можно сделать процедурой Reset(f) или Seek(f,0):

  while not eof (d) do begin
        read (d, z);
        mas[i]:=z; 
        i:=i+1;
        end;

   seek(f, 0);

    while not eof (d) do begin
....

во-вторыХ, как правильно сказал ZX Spectrum-128, раз Вы в массиве изменяете, так и писать нужно элемент массива, а не исходную запись!

write (d, mas[i]);

И ещё исправьте ошибку - совершенно не обязательно, что в файле ровно N записей. Нужно считать, сколько записей Вы прочитали в массив (а в данном случае можно вообще без массива обойтись!)

p.s. ну и учтите, что чтение в массив можно упростить...

[Serge_Bliznykov]

увидел, что в программе присутствует ещё несколько косячков..
позволил себе переписать код без массива...

program zamena;
uses crt;
type zap = record
    prodavec: string[8];
    marka: string[15];
    god, oborot: integer;
    date: string[8]
  end;
var d: file of zap;
  z: zap;
  i, k, newGod : integer;
  t, newMarka: string;

begin
  clrscr;
  write('Vvedite marky: '); readln(t);
  write('Vvedite new marky: '); readln(newMarka);
  write('Vvedite new god: '); readln(newGod);
  clrscr;
  assign(d, 'd:\d.txt');
  reset(d);
  i := 0;
  k := 0; {количество замен}
  while not eof(d) do begin
    read(d, z);
    if z.marka = t then begin
      z.marka := newMarka;
      z.god := newGod;
      seek(d, i);
      write(d, z);
      inc(k);
    end;
    i := i + 1;
  end;
  close(d);
  WriteLn('Done. Changed ',k,' records OldMarka -> NewMarka');
  WriteLn('Press ENTER to continue...');
  ReadLn;

  reset(d);
  writeln('----------------------------------------------------------');
  writeln('| Prodavec |     Marka     |  God  | Oborot  |  Data  |');
  writeln('----------------------------------------------------------');
  reset(d);
  while not eof(d) do begin
    read(d, z);
    with z do begin
      gotoXY(1, whereY); write('| ', prodavec);
      gotoXY(12, whereY); write('| ', marka);
      gotoXY(28, whereY); write('| ', god);
      gotoXY(36, whereY); write('| ', oborot);
      gotoXY(47, whereY); write('| ', date);
      gotoXY(58, whereY); writeln('| ');
    end;
    writeln('----------------------------------------------------------');
  end;
  Close(d);
  readln
end.

p.s. если нужно с массивом, скажите, перепишу ваш код с использованием массива...

[Thabian]

Спасибо. Здесь действительно можно без массива.

Есть еще такой вопрос. По этой же базе данных нужно подсчитать оборот по каждому продавцу. Продавцы в базе повторяются и оборот считается столько раз, сколько встречается фамилия, то есть по каждой строке.
Как поставить условие, чтобы итоговый оборот по каждой фамилии был посчитан только один раз?

program oborot;
uses crt;
const n=10;
type zap=record 
	prodavec:string[8];
	marka:string[15];
	god, oborot:integer;
	date:string[8]
	end;
type prod = set of 1..n;
var d: file of zap;
    z: zap;
    mas:array[1..10] of zap;
    i, j: integer;
    a:longint;
    pr:set of byte;
       
begin
clrscr;
assign (d, 'E:\d.txt');
reset(d);
i:=1;
while not eof (d) do
    begin
        read(d,z);
        mas[i]:=z; 
        i:=i+1;
        end;
pr:=[];
for i:=1 to n do begin
    a:=mas[i].oborot;
    for j:=i+1 to n do 
    if mas[i].prodavec = mas[j].prodavec then begin
        a:=a+mas[j].oborot; 
        pr:=pr+[i];
        end;
    if i in pr then writeln (mas[i].prodavec, ' ', a);
a:=0;
 end;
end.

[Serge_Bliznykov]

считайте данные в массив, отсортируйте массив по продавцу (это обеспечит, что одинаковые продавцы будут идти в массиве ПОДРЯД).
Потом просто:
берём первого продавца (max[1].prodavec и идём по массиву, пока mas[i] равно взятому продавцу, всё встреченные обороты суммируем.
Как только продавец сменился - выдаём результат по запомненному продавцу, запоминаем нового, сбрасываем обороты (начинаем считать заново, с mas[i].oborot
и так до конца массива.
всё!

p.s. Вы так и не исправили грубую ошибку чтения записей из файла в массив.
Записей в файле может быть совсем не 10, поэтому нужно подсчитывать фактическое N, сколько записей реально прочитали в массив!

[Thabian]

Да, массив понятно что mas:array[1..n] of zap;

Добавил сортировку по алфавиту, изменил условие вывода данных, теперь выдает ошибку "индекс вне границ массива"

begin
clrscr;
assign (d, 'E:\d.txt');
reset(d);
i:=1;
while not eof (d) do
    begin
        read(d,z);
        mas[i]:=z; 
        i:=i+1;
        end;
for i:=1 to n do
for j:=1 to n do 
    if mas[i].prodavec < mas[j].prodavec then begin
         z:=mas[i];
         mas[i]:=mas[j];
         mas[j]:=z; 
         end;
for i:=1 to n do begin
    a:=mas[i].oborot;
    for j:=i+1 to n do 
    if mas[i].prodavec = mas[j].prodavec then begin
        a:=a+mas[j].oborot; 
        end;
    if mas[i].prodavec <> mas[j].prodavec then writeln (mas[i].prodavec, ' ', a);
a:=0;
 end;
end.

[Serge_Bliznykov]

не так.
а вот так:

begin
clrscr;
assign (d, 'E:\d.txt');
reset(d);
i:=0;
while not eof (d) do
    begin
        i:=i+1; {тут можно добавить проверку, если i больше n - то записи в массив не помещаются, 
          нужно выдавать сообщение пользователю, прерывать цикл и выходить... }
        read(d, mas[i]);
    end;
NN := i; {запомнили, сколько у нас записей в массиве!}

if NN<1 then {массив пуст, прерываем программу} Halt(1);

{сортировка массива по продавцу}
for i:=1 to NN-1 do
for j:=i+1 to NN do 
    if mas[i].prodavec < mas[j].prodavec then begin
         z:=mas[i];
         mas[i]:=mas[j];
         mas[j]:=z; 
   end;


t:=mas[1].prodavec;
a:= mas[1].oborot;
for i:=2 to NN do begin
    if mas[i].prodavec = t then a := a + mas[i].oborot
    else begin
       WriteLn('Prodavec: ', t, '  oborot = ', a);
       t := mas[i].prodavec;
       a := mas[i].oborot;
    end;
end;
{выведем последнего продавца}
WriteLn('Prodavec: ', t, '  oborot = ', a);
end.

[Thabian]

Отлично! С маленькой поправкой все работает как надо.

Там только где t:=mas[1].prodavec; a:= mas[i].oborot;
надо оборот тоже писать 1 вместо i.

Благодарю

[Serge_Bliznykov]

Сообщение от Thabian

Отлично! С маленькой поправкой все работает как надо.

Там только где t:=mas[1].prodavec; a:= mas[i].oborot;
надо оборот тоже писать 1 вместо i.

Ага. Вы правы! Я накосячил. Сейчас поправлю у себя в сообщении.

Всегда пожалуйста!!