Файлы. Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти количество автомобилей каждой марки

@Ольга 89 · Регистрация: 21.05.2012

Студворк — интернет-сервис помощи студентам

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

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

Я не могу понять откуда программа берет DAT файл с условием, уже всё перерыла!!!

Pascal

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;

Добавлено через 28 минут
Неужели никто не может помочь?

Добавлено через 4 часа 36 минут

@Kardynal · 21.05.2012, 23:26

Файл должен быть в каталоге с программой.

@Pacan1 · 21.05.2012, 23:40

Наверно надо сначала создать файл внести в него данные и только потом искать... А у тебя программа ищет из файла, которого как я понял нету? если есть файл, то скорее всего путь введен не правильно

@Ольга 89 · 21.05.2012, 23:42 **[ТС]**

Файл есть данные в нем тоже есть, файл лежит в корневой папке программы.
Пробовала через путь картина та же "File not found"!

@Demsol · 23.05.2012, 17:03

Возможно у тебя имя файла просто input.dat.TXT У меня такие фейлы на олимпиадах по программированию были, когда настройки учетных записей сбиваются и я во втором туре минут наверно 10 тупил, почему не может файл открыть.
Мой Компьютер=>Сервис=>Свойства папки=>Вид=>Скрывать расширение для ...
Снять галочку

@Kardynal 5 / 5 / 3 Регистрация: 14.05.2012 Сообщений: 26
	21.05.2012, 23:26	2
	Файл должен быть в каталоге с программой. 0

@Pacan1 50 / 50 / 39 Регистрация: 06.12.2011 Сообщений: 237
	21.05.2012, 23:40	3
	Наверно надо сначала создать файл внести в него данные и только потом искать... А у тебя программа ищет из файла, которого как я понял нету? если есть файл, то скорее всего путь введен не правильно 0

@Ольга 89 0 / 0 / 0 Регистрация: 21.05.2012 Сообщений: 3
	21.05.2012, 23:42 [ТС]	4
	Файл есть данные в нем тоже есть, файл лежит в корневой папке программы. Пробовала через путь картина та же "File not found"! 0

@Demsol 43 / 43 / 14 Регистрация: 16.11.2011 Сообщений: 125
	23.05.2012, 17:03	5
	Возможно у тебя имя файла просто input.dat.TXT У меня такие фейлы на олимпиадах по программированию были, когда настройки учетных записей сбиваются и я во втором туре минут наверно 10 тупил, почему не может файл открыть. Мой Компьютер=>Сервис=>Свойства папки=>Вид=>Скрывать расширение для ... Снять галочку 0

Опции темы