Типа мини база данных, Текстовые файлы Опции

[Dimusik]

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

[Артемий]

Список лиц удовлетворяющих запросу записать в новый текст.файл.

а что собственно за запрос?номер машины ,или марка?

Сообщение отредактировано: Артемий - 23.05.2007 19:50

[Dimusik]

номер машины

[мисс_граффити]

типа текстовый файл

типа текстовый?
тогда типа так:
1. типа считал строчку
2. типа разобрал на части (типа ФИО, типа марка, типа номер)
3. если типа номер типа равен нужному, написал типа ФИО
и так - пока не кончится файл

[Артемий]

Запись в файл:

type
 TMinB = record
  Fio,Marka,Nomer : string[255];
 end;
var
Base: TMinB;
f1: file of TMinB;
i,j,n: integer;
begin
assign(f1,'base.dat');
rewrite(f1);
writeln('Count of persons:');
readln(n);
 for i:=1 to n do begin
  readln(Base.Fio);
  readln(Base.Marka);
  readln(Base.Nomer);
  write(f1,Base);
 end;
close(f1);

А вот запрос:

type
 TMinB = record
  Fio,Marka,Nomer : string[255];
 end;
var
Base: TMinB;
f1,f2: file of TMinB;
s: string;
begin
assign(f1,'base.dat');
reset(f1);
assign(f2,'superbase.dat');
rewrite(f2);
writeln('Nomer:');
readln(s);
 while not eof(f1) do begin
  read(f1,Base);
  if s=Base.Nomer then write(f2,Base);
 end;
close(f1);
close(f2);

[volvo]

Артемий, разговор про текстовый файл...

[Dimusik]

Вот задачка на типизированные файлы.В файле хранится информация о правонарушениях по региону N за 5 лет в следующем виде: наименование правонарушения и кол-во правонарушений данного вида за каждый год. Извесно кол-во жителей данного региона.Сформировать файл, в котором кроме перечисленной информации имеется 2 графы: кол-во преступлений данного вида в расчете на душу населения и среднегодовое кол-во преступлений данного.
Сам пока вникаю в эти файлы. может кто подскажет каким образом все сделать.