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

Вирс123 Вирс123    3   08.06.2019 15:30    0

Ответы
iragav30 iragav30  01.10.2020 22:28
Ничего не сказано о структуре файла f. Предположим, что данные в нем хранятся в виде записей с полями:
model - марка автомобиля
nomer - номер
name - фамилия
Сам файл имеет полное имя d:\car.txt
Тогда программа будет иметь вид:

type
   tcar=record
   model:string;
   nomer: string;
   name: string;
   end;
var
   f:file;
   car: tcar;
   m:string;
begin
assign(f,'d:\car.txt');
reset(f);
write('Введите марку машины: ');
read(m);
while not eof(f) do
  begin
  read(f,car);
  if m=car.model then
    writeln(car.name,' ',car.nomer);
  end;
close(f);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика