Вывод данных из базы по параметрам

[Thabian]

База в типизированном файле. В базе есть марки авто, фио продавцов, год выпуска авто и др.
Нужно вывести на экран марки авто с самым ранним и поздним годом выпуска. И тех и других может быть несколько.

Результат выдает только одну марку позднего года выпуска.
Для раннего года выпуска марку не пишет, только год выводит.

program avto;
uses crt;
const n=10;
type zap=record 
	prodavec:string[8];
	marka:string[15];
	god, oborot:integer;
	date:string[8]
	end;
type zap1=record
    prodavec, date: string[8];
    end;
var d: file of zap;
    z: zap;
    mas:array[1..n] of zap;
    i, min, max: integer;
    a, b, Mmax, Mmin:string[15];
    
begin
    clrscr;
    assign (d, 'E:\d.txt');
    reset(d);
   read (d,z);
    min:=z.god;
    max:=z.god;
    while not eof (d) do begin
        read (d, z);
        if min>z.god then begin
            min:=z.god;
            a:=z.marka;
            end;
        if max<z.god then begin
            max:=z.god;
            b:=z.marka;
            end;
        end;
     writeln ('Young car: ', b, ' - ', max);
     writeln ('Old car: ', a, ' - ', min);
    writeln;
    close(d)
end.

[Serge_Bliznykov]

И тех и других может быть несколько.

у Вас в коде это никак не учитывается.

я бы (по простому), сделал так: первый проход по файлу, ищем самый древний и самый новый года выпуска. Только года, ничего больше.
Потом второй проход по файлу - читаем - если года совпадают - вывод автомобиля на экран.
Всё.

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

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

Вариантов решения море.
Выбирайте любой, какой Вам по душе.

[Thabian]

Спасибо.
А чтобы вывести данные сначала по старым годам, потом по новым, а не вперемежку, нужно сначала отсортировать базу по годам? Или проще будет сразу использовать массивы?

[Serge_Bliznykov]

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

можно и так. Но это не обязательно (зачем сортировать те записи, которые нас не интересуют?!).
Поэтому нужно либо массивами воспользоваться, либо, банально:

  reset(d);
  в цикле перебираем записи, 
    <нашли минимальный (самый старый) и максимальный (новый) год>

  reset(d);
  в цикле перебираем записи, 
    если год записи == минимальный (самый старый) -> выводим сведения

  reset(d);
  в цикле перебираем записи, 
    если год записи == максимальный (новый) год -> выводим сведения

профит.

[Thabian]

Да, теперь вижу, чего не хватало =) Забыл, что надо чтение каждый раз начинать сначала.
Чем проще, тем лучше.

[Thabian]

Есть еще одна загвоздка с этой базой. Не получается удалить строку.

begin
    clrscr;
    assign (d, 'E:\d.txt');
    reset(d);
    writeln ('What delete?'); read (a);
    while not eof (d) do begin
        read (d,z);
        if a = z.marka then begin
            seek(d,i+1);
            read(d,z);
            seek(d,i);
            write(d,z);
            end;
        seek(d,filesize(d)-1);
        write (d,z);
        end;
    close(d);
    reset (d);
        writeln;
        writeln('----------------------------------------------------------');
        writeln('| Prodavec |     Marka     |  God  |  Oborot  |   Date   |');
        writeln('----------------------------------------------------------');
        for i:=1 to n do
          with z do begin
          read (d,z);
            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('----------------------------------------------------------');
    close(d);
end.

[Serge_Bliznykov]

Вы уже проблему с удалением?

[Thabian]

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

Вы уже проблему с удалением?

проблема еще жива, увы...

[Serge_Bliznykov]

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

проблема еще жива, увы...

почитайте мой пост - ТУТ
Если пост не поможет и проблема с удалением не решится, пишите, решим!

[Thabian]

Пробую второй способ с массивом.

    writeln ('What delete?'); read (a);
    i:=0;
    while not eof (d) do begin
        i:=i+1;
        if z.marka<>a then begin
            read(d, mas[i]);
            end;
        write (d,z);
        end;

Почему-то при таком чтении в массив, сохраняются строки через одну.