База данных

[Богданна]

На учете в ГАИ занесены данные о марке автомобиля, его номер и фамилия хозяина. По номеру автомобиля определить его владельца.
на учете 15 автомобилей

[Serge_Bliznykov]

скорее всего, задача на использование типа "запись" (RECORD) и типизированных файлов. На форуме полно примеров решения подобных задач.
Что именно у Вас не получается?

[Богданна]

я не знаю как найти автомобиль по номеру

[Stilet]

А ты хоть как-то вводишь данные?

[domovou]

Грубо, но суть понятна:

type
    gau=record
              marka,nomer,fuo:string[150];
              end;
var
   g:gau;
    i,k:integer;
    c:string[150];
    f: file of gau;
Begin
writeln('Kol-vo zapisi');
readln(k);
assign(f,'gau.dat');
rewrite(f);
for i:=1 to k do
    begin
    Write('marka ');
    readln(g.marka);
    write ('nomer (format - o000oo\15 ili oo000o\15) ');
    readln(g.nomer);
    write('fio');
    readln(g.fuo);
    write(f,g);
    end;
reset(f);
write ('Vvedite nomer dli pousk(format - o000oo\15 ili oo000o\15) ');
readln(c);
while not eof(f) do
      begin
      read(f,g);
      if g.nomer=c then writeln(g.marka,' ',g.nomer,' ',g.fuo);
      end;
close(f);
readln;
end.

[Богданна]

спасибо)))

[NinaSSS]

без файла можно так

program gjkhjk;
type avto=record;
marka:string;
nomer:string;
fio:string;
end;
var av:array[1..20] of avto; i:integer; nom:string;
begin
for i:=1 to 15 do begin
writeln('введите марку авто');readln(av[i].marka);
writeln('введите номер авто');readln(av[i].nomer);
writeln('введите владельца авто');readln(av[i].fio);
end;
writeln('введите требуемый номер' ); readln(nom);
for i:=1 to 15 do begin
if av[i].nomer=nom then writeln('данный автомобиль принадлежит  ',av[i].fio);end;
end.

[Serge_Bliznykov]

NinaSSS, можно, но без файла название темы звучит как-то уж слишком оффтопично!

[NinaSSS]

Сергей, если уж писать полноценную базу данных, то здесь нужно было бы использовать процедуры, автор сам, по моему, запутался в названии