Версия для печати темы

Автор: Dimusik 23.05.2007 23:23

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

Автор: Артемий 23.05.2007 23:50

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

Автор: Dimusik 23.05.2007 23:59

номер машины

Автор: мисс_граффити 24.05.2007 0:28

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

Автор: Артемий 24.05.2007 0:29

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

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 24.05.2007 0:39

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

Автор: Dimusik 24.05.2007 20:45

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