Выписать фамилии владельцев авто данной марки из файла в файл - Pascal ABC
Формулировка задачи:
Сведения об автомобиле состоят из его марки, номера и фамилии владельца.
Дан файл f, содержащий сведения о нескольких автомобилях.
Найти: а) фамилии владельцев и номера автомобилей данной марки;
б) количество автомобилей каждой марки. Найденные данные записать в файл g.
Похожее здесь уже решалось, но эта задача посложнее...
Вот начало написал, а дальше не понимаю как:
type auto=record mar,nom,fam:string; end;
var a:auto; m:string; i:integer;
f:file of auto;
begin
assign(f, 'auto.dat'); reset(f);
write('Введите марку машины, по которой нужны данные:'); readln(m);
//...
//...Пример входных данных (файла auto.dat):
Ford 21 Иванов
Lada 090 Сидоров
... Код к задаче: «Выписать фамилии владельцев авто данной марки из файла в файл - Pascal ABC»
assign(f,'input.txt'); reset(f); for i:=1 to 1000 do begin read(f,a[i].mar); read(f,a[i].nom); readln(f,a[i].fam); b:=b+1; if eof(f) then break; end;
13 голосов, оценка 4.231 из 5
СОХРАНИТЬ ССЫЛКУ