База данных Игрушки

@Blondinka1992 · Регистрация: 26.05.2010

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

составить программу которая обеспечивает создание файла в котором содержатся сведения об игрушках , т.е название,стоимость,возрастные границы, а также выполнение изменений данных и поиск по следущим категориям 1. название игрушки стоимость не привышает 4000 руб и которая подходят детям до 4 лет. 2.цена и название самой дорогой игрушки.3. название игрушек которые подходят детям 4-10 лет.

@Puporev · 04.10.2010, 17:12

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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
uses crt;
type Tigr=record
          nam:string[20];
          stm:word;
          vz1:byte;
          vz2:byte;
          end;
     fail=file of Tigr;
var b:boolean;
procedure CreateFile(var f:fail);
var igr:Tigr;
begin
{Создание нового файла}
clrscr;
rewrite(f);
writeln('Введите сведения об игрушках в файл:');
repeat
with igr do
  begin
   write('Название: ');readln(nam);
   write('Цена: ');readln(stm);
   repeat
   write('Минимальный возраст: ');readln(vz1);
   until vz1 in [1..12];
   repeat
   write('Максимальный возраст: ');readln(vz2);
   until (vz2 in [2..14])and(vz2>vz1);
  end;
write(f,igr);
until readkey=#27;
close(f);
readln
end;
{шапка таблиц}
procedure Tabl;
begin
writeln('---------------------------------------------');
writeln('|   Название   |  Цена  | Ниж.воз | Вер.воз |');
writeln('---------------------------------------------');
end;
{открытие файла}
procedure ResetFile(var f:fail;var b:boolean);
begin
b:=true;
{$I-}reset(f);{$I+}
if IOResult<>0 then
 begin
  b:=false;
  writeln('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
end;
{просмотр файла}
procedure ReadFile(var f:fail);
var igr:Tigr;
begin
clrscr;
ResetFile(f,b);
writeln('Полный список игрушек:':40);
writeln;
Tabl;
while not eof(f) do
  begin
   read(f,igr);
   with igr do
     begin
      gotoXY(1,whereY);write('| ',nam);
      gotoXY(16,whereY);write('|',stm:7);
      gotoXY(25,whereY);write('|',vz1:6);
      gotoXY(35,whereY);write('|',vz2:7);
      gotoXY(45,whereY);writeln('|');
     end;
  end;
writeln('---------------------------------------------');
readln;
close(f);
end;
{замена записи}
procedure Zamena(var f:fail);
var n:integer;
    igr:Tigr;
begin
clrscr;
ResetFile(f,b);
write('Номер записи для замены n=');
readln(n);
if(n<1)or(filesize(f)<n) then
 begin
  writeln('В файле нет такой записи!');
  readln;
  exit;
 end;
writeln('Введите новые сведения об игрушке:');
with igr do
  begin
   write('Название: ');readln(nam);
   write('Цена: ');readln(stm);
   repeat
   write('Минимальный возраст: ');readln(vz1);
   until vz1 in [1..12];
   repeat
   write('Максимальный возраст: ');readln(vz2);
   until (vz2 in [2..14])and(vz2>vz1);
  end;
seek(f,n-1);
write(f,igr);
close(f);
readln
end;
{добавление записи}
procedure Add(var f:fail);
var igr:Tigr;
begin
clrscr;
ResetFile(f,b);
writeln('Введите сведения о добавляемой игрушке:');
with igr do
  begin
   write('Название: ');readln(nam);
   write('Цена: ');readln(stm);
   repeat
   write('Минимальный возраст: ');readln(vz1);
   until vz1 in [1..12];
   repeat
   write('Максимальный возраст: ');readln(vz2);
   until (vz2 in [2..14])and(vz2>vz1);
  end;
seek(f,filesize(f));
write(f,igr);
close(f);
readln
end;
{поиск до 4000}
procedure PoiskStm(var f:fail);
var igr:Tigr;
    k:byte;
begin
clrscr;
ResetFile(f,b);
writeln('Игрушки стоимостью до 4000 рб. для детей до 4 лет:');
writeln;
k:=0;
Tabl;
while not eof(f) do
  begin
   read(f,igr);
   if(igr.stm<4000)and(igr.vz2<=4)then
    begin
     k:=1;
     with igr do
      begin
       gotoXY(1,whereY);write('| ',nam);
       gotoXY(16,whereY);write('|',stm:7);
       gotoXY(25,whereY);write('|',vz1:6);
       gotoXY(35,whereY);write('|',vz2:7);
       gotoXY(45,whereY);writeln('|');
      end;
    end;
 end;
writeln('---------------------------------------------');
if k=0 then writeln('Таких игрушек нет!');
readln;
close(f);
end;
{самая дорогая}
procedure PoiskMax(var f:fail);
var igr:Tigr;
    cn:word;
    nz:string[20];
begin
clrscr;
ResetFile(f,b);
cn:=0;
while not eof(f) do
 begin
  read(f,igr);
  if igr.stm>cn then
   begin
    cn:=igr.stm;
    nz:=igr.nam;
   end;
 end;
writeln('Самая дорогая игрушка ',nz,' ее цена=',cn);
readln;
close(f);
end;
{от 4 до 10 лет}
procedure PoiskVzr(var f:fail);
var igr:Tigr;
    k:byte;
begin
clrscr;
ResetFile(f,b);
writeln('Игрушки подходящие детям от 4 до 10 лет:');
writeln;
k:=0;
Tabl;
while not eof(f) do
  begin
   read(f,igr);
   if(igr.vz1>=4)and(igr.vz2<=10)then
    begin
     k:=1;
     with igr do
      begin
       gotoXY(1,whereY);write('| ',nam);
       gotoXY(16,whereY);write('|',stm:7);
       gotoXY(25,whereY);write('|',vz1:6);
       gotoXY(35,whereY);write('|',vz2:7);
       gotoXY(45,whereY);writeln('|');
      end;
    end;
  end;
writeln('---------------------------------------------');
if k=0 then writeln('Таких игрушек нет!');
readln;
close(f);
end;
var f:fail;
    w:char;
begin
clrscr;
assign(f,'igr1.dat');
b:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-создать новый файл');
writeln('2-просмотреть файл');
writeln('3-изменить запись');
writeln('4-добавить запись');
writeln('5-найти игрушки до 4000 рб. для детей до 4 лет');
writeln('6-найти самую дорогую игрушку');
writeln('7-найти игрушки для детей от 4 до 10 лет');
writeln('другое-выход');
readln(w);
case w of
'1':CreateFile(f);
'2':Readfile(f);
'3':Zamena(f);
'4':Add(f);
'5':PoiskStm(f);
'6':PoiskMax(f);
'7':PoiskVzr(f);
else exit;
end;
until not (w in ['1'..'7']);
end.

@Gfest · 30.10.2010, 23:01

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

.

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
..
procedure Add(var f:fail);
var igr:Tigr;
begin
clrscr;
[B]ResetFile(f,b);[/B]
writeln('Введите сведения о добавляемой игрушке:');
with igr do
  begin
   write('Название: ');readln(nam);
   write('Цена: ');readln(stm);
   repeat
   write('Минимальный возраст: ');readln(vz1);
   until vz1 in [1..12];
   repeat
   write('Максимальный возраст: ');readln(vz2);
   until (vz2 in [2..14])and(vz2>vz1);
  end;
seek(f,filesize(f));
[B]write(f,igr);[/B]
close(f);
readln
end;
...

каким образом происходит запись в файл, который не открыт для записи?

@SuPeR XaKer · 30.10.2010, 23:08

ты имеещь ввиду отсутствие связи файловой переменной с внешним файлом?

begin
clrscr;
assign(f,'igr1.dat');
b:=false;

дык вот она в основном теле.

@Puporev · 30.10.2010, 23:10

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

который не открыт для записи?

А это что?

Pascal
1
2
3
4
5
procedure Add(var f:fail);
var igr:Tigr;
begin
clrscr;
ResetFile(f,b);//эта процедура проверяет и открывает файл

ты код-то весь смотри, а не куда кривая выведет.

@Мишан · 09.12.2011, 23:11

А почему при создании файла (1 пункт в меню) он зацикливается?
такого не должно быть
например, если я не хочу вводить дальше данные, пусть он выводит меня в центральное меню, а он требует создание еще дополнительных записей(

@Puporev · 10.12.2011, 06:05

Там выход из ввода данных Esc, надо было написать мне

Pascal
1
writeln('Введите сведения об игрушках в файл, окончание ввода Esc:');

@Tatyana2500000 · 30.12.2019, 19:05

if IOResult<>0 then
а если не работает? и показывает эту строчку, ее можно заменить

@Puporev · 30.12.2019, 20:22

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

а если не работает?

А Паскаль какой?

@Tatyana2500000 · 30.12.2019, 20:47

abc

@Puporev · 30.12.2019, 20:51

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
{открытие файла}
procedure ResetFile(var f:fail;fname:string;var b:boolean);
//fname - имя файла
begin
b:=true;
if not Fileexists(fname)then
 begin
  b:=false;
  writeln('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end;
end;

@Tatyana2500000 · 01.01.2020, 11:42

Исправила, но теперь указывает вот эту ошибку
ResetFile(f,b);
неверное количество параметров...

@Puporev · 01.01.2020, 12:06

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

ResetFile(f,b);

Нужен третий параметр имя файла, например
объявление процедуры

Pascal
1
RsetFile(f,fname,b);

ее вызов

Pascal
1
2
assign(f,'igr1.dat');
RsetFile(f,'igr1.dat',b);

@Tatyana2500000 · 01.01.2020, 12:29

ясно, предположу что я уже немного надоела, но не могли бы написать в программе самой, чтоб наглядно увидеть?

@Puporev · 01.01.2020, 13:13

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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
uses crt;
type Tigr=record
          nam:string[20];
          stm:integer;
          vz1:byte;
          vz2:byte;
          end;
     fail=file of Tigr;
const fname='igr1.dat';//чтобы имя файла не писать в каждой процедуре
                          //объявим его константой
var b:boolean;
procedure CreateFile(var f:fail);
var igr:Tigr;
    ch:char;
begin
{Создание нового файла}
clrscr;
rewrite(f);
writeln('Введите сведения об игрушках в файл:');
repeat
with igr do
  begin
   write('Название: ');readln(nam);
   write('Цена: ');readln(stm);
   repeat
   write('Минимальный возраст: ');readln(vz1);
   until vz1 in [1..12];
   repeat
   write('Максимальный возраст: ');readln(vz2);
   until (vz2 in [2..14])and(vz2>vz1);
  end;
write(f,igr);
repeat
writeln('Добавить записи еще? y/Y - да n/N - нет');
readln(ch);
until upcase(ch) in ['Y','N'];
until upcase(ch)='N';
close(f);
end;
{шапка таблиц}
procedure Tabl;
begin
writeln('---------------------------------------------');
writeln('|   Название   |  Цена  | Ниж.воз | Вер.воз |');
writeln('---------------------------------------------');
end;
{открытие файла}
procedure ResetFile(var f:fail;var b:boolean);
begin
b:=true;
if not fileexists(fname)then
 begin
  b:=false;
  writeln('Файл еще не создан, вернитесь к пункту 1');
  readln;
  exit;
 end
else reset(f);
end;
{просмотр файла}
procedure ReadFile(var f:fail);
var igr:Tigr;
begin
clrscr;
ResetFile(f,b);
writeln('Полный список игрушек:':40);
writeln;
Tabl;
while not eof(f) do
  begin
   read(f,igr);
   with igr do
     begin
      gotoXY(1,whereY);write('| ',nam);
      gotoXY(16,whereY);write('|',stm:7);
      gotoXY(25,whereY);write('|',vz1:6);
      gotoXY(35,whereY);write('|',vz2:7);
      gotoXY(45,whereY);writeln('|');
     end;
  end;
writeln('---------------------------------------------');
writeln('Нажмите Enter');
readln;
close(f);
end;
{замена записи}
procedure Zamena(var f:fail);
var n:integer;
    igr:Tigr;
begin
clrscr;
ResetFile(f,b);
write('Номер записи для замены n=');
readln(n);
if(n<1)or(filesize(f)<n) then
 begin
  writeln('В файле нет такой записи!');
  readln;
  exit;
 end;
writeln('Введите новые сведения об игрушке:');
with igr do
  begin
   write('Название: ');readln(nam);
   write('Цена: ');readln(stm);
   repeat
   write('Минимальный возраст: ');readln(vz1);
   until vz1 in [1..12];
   repeat
   write('Максимальный возраст: ');readln(vz2);
   until (vz2 in [2..14])and(vz2>vz1);
  end;
seek(f,n-1);
write(f,igr);
close(f);
writeln('Нажмите Enter');
readln
end;
{добавление записи}
procedure Add(var f:fail);
var igr:Tigr;
begin
clrscr;
ResetFile(f,b);
writeln('Введите сведения о добавляемой игрушке:');
with igr do
  begin
   write('Название: ');readln(nam);
   write('Цена: ');readln(stm);
   repeat
   write('Минимальный возраст: ');readln(vz1);
   until vz1 in [1..12];
   repeat
   write('Максимальный возраст: ');readln(vz2);
   until (vz2 in [2..14])and(vz2>vz1);
  end;
seek(f,filesize(f));
write(f,igr);
close(f);
writeln('Нажмите Enter');
readln
end;
{поиск до 4000}
procedure PoiskStm(var f:fail);
var igr:Tigr;
    k:byte;
begin
clrscr;
ResetFile(f,b);
writeln('Игрушки стоимостью до 4000 рб. для детей до 4 лет:');
writeln;
k:=0;
Tabl;
while not eof(f) do
  begin
   read(f,igr);
   if(igr.stm<4000)and(igr.vz2<=4)then
    begin
     k:=1;
     with igr do
      begin
       gotoXY(1,whereY);write('| ',nam);
       gotoXY(16,whereY);write('|',stm:7);
       gotoXY(25,whereY);write('|',vz1:6);
       gotoXY(35,whereY);write('|',vz2:7);
       gotoXY(45,whereY);writeln('|');
      end;
    end;
 end;
writeln('---------------------------------------------');
if k=0 then writeln('Таких игрушек нет!');
writeln('Нажмите Enter');
readln;
close(f);
end;
{самая дорогая}
procedure PoiskMax(var f:fail);
var igr:Tigr;
    cn:word;
    nz:string[20];
begin
clrscr;
ResetFile(f,b);
cn:=0;
while not eof(f) do
 begin
  read(f,igr);
  if igr.stm>cn then
   begin
    cn:=igr.stm;
    nz:=igr.nam;
   end;
 end;
writeln('Самая дорогая игрушка ',nz,' ее цена=',cn);
writeln('Нажмите Enter');
readln;
close(f);
end;
{от 4 до 10 лет}
procedure PoiskVzr(var f:fail);
var igr:Tigr;
    k:byte;
begin
clrscr;
ResetFile(f,b);
writeln('Игрушки подходящие детям от 4 до 10 лет:');
writeln;
k:=0;
Tabl;
while not eof(f) do
  begin
   read(f,igr);
   if(igr.vz1>=4)and(igr.vz2<=10)then
    begin
     k:=1;
     with igr do
      begin
       gotoXY(1,whereY);write('| ',nam);
       gotoXY(16,whereY);write('|',stm:7);
       gotoXY(25,whereY);write('|',vz1:6);
       gotoXY(35,whereY);write('|',vz2:7);
       gotoXY(45,whereY);writeln('|');
      end;
    end;
  end;
writeln('---------------------------------------------');
if k=0 then writeln('Таких игрушек нет!');
writeln('Нажмите Enter');
readln;
close(f);
end;
var f:fail;
    w:char;
begin
clrscr;
assign(f,'igr1.dat');
b:=false;
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-создать новый файл');
writeln('2-просмотреть файл');
writeln('3-изменить запись');
writeln('4-добавить запись');
writeln('5-найти игрушки до 4000 рб. для детей до 4 лет');
writeln('6-найти самую дорогую игрушку');
writeln('7-найти игрушки для детей от 4 до 10 лет');
writeln('другое-выход');
readln(w);
case w of
'1':CreateFile(f);
'2':Readfile(f);
'3':Zamena(f);
'4':Add(f);
'5':PoiskStm(f);
'6':PoiskMax(f);
'7':PoiskVzr(f);
else exit;
end;
until not (w in ['1'..'7']);
end.

@Tatyana2500000 · 01.01.2020, 13:19

огромное спасибо)))) и с новым годом!))))

@Tatyana2500000 · 08.01.2020, 21:35

и еще небольшая просьба, удалите последний пример, если это возможно

@Puporev · 09.01.2020, 06:26

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

удалите последний пример,

Нельзя.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Blondinka1992 0 / 0 / 0 Регистрация: 26.05.2010 Сообщений: 29

	База данных Игрушки 04.10.2010, 15:25. Показов 8027. Ответов 17 Метки нет (Все метки) составить программу которая обеспечивает создание файла в котором содержатся сведения об игрушках , т.е название,стоимость,возрастные границы, а также выполнение изменений данных и поиск по следущим категориям 1. название игрушки стоимость не привышает 4000 руб и которая подходят детям до 4 лет. 2.цена и название самой дорогой игрушки.3. название игрушек которые подходят детям 4-10 лет. 0

@Мишан 0 / 0 / 0 Регистрация: 09.12.2011 Сообщений: 4
	09.12.2011, 23:11
	А почему при создании файла (1 пункт в меню) он зацикливается? такого не должно быть например, если я не хочу вводить дальше данные, пусть он выводит меня в центральное меню, а он требует создание еще дополнительных записей( 0

@Tatyana2500000 0 / 0 / 0 Регистрация: 30.12.2019 Сообщений: 7
	30.12.2019, 19:05
	if IOResult<>0 then а если не работает? и показывает эту строчку, ее можно заменить 0

@Tatyana2500000 0 / 0 / 0 Регистрация: 30.12.2019 Сообщений: 7
	30.12.2019, 20:47
	abc 0

@Tatyana2500000 0 / 0 / 0 Регистрация: 30.12.2019 Сообщений: 7
	01.01.2020, 11:42
	Исправила, но теперь указывает вот эту ошибку ResetFile(f,b); неверное количество параметров... 0

@Tatyana2500000 0 / 0 / 0 Регистрация: 30.12.2019 Сообщений: 7
	01.01.2020, 12:29
	ясно, предположу что я уже немного надоела, но не могли бы написать в программе самой, чтоб наглядно увидеть? 0

@Tatyana2500000 0 / 0 / 0 Регистрация: 30.12.2019 Сообщений: 7
	01.01.2020, 13:19
	огромное спасибо)))) и с новым годом!)))) 0

@Tatyana2500000 0 / 0 / 0 Регистрация: 30.12.2019 Сообщений: 7
	08.01.2020, 21:35
	и еще небольшая просьба, удалите последний пример, если это возможно 0

База данных Игрушки

Решение