Использование файлового типа данных.

[V1rus.25]

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

В итоге должно выйти что-то типа:
Введите марку автомобиля:
PORSHE
Найдено автомобилей:3
PORSHE 911 Номер12345 Иванов
PORSHE Boxster Номер 11234 Петров
PORSHE Cayenne Номер 11123 Сидоров

[Hacker19_90]

ну ка поясните мне что такое

используя файловый тип данных.

?
Я знаю типизированные, текстовые, и [бинарные] файлы

[V1rus.25]

Опис файлового типу складається з ключового слова file, за яким ідуть ключове слово of та опис типу елементів файла. Елементами файла можуть бути об’єкти довільного типу, крім файлового. Змінна файлового типу є досить специфічною. Її не можна використовувати у виразах та в операторах присвоєння. Файлова змінна ототожнюється з деяким фізичним файлом і потім у програмі лише визначає файл, над яким виконуються операції. Наприклад, в описі файлового типу var F_In: file of real; файлова змінна F_In зображає файл, елементи якого мають тип real.
Как мне кажется это больше похоже на текстовый тип.

[Hacker19_90]

и называется это всё типизированные файлы!
Ну что же покажите каким образом вы пишите в файл свои данные, и как выглядит структура записи!

[Paster Fob]

V1rus.25 Похожая программа есть в книге Песни о паскале глава 40,программа P_40_2,и глава 42 функция в начале главы.
Почитай,заодно разберёшься с кодом.

[V1rus.25]

Да задачка похожая но я не могу понять как ее переделать под свою!!!

Вот тоже нашел похожую но только с номерами, а как переделать под марки не понимаю

function FindNumber(var aFile: text; aNumber: integer): boolean; 
            var N: integer; { текущий номер в БД } 
begin 
   FindNumber:= false;  { на случай, если файл пуст  } 
    Reset(aFile);  { позицию чтения устанавливаем в начало файла } 
    N:=0;   { в начале цикла задаем несуществующий номер } 
                       { читаем номера из файла, пока НЕ конец файла И номер НЕ найден } 
    while not Eof(aFile) and (N<>aNumber) do begin 
   Readln(aFile, N); 
  FindNumber:= (N=aNumber);  { true, если номер нашелся } 
end; 
end; 
 var F: text; Num: integer; 
  begin {----- Главная программа -----} 
   Assign(F, 'Police.txt'); 
    repeat 
    Write('Укажите номер автомобиля: ');  Readln(Num); 
   if FindNumber(F, Num) 
  then Writeln('Эта машина в розыске, хватайте его!') 
 else Writeln('Пропустите его'); 
until Num=0;  { 0 – признак завершения программы} 
Close(F); 
end.

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

[V1rus.25]

Люди хоть кто нибудь поможет с программой?

[Paster Fob]

Используй строковый массив.Ну и наверное записи использовать.

[V1rus.25]

Сообщение от Paster Fob

Используй строковый массив.Ну и наверное записи использовать.

просто не понимаю как

[Serge_Bliznykov]

Сообщение от V1rus.25

просто не понимаю как

А мне, например, непонятно, что Вы не понимаете!

то, что эта задача на типизированные файлы, это Вы понимаете?

то, что типизированный файл описывается как
var xxxx : file of <ТипФайла>, это понимаете?

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

то, что Вы должны заполнить файл, это понимаете?

а по сути кусочек программы может выглядеть так:

type AutoRec = record 
  Marka : string[45];
  Nomer : string[15];
  Vladelec : string[45];
end;

var
   sFind : string;
   OneAuto : AutoRec;
   f : file of AutoRec;
   countA : integer;
begin
   WriteLn('Введите марку авто:');
   Readln(sFind);

   Assign(f, 'ИмяФайла.dat');
   Reset(f);
   countA := 0;
   while Not eof(f) do begin
      Read(f, OneAuto);
      if Pos(sFind, OneAuto.Marka)>0 then begin
         Inc(countA);
         WriteLn('Марка: ',OneAuto.Marka,' Номер: ',OneAuto.Nomer,' Владелец: ',OneAuto.Vladelec);
      end;
   end;
   Close(f);
   WriteLn('Всего найдено автомобилей заданной марки: ', countA);
   Readln
end;