Интересная задачка про тачки типа текстовый файл содержит информацию о владельцах гаражей:Ф.И.О, марка тачки, номер тачки. Нужно написать процедуру и реализацию запроса на поиск владельцев автомобилей. Список лиц удовлетворяющих запросу записать в новый текст.файл.
Артемий
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 графы: кол-во преступлений данного вида в расчете на душу населения и среднегодовое кол-во преступлений данного. Сам пока вникаю в эти файлы. может кто подскажет каким образом все сделать.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.