В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
gb03041966
gb03041966
21.02.2020 08:34 •  Информатика

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

Ответ:
Seagate0012
Seagate0012
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?