Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
1

Описать работу с прайс-листом

21.03.2009, 23:34. Просмотров 1775. Ответов 2
Метки нет (Все метки)

Всем киберцам привет!
Требуется такое:
Вывод операций из меню
1)Ввод данных
2)Просмотр введённых данных
3)Коррекция введённых данных
4)Сортировка
5)Удаление
6)Поиск(по введённому в строку)

А задача такова.
Это должен быть прайслист. Вводим название обьекта,цену и кол-во.
Думаю,что дальше вы и сами догадаетесь,на что опираться. Помогите пожалуйста.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2009, 23:34
Ответы с готовыми решениями:

Прайс лист
Дан прайс лист компьютерной фирмы вывысти на экран: 1) список товаров...

Записи, прайс-лист.
не могу построить программу на такое задание на два массива, Фирма AVON...

Дан массив записей,представляющий собой прайс-лист косметического салона
Дан массив записей,представляющий собой прайс-лист косметического...

Создать массив прайс-лист , хранящий информацию о товарах, предлагаемых фирмой К
Создать массив прайс-лист , хранящий информацию о товарах, предлагаемых фирмой...

Описать каждую строчку кода функции либо описать как осуществляется решение этой данной функции
Дана функция и хотелось бы узнать как происходит решение это функции или же...

2
Мятный
2 / 2 / 2
Регистрация: 09.03.2009
Сообщений: 28
22.03.2009, 05:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Ты хотябы задачу бы правельно переписал бы xDDD А то про провода не слово не сказал ))))))))))

Добавлено через 3 минуты 6 секунд
Вот решение твоей задачи:
Всё компилица, всё работает кроме поиска когда вводиш данные выдает exit code = 217 с этим разобратся не вышло, тут пускай уже умные люди помогают xD

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
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
program pr_uz_3;
uses crt;
type
        Net=record
        conect:string[40];
        conectkol:real;
        conectcen:real;
           modem:string[40];
           modemkol:real;
           modemcen:real;
              ruter:string[40];
              ruterkol:real;
              rutercen:real;
                 cable:string[40];
                 cablekol:real;
                 cablecen:real;
end;
 
var
        f,sr:file of Net;
        k:Net;
        st:string;
        nr,w,s:integer;
        kol,cen:real;
 
 
 
procedure SortByName;
var
 
 One1, One2: Net;
 pos1, pos2, f_size: Longint;
begin
   Reset(f);
    rewrite(sr);
      while not eof(f) do
      begin
      read(f,k);
      write(sr,k);
      end;
    close(sr);
   close(f);
 
 
 
 
    Reset(sr);
    pos1:=0;
    f_size:=FileSize(sr) - 1;
    while pos1 < f_size do begin
      Seek(sr, pos1); Read(sr, One1);
      pos2 := pos1 + 1;
      while pos2 <= f_size do begin
        Seek(sr, pos2); Read(sr, One2);
           if One1.conect > One2.conect then begin
             Seek(sr, pos1); write(sr, One2);
             Seek(sr, pos2); write(sr, One1);
             One1 := One2;
           end;
        inc(pos2);
      end;
      inc(pos1);
    end;
  Close(sr);
end;
 
 
 
begin
Repeat
clrscr;
assign(f,'H:\file.txt');
assign(sr,'H:\sort.txt');
 
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('1. Popolnenie dannih');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('2. Prosmotretj vesj tovar');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('3. Korrekcija informacii o tovare');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('4. Sortirovka');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('5. Udalenie informacii');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('6. Poisk');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('7. Vijti zi programmi');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
 
readln(w);
clrscr;
 
 
case w of
1:begin
reset(f);
seek(f,filesize(f));
    repeat
        writeln('Nazvanie konektora: ');
        readln(k.conect);
        writeln('Kol-vo konektorov: ');
        readln(k.conectkol);
        writeln('Cena konektorov: ');
        readln(k.conectcen);
            writeln('Nazvanie modema: ');
            readln(k.modem);
            writeln('Kol-vo modemov: ');
            readln(k.modemkol);
            writeln('Cena modemov: ');
            readln(k.modemcen);
                 writeln('Nazvanie rutera: ');
                 readln(k.ruter);
                 writeln('Kol-vo ruterov: ');
                 readln(k.ruterkol);
                 writeln('Cena ruterov: ');
                 readln(k.rutercen);
                      writeln('Nazvanie kabelej: ');
                      readln(k.cable);
                      writeln('Dlinna kabelej: ');
                      readln(k.cablekol);
                      writeln('Cena kabelej: ');
                      readln(k.cablecen);
      write(f,k);
      write('Prodolzitj vvod dannih (J/N)? ');
      repeat
        st:=upcase(readkey);
      until (st='J') or (st='N');
      writeln(st)
     until st='N';
     close(f);
  end;
 
2:begin
        reset(f);
        while not EOF(f) do begin
        read(f,k);
          write('Konektori: ',k.conect);
          write(' | kol-vo: ',k.conectkol:0:2,' wt.');
          write(' | cena: ',k.conectcen:0:2,' Ls');
          writeln;
              write('Modemi: ',k.modem);
              write(' | kol-vo: ',k.modemkol:0:2,' wt.');
              write(' | cena: ',k.modemcen:0:2,' Ls');
              writeln;
                 write('Ruteri: ',k.ruter);
                 write(' | kol-vo: ',k.ruterkol:0:2,' wt.');
                 write(' | cena: ',k.rutercen:0:2,' Ls');
                 writeln;
                     write('Kabelja: ',k.cable);
                     write(' | dlinna: ',k.cablekol:0:2,' m');
                      write(' | cena: ',k.cablecen:0:2,' Ls');
                      writeln;
textcolor(green); writeln('================================================================================'); textcolor(7);
 
        end;
        Readln;
        close(f);
 
  end;
 
3:begin
        reset(f);
        write('Vvedite nomer tovara ot 0 do  ',
          filesize(f)-1,': ');
        readln(nr);
        seek(f,nr);
        write('Nazvanie konektora: ');
        readln(k.conect);
        write('Kol-vo konektorov: ');
        readln(k.conectkol);
        write('Cena konektorov: ');
        readln(k.conectcen);
            write('Nazvanie modema: ');
            readln(k.modem);
            write('Kol-vo modemov: ');
            readln(k.modemkol);
            write('Cena modemov: ');
            readln(k.modemcen);
                 write('Nazvanie rutera: ');
                 readln(k.ruter);
                 write('Kol-vo ruterov: ');
                 readln(k.ruterkol);
                 write('Cena ruterov: ');
                 readln(k.rutercen);
                      write('Nazvanie kabelej: ');
                      readln(k.cable);
                      write('Dlinna kabelej: ');
                      readln(k.cablekol);
                      write('Cena kabelej: ');
                      readln(k.cablecen);
 
        write(f,k);
        close(f);
 
  end;
 
4:begin
     SortByName;
       textcolor(3) ;  writeln('Sortirovka po pervoj bukve nazvanija konektora...'); textcolor(7);
writeln;
     reset(sr);
        while not eof(sr) do begin
        read(sr,k);
             write('Konektori: ',k.conect);
          write(' kol-vo: ',k.conectkol:0:2);
          write(' cena: ',k.conectcen:0:2);
          writeln;
              write('Modemi: ',k.modem);
              write(' kol-vo: ',k.modemkol:0:2);
              write(' cena: ',k.modemcen:0:2);
              writeln;
                 write('Ruteri: ',k.ruter);
                 write(' kol-vo: ',k.ruterkol:0:2);
                 write(' cena: ',k.rutercen:0:2);
                 writeln;
                     write('Kabelja: ',k.cable);
                     write(' kol-vo: ',k.cablekol:0:2);
                      write(' cena: ',k.cablecen:0:2);
                      writeln;
                   textcolor(green); writeln('======================================================================'); textcolor(7);
        end;
             readln;
      close(sr);
 end;
 
 
5:begin
   reset(f);
   write('Vvedite nomer tovara ot 0 do ',
          filesize(f)-1, '): ');
   readln(nr);
   seek(f,nr+1);
   while not eof(f) do
     begin read(f,k);
     seek (f,nr);
     write (f,k);
     nr:=nr+1;
     seek(f,nr+1)
    end;
   seek(f,filesize(f)-1);
   truncate(f);
   close(f);
  end;
 
 
6:begin
 
 
writeln('Poisk: ');
writeln;
writeln('1.Konektora');
writeln('2.Modema');
writeln('3.Rutera');
writeln('4.Kabelja');
 
read(s);
 
if (s=1) then begin
reset(f);
textcolor(3); writeln('Dlja poiska konektora vvedite sledujushuju informaciju: '); textcolor(7);
 writeln;
 write('Vvedite kol-vo konektorov: ');
 readln(kol);
 write('Vvedite cenu konektorov: ');
 readln(cen);
   while not eof(f) do
 begin
   read(f,k);
     if pos(kol,k.conectkol) and pos(cen,k.conectcen) > 0 then
  writeln('S takimi dannimi najden tovar: ',k.conect)
  else writeln('Tovara s takimi dannimi netu.');
  end;
end;
 
 
 
if (s=2) then  begin
 
textcolor(3); writeln('Dlja poiska modema vvedite sledujushuju informaciju: '); textcolor(7);
 writeln;
 write('Vvedite kol-vo modemov: ');
 readln(kol);
 write('Vvedite cenu modemov: ');
 readln(cen);
   while not eof(f) do
 begin
   read(f,k);
     if pos(kol,k.modemkol) and pos(cen,k.modemcen) > 0 then
  writeln('S takimi dannimi najden tovar: ',k.modem)
  else writeln('Tovara s takimi dannimi netu.');
  end;
end;
 
if (s=3) then begin
 
textcolor(3); writeln('Dlja poiska rutera vvedite sledujushuju informaciju: '); textcolor(7);
 writeln;
 write('Vvedite kol-vo ruterov: ');
 readln(kol);
 write('Vvedite cenu ruterov: ');
 readln(cen);
   while not eof(f) do
 begin
   read(f,k);
     if pos(kol,k.ruterkol) and pos(cen,k.rutercen) > 0 then
  writeln('S takimi dannimi najden tovar: ',k.ruter)
     else writeln('Tovara s takimi dannimi netu.');
  end;
end;
 
if (s=4) then begin
 
textcolor(3); writeln('Dlja poiska kabelja vvedite sledujushuju informaciju: '); textcolor(7);
 writeln;
 write('Vvedite kol-vo kabelej: ');
 readln(kol);
 write('Vvedite cenu kabelej: ');
 readln(cen);
   while not eof(f) do
 begin
   read(f,k);
     if pos(kol,k.cablekol) and pos(cen,k.cablecen) > 0 then
  writeln('S takimi dannimi najden tovar: ',k.cable)
     else writeln('Tovara s takimi dannimi netu.');
  end;
end;
 
close(f);
 
 
end;
 
 
 
 
 
 
 
 
7:writeln('Vihod s programmi');
 
end;
 
        writeln;
        WRITELN('Nazmite ljubuju klavishu chtobi prodolzitj ...');
        readkey;
        until w=7;
 
end.
Добавлено через 18 минут 42 секунды
А вот и готовый код с работующим поиском! =) Незабудь поменять котигорию где у тебя будут распологатся текстовые файлы. Лютику привет, а я пошел спать.

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
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
program pr_uz_3;
uses crt;
type
        Net=record
        conect:string[40];
        conectkol:string[10];
        conectcen:string[10];
           modem:string[40];
           modemkol:string[10];
           modemcen:string[10];
              ruter:string[10];
              ruterkol:string[10];
              rutercen:string[10];
                 cable:string[40];
                 cablekol:string[10];
                 cablecen:string[10];
end;
 
var
        f,sr:file of Net;
        k:Net;
        st,kol,cen:string;
        nr,w,s:integer;
 
 
 
 
procedure SortByName;
var
 
 One1, One2: Net;
 pos1, pos2, f_size: Longint;
begin
   Reset(f);
    rewrite(sr);
      while not eof(f) do
      begin
      read(f,k);
      write(sr,k);
      end;
    close(sr);
   close(f);
 
 
 
 
    Reset(sr);
    pos1:=0;
    f_size:=FileSize(sr) - 1;
    while pos1 < f_size do begin
      Seek(sr, pos1); Read(sr, One1);
      pos2 := pos1 + 1;
      while pos2 <= f_size do begin
        Seek(sr, pos2); Read(sr, One2);
           if One1.conect > One2.conect then begin
             Seek(sr, pos1); write(sr, One2);
             Seek(sr, pos2); write(sr, One1);
             One1 := One2;
           end;
        inc(pos2);
      end;
      inc(pos1);
    end;
  Close(sr);
end;
 
 
 
begin
Repeat
clrscr;
assign(f,'H:\file.txt');
assign(sr,'H:\sort.txt');
 
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('1. Popolnenie dannih');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('2. Prosmotretj vesj tovar');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('3. Korrekcija informacii o tovare');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('4. Sortirovka');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('5. Udalenie informacii');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('6. Poisk');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln('7. Vijti zi programmi');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
 
readln(w);
clrscr;
 
 
case w of
1:begin
reset(f);
seek(f,filesize(f));
    repeat
        writeln('Nazvanie konektora: ');
        readln(k.conect);
        writeln('Kol-vo konektorov: ');
        readln(k.conectkol);
        writeln('Cena konektorov: ');
        readln(k.conectcen);
            writeln('Nazvanie modema: ');
            readln(k.modem);
            writeln('Kol-vo modemov: ');
            readln(k.modemkol);
            writeln('Cena modemov: ');
            readln(k.modemcen);
                 writeln('Nazvanie rutera: ');
                 readln(k.ruter);
                 writeln('Kol-vo ruterov: ');
                 readln(k.ruterkol);
                 writeln('Cena ruterov: ');
                 readln(k.rutercen);
                      writeln('Nazvanie kabelej: ');
                      readln(k.cable);
                      writeln('Dlinna kabelej: ');
                      readln(k.cablekol);
                      writeln('Cena kabelej: ');
                      readln(k.cablecen);
      write(f,k);
      write('Prodolzitj vvod dannih (J/N)? ');
      repeat
        st:=upcase(readkey);
      until (st='J') or (st='N');
      writeln(st)
     until st='N';
     close(f);
  end;
 
2:begin
        reset(f);
        while not EOF(f) do begin
        read(f,k);
          write('Konektori: ',k.conect);
          write(' | kol-vo: ',k.conectkol,' wt.');
          write(' | cena: ',k.conectcen,' Ls');
          writeln;
              write('Modemi: ',k.modem);
              write(' | kol-vo: ',k.modemkol,' wt.');
              write(' | cena: ',k.modemcen,' Ls');
              writeln;
                 write('Ruteri: ',k.ruter);
                 write(' | kol-vo: ',k.ruterkol,' wt.');
                 write(' | cena: ',k.rutercen,' Ls');
                 writeln;
                     write('Kabelja: ',k.cable);
                     write(' | dlinna: ',k.cablekol,' m');
                      write(' | cena: ',k.cablecen,' Ls');
                      writeln;
textcolor(green); writeln('================================================================================'); textcolor(7);
 
        end;
        Readln;
        close(f);
 
  end;
 
3:begin
        reset(f);
        write('Vvedite nomer tovara ot 0 do  ',
          filesize(f)-1,': ');
        readln(nr);
        seek(f,nr);
        write('Nazvanie konektora: ');
        readln(k.conect);
        write('Kol-vo konektorov: ');
        readln(k.conectkol);
        write('Cena konektorov: ');
        readln(k.conectcen);
            write('Nazvanie modema: ');
            readln(k.modem);
            write('Kol-vo modemov: ');
            readln(k.modemkol);
            write('Cena modemov: ');
            readln(k.modemcen);
                 write('Nazvanie rutera: ');
                 readln(k.ruter);
                 write('Kol-vo ruterov: ');
                 readln(k.ruterkol);
                 write('Cena ruterov: ');
                 readln(k.rutercen);
                      write('Nazvanie kabelej: ');
                      readln(k.cable);
                      write('Dlinna kabelej: ');
                      readln(k.cablekol);
                      write('Cena kabelej: ');
                      readln(k.cablecen);
 
        write(f,k);
        close(f);
 
  end;
 
4:begin
     SortByName;
       textcolor(3) ;  writeln('Sortirovka po pervoj bukve nazvanija konektora...'); textcolor(7);
writeln;
     reset(sr);
        while not eof(sr) do begin
        read(sr,k);
             write('Konektori: ',k.conect);
          write(' kol-vo: ',k.conectkol);
          write(' cena: ',k.conectcen);
          writeln;
              write('Modemi: ',k.modem);
              write(' kol-vo: ',k.modemkol);
              write(' cena: ',k.modemcen);
              writeln;
                 write('Ruteri: ',k.ruter);
                 write(' kol-vo: ',k.ruterkol);
                 write(' cena: ',k.rutercen);
                 writeln;
                     write('Kabelja: ',k.cable);
                     write(' kol-vo: ',k.cablekol);
                      write(' cena: ',k.cablecen);
                      writeln;
                   textcolor(green); writeln('======================================================================'); textcolor(7);
        end;
             readln;
      close(sr);
 end;
 
 
5:begin
   reset(f);
   write('Vvedite nomer tovara ot 0 do ',
          filesize(f)-1, '): ');
   readln(nr);
   seek(f,nr+1);
   while not eof(f) do
     begin read(f,k);
     seek (f,nr);
     write (f,k);
     nr:=nr+1;
     seek(f,nr+1)
    end;
   seek(f,filesize(f)-1);
   truncate(f);
   close(f);
  end;
 
 
6:begin
 
 
writeln('Poisk: ');
writeln;
writeln('1.Konektora');
writeln('2.Modema');
writeln('3.Rutera');
writeln('4.Kabelja');
 
readln(s);
 
if (s=1) then begin
reset(f);
textcolor(3); writeln('Dlja poiska konektora vvedite sledujushuju informaciju: '); textcolor(7);
 writeln;
 write('Vvedite kol-vo konektorov: ');
 readln(kol);
 write('Vvedite cenu konektorov: ');
 readln(cen);
   while not eof(f) do
 begin
   read(f,k);
     if pos(kol,k.conectkol) and pos(cen,k.conectcen) > 0 then
  writeln('S takimi dannimi najden tovar: ',k.conect)
  else writeln('Tovara s takimi dannimi netu.');
  end;
end;
 
 
 
if (s=2) then  begin
reset(f);
textcolor(3); writeln('Dlja poiska modema vvedite sledujushuju informaciju: '); textcolor(7);
 writeln;
 write('Vvedite kol-vo modemov: ');
 readln(kol);
 write('Vvedite cenu modemov: ');
 readln(cen);
   while not eof(f) do
 begin
   read(f,k);
     if pos(kol,k.modemkol) and pos(cen,k.modemcen) > 0 then
  writeln('S takimi dannimi najden tovar: ',k.modem)
  else writeln('Tovara s takimi dannimi netu.');
  end;
end;
 
if (s=3) then begin
reset(f);
textcolor(3); writeln('Dlja poiska rutera vvedite sledujushuju informaciju: '); textcolor(7);
 writeln;
 write('Vvedite kol-vo ruterov: ');
 readln(kol);
 write('Vvedite cenu ruterov: ');
 readln(cen);
   while not eof(f) do
 begin
   read(f,k);
     if pos(kol,k.ruterkol) and pos(cen,k.rutercen) > 0 then
  writeln('S takimi dannimi najden tovar: ',k.ruter)
     else writeln('Tovara s takimi dannimi netu.');
  end;
end;
 
if (s=4) then begin
reset(f);
textcolor(3); writeln('Dlja poiska kabelja vvedite sledujushuju informaciju: '); textcolor(7);
 writeln;
 write('Vvedite kol-vo kabelej: ');
 readln(kol);
 write('Vvedite cenu kabelej: ');
 readln(cen);
   while not eof(f) do
 begin
   read(f,k);
     if pos(kol,k.cablekol) and pos(cen,k.cablecen) > 0 then
  writeln('S takimi dannimi najden tovar: ',k.cable)
     else writeln('Tovara s takimi dannimi netu.');
  end;
end;
 
close(f);
 
 
end;
 
 
 
 
 
 
 
 
7:writeln('Vihod s programmi');
 
end;
 
        writeln;
        WRITELN('Nazmite ljubuju klavishu chtobi prodolzitj ...');
        readkey;
        until w=7;
 
end.
1
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
25.03.2009, 00:54  [ТС] 3
Благодарю.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2009, 00:54

Обработка прайс листа для торговых площадок Копирование данных с одного листа на другой
Всем привет кто знает и может помогите Копирование данных с одного листа на...

Проблема с Прайс Листом
Помогите пожалуйста с Прайс Листом. 3 месяца мучаюсь. Пытаюсь в 1с УТ 10.3.3.3...

Описать работу ателье
Уважаемые господа програмисты, просто зачыпаюсь, хоть и год учил с++ всёравно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru