Создание трех типизированных файлов и выборка в них

@Rusalka · Регистрация: 19.05.2011

Студворк — интернет-сервис помощи студентам

Привет!
у меня есть три БД с информацией о трех марках машин(например,BMW,HONDA,SKODA),размещен ные соответственно в трех файлах(f1,f2,f3)
В них содержится информация:регистрационный номер(ББ****ББ),цвет,год выпуска авто и адрес владельца.
и я совершенно не знаю,как мне написать процедуру для поиска авто заданной марки и цвета с не полностью известными цифрами числовой части регистр.номера

буду вам ооочень благодарна за помощь,больше не знаю к кому обратиться!

@TAVulator · 20.05.2011, 17:17

какой тип у файлов?

@Rusalka · 20.05.2011, 17:43 **[ТС]**

var f1,f2,f3:file of zap;
z:zap;

я их сама в программе создаю и заполняю

@TAVulator · 20.05.2011, 17:57

Сообщение от Rusalka

var f1,f2,f3:file of zap;
z:zap;

кто такой zap?

@Rusalka · 20.05.2011, 18:12 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program Avto;
uses crt;
const k=8;
const name: array [1..8] of string=
             ('1-sozdanie i zapolneniya bd',
              '2-vyvod bd na ekran',
              '3-zadanie marki i cveta',
              '4-zadanie registr_nomera',
              '5-zadanie marki i cifr registr nomera',
              '6-zadanie cveta',
              '7-zadanie marki, cveta i casti cifr registr nomera',
              '8-exit');
       m='MAIN MENU';
       V='Input number of punkt';
type zap=record marka,cvet,adres,registrnomer:string[100];
                godvypuska:integer
         end;
var f1,f2,f3:file of zap;
     z:zap;
     t:integer;

это начало моей программы,возможно,поможет
zap-запись

@TAVulator · 20.05.2011, 18:15

Rusalka, для ответа на мой вопрос достаточно было этого:

Сообщение от Rusalka

type zap=record marka,cvet,adres,registrnomer:string[100];
godvypuska:integer
end;

@Rusalka · 20.05.2011, 18:27 **[ТС]**

я не претендую на звание великого программиста,я вообще с программированием в сентябре встретилась,поэтому,мне кажется,можно простить что-то человеку,которому нужно написать программу с этими файлами,запросами,но который до этого знал только что такое блок схемы.

я пытаюсь с этим разобраться,поэтому не купила тупо программу,а читаю методички и советуюсь с людьми,которые в этом как рыбы в воде.

не надо очень строго)

@KorrwiN · 21.05.2011, 13:09

Вот лови готовую программу с одним но: она ищет не по части номера - а целиком...как сделать чтоб искала по части я не знаю))

Юзай)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
Program Machine;
Uses crt;
Type
Machine=record
              regnum:string[10];
              color:string[10];
              year:string[4];
              adr:string[40];
              end;
TypeFile=file of Machine;
Var
f1:TypeFile;
s:machine;
f:TypeFile;
isk:string;
isearch_col,isearch_num:string;
nf:string;
 
Procedure file_cr(nf:string);
Begin
assign(f,nf);
rewrite(f);
with s do begin
writeln('Окончание ввода - #...');
repeat
write('Введите рег.номер машины: ');
readln(regnum);
if regnum<>'#' then begin
write('Введите цвет машины: ');
readln(color);
write('Введите год выпуска: ');
readln(year);
write('Введите адрес владельца: ');
readln(adr);
writeln;
write(f,s);end;
until regnum='#';
end;
close(f);
End;
 
Procedure file_vyv(nf:string);
Begin
assign(f,nf);
reset(f);
writeln('-------------------------------------------------------------');
writeln('| Рег.номер |   Цвет  |  Год выпуска  |   Адрес владельца   |');
writeln('-------------------------------------------------------------');
writeln;
while not eof(f) do begin
read(f,s);
write(' ',s.regnum, s.color:14, s.year:13,s.adr:13);
writeln;
writeln;
end;
close(f);
End;
 
Procedure file_search_num(isearch_num:string);
Begin
assign(f,nf);
reset(f);
with s do begin
while not eof(f) do begin
read(f,s);
if s.regnum=isearch_num then begin
writeln;
writeln('Искомая машина:');
write('Номер: ',s.regnum);
writeln;
write('Цвет: ',s.color);
writeln;
write('Год выпуска: ',s.year);
writeln;
write('Адрес владельца: ',s.adr);end;
writeln;
end;
end;
End;
 
Procedure file_search_col(isearch_col:string);
Begin
assign(f,nf);
reset(f);
with s do begin
while not eof(f) do begin
read(f,s);
if s.color=isearch_col then begin
writeln;
writeln('Искомая машина:');
write('Номер: ',s.regnum);
writeln;
write('Цвет: ',s.color);
writeln;
write('Год выпуска: ',s.year);
writeln;
write('Адрес владельца: ',s.adr);
writeln;
end;
end;
end;
End;
 
procedure OKNO(x1,y1,x2,y2,c1,c2:integer);
begin
textbackground(0);clrscr;
textbackground(c1);
textcolor(c2);
window(x1,y1,x2,y2);clrscr;
clrscr;
end;
 
function okfile(fl:string):boolean;
begin
{$I-}
okfile:=false;
assign(f1,fl);
reset(f1);close(f1);
{$I+}
if ioresult=0 then okfile:=true;
end;
 
BEGIN
OKNO(5,5,65,21,12,10);
write('Имя файла? ');
readln(nf);
clrscr;
writeln('Идет работа с файлом ',nf);
writeln;
if not okfile(nf) then file_cr(nf);
writeln('Что будем искать?');
writeln('1.Авто по цвету');
writeln('2.Авто по номеру');
writeln('3.Вывести базу данных на экран');
write('Ваш выбор: ');
readln(isk);
if isk='1' then begin
write('Введите цвет искомой машины: ');
readln(isearch_col);
file_search_col(isearch_col);
readln;
end;
if isk='2' then begin
write('Введите номер искомой машины: ');
readln(isearch_num);
file_search_num(isearch_num);
readln;
end;
if isk='3' then begin
file_vyv(nf);
readln;
end;
END.

@Rusalka · 22.05.2011, 15:21 **[ТС]**

спасибо)
я тоже кое-что чудом написала,это даже работает)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
procedure marka_chast;
var  mk,cv,rn: string[20];
    i,j:integer;
begin clrscr;
      write('vvedi marku dly poiska(): ');
      readln(mk);
      repeat
      if mk='matis' then
      j:=1
      else if mk='honda' then
      j:=2
      else j:=3;
      until(j=1) or (j=2) or (j=3);
      i:=2;
      case j of
      1:begin reset (f1);
      write ('vvedite cvet (): ');
      readln(cv);
      while not eof (f1) do
         begin read (f1,z);
           if pos(z.cvet,cv)<>0 then
            begin write('vvedi text dlya poiska(registr_nomer): ');
                  readln(rn);
               begin if pos(rn,z.registrnomer)<>0 then
                  begin
                  i:=i+1;
                  gotoxy(1,i);write(z.marka);
                  gotoxy(15,i);write(z.cvet);
                  gotoxy(23,i);write(z.godvypuska);
                  gotoxy(33,i);write(z.registrnomer);
                  gotoxy(45,i);write(z.adres);
               end
           else writeln ('sovpadeniy net');
         end;
      end;
      end;
  end;
      2:begin reset (f2);
      write ('vvedite cvet (): ');
      readln(cv);
      while not eof (f2) do
         begin  read(f2,z);
           if pos(z.cvet,cv)<>0  then
            begin write('vvedi text dlya poiska(registr_nomer): ');
                  readln(rn);
               begin if pos(rn,z.registrnomer)<>0 then
                  begin
                  i:=i+1;
                  gotoxy(1,i);write(z.marka);
                  gotoxy(15,i);write(z.cvet);
                  gotoxy(23,i);write(z.godvypuska);
                  gotoxy(33,i);write(z.registrnomer);
                  gotoxy(45,i);write(z.adres);
                  end
              else writeln ('sovpadeniy net');
              end;
            end
         end;
     end;
      3:begin reset (f3);
      write ('vvedite cvet (): ');
      readln(cv);
      while not eof (f3) do
         begin read(f3,z);
            if pos(z.cvet,cv)<>0  then
            begin write('vvedi text dlya poiska(registr_nomer): ');
                  readln(rn);
               begin if pos(rn,z.registrnomer)<>0 then
                  begin
                  i:=i+1;
                  gotoxy(1,i);write(z.marka);
                  gotoxy(15,i);write(z.cvet);
                  gotoxy(23,i);write(z.godvypuska);
                  gotoxy(33,i);write(z.registrnomer);
                  gotoxy(45,i);write(z.adres);
                  end
              else writeln ('sovpadeniy net');
              end;
            end
           end;
      end;
    end;
    readkey;
end;

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@Rusalka 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 8

	Создание трех типизированных файлов и выборка в них 20.05.2011, 17:05. Показов 806. Ответов 8 Метки нет (Все метки) Привет! у меня есть три БД с информацией о трех марках машин(например,BMW,HONDA,SKODA),размещен ные соответственно в трех файлах(f1,f2,f3) В них содержится информация:регистрационный номер(ББ****ББ),цвет,год выпуска авто и адрес владельца. и я совершенно не знаю,как мне написать процедуру для поиска авто заданной марки и цвета с не полностью известными цифрами числовой части регистр.номера буду вам ооочень благодарна за помощь,больше не знаю к кому обратиться! 0

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	20.05.2011, 17:17
	какой тип у файлов? 0

@Rusalka 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 8
	20.05.2011, 17:43 [ТС]
	var f1,f2,f3:file of zap; z:zap; я их сама в программе создаю и заполняю 0

@Rusalka 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 8
	20.05.2011, 18:27 [ТС]
	я не претендую на звание великого программиста,я вообще с программированием в сентябре встретилась,поэтому,мне кажется,можно простить что-то человеку,которому нужно написать программу с этими файлами,запросами,но который до этого знал только что такое блок схемы. я пытаюсь с этим разобраться,поэтому не купила тупо программу,а читаю методички и советуюсь с людьми,которые в этом как рыбы в воде. не надо очень строго) 0