Структура в Pascal

[tix0n]

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

[Valio]

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

[tix0n]

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

uses crt;

type
car = record
make: string[15];
color: string[10];
mileage: string[4];
year: string[4];
driver: string[10];
end;
var
f: file of car;
fl: char;
wrcardata, rdcardata: car;
j: byte;

procedure writer;
begin
write('марка: '); readln(wrcardata.make);
write('цвет: ');readln(wrcardata.color);
write('пробег: ');readln(wrcardata.mileage);
write('год: ');readln(wrcardata.year);
write('водитель: ');readln(wrcardata.driver);
end;

procedure wrdt(strg: string; len: byte);
var j,k: byte;
begin
write(strg);
for j:=0 to len-length(strg) do
write(' ');
write('| ');
end;

begin
clrscr;
assign(f,'data.dat');
rewrite(f);
repeat
writer;
write(f, wrcardata);
writeln(' ');
write('для продолжения ввода нажмите 1: '); read(fl);
writeln;
until fl<>'1';
close(f);
reset(f);
clrscr;
writeln('введите данные(если значение параметра неважно введите *) ');
repeat
j:=0;
seek(f,0);
writer;
writeln;
while not eof(f) do
begin
read(f, rdcardata);
if wrcardata.make <> '*' then
if wrcardata.make <> rdcardata.make then continue;
if wrcardata.color <> '*' then
if wrcardata.color <> rdcardata.color then continue;
if wrcardata.mileage <> '*' then
if wrcardata.mileage <> rdcardata.mileage then continue;
if wrcardata.year <> '*' then
if wrcardata.year <> rdcardata.year then continue;
if wrcardata.driver <> '*' then
if wrcardata.driver <> rdcardata.driver then continue;
wrdt(rdcardata.make, 16);
wrdt(rdcardata.color, 11);
wrdt(rdcardata.mileage,5);
wrdt(rdcardata.year, 5);
wrdt(rdcardata.driver,11);
writeln;
inc(j);
end;
if j=0 then writeln('автомобиль не найден');
writeln(' ');
write('чтобы повторить введите  1: ');readln(fl);
writeln;
until fl<>'1';
close(f);
end.

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

Не забывайте об этом!

Модератор.

[Leshii]

Делается гораздо проще и в меньшем объеме. Если ещё актуально пишите в скайп.