С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 12.08.2018
Сообщений: 2
1

Не могу осуществить редактирование записи

12.08.2018, 22:02. Показов 633. Ответов 2
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Первый пост на форуме,поэтому могу ошибаться как правильно постить.
неведомая куча символов скорее из-за того что использую Turbo Pascal(но в нем же нет копирования текста программы?), а вставил при помощи АВС pascal


Может ли кто помочь реализовать процедуру редактирования? Процедура Redact, сейчас, если что, там просто набор бреда

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
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402

Program Laba;
Uses
  Crt;
Type
  Footplayer=record
    Name:string;
    Number:1..99;
    Team:string;
    Goals:integer;
    Penalty:integer
  end;
  FileSp=file of Footplayer;
  Adr=^Zveno;
  Zveno=record
    Adrcled:Adr;
    Player:Footplayer;
  end;
 
Var
  Adr1:Adr;
  c:char;
  St:String;
  I:integer;
 
{‚лў®¤ в*Ў«Ёжл}
Procedure WriteTab;
begin
  GotoXY(1,1);
  Writeln('ЪДДВДДДДДДДДДДДДДДВДДДДДДДДДВДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДї');
  Writeln('іь і €¬п ЁЈа®Є*   і  Ќ®¬Ґа  і   Ќ*§ў**ЁҐ   і    Љ®«ЁзҐбвў®     і   Љ®«ЁзҐбвў® і');
  Writeln('і  і              і  ЁЈа®Є* і   Є®¬**¤л    і      Ј®«®ў        іива*д*ле ®зЄ®ўі');
  Writeln('ГДДЕДДДДДДДДДДДДДДЕДДДДДДДДДЕДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДґ');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('і  і              і         і              і                   і              і');
  Writeln('АДДБДДДДДДДДДДДДДДБДДДДДДДДДБДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДЩ');
end;
 
{ЋзЁбвЄ* Є®¬**¤*®© бва®ЄЁ}
Procedure ClrSt;
var
  I:integer;
begin
  GotoXY(1,21);
  for I:=1 to 80 do write(' ');
  GotoXY(1,21);
end;
 
{‡*Јаг§Є* бЇЁбЄ*}
Procedure LoadSp(Stroka:String;Adres1:Adr);
var
  Spisok:FileSp;
  El:Footplayer;
  Adrzv:Adr;
begin
  Assign(Spisok,Stroka);
  {$I-}
  Reset(Spisok);
  {$I+}
  if IOResult=0 then
      begin
        Adrzv:=Adres1;
        Adrzv^.Adrcled:=Nil;
        while not Eof(Spisok) do
          begin
            read(Spisok,El);
            New(Adrzv^.Adrcled);
            Adrzv:=Adrzv^.Adrcled;
            Adrzv^.Adrcled:=Nil;
            Adrzv^.Player:=El
          end;
        Close(Spisok);
      end
    else
      begin
        ClrSt;
        write(' ”*©« *Ґ ®Ў**а㦥*. „«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ <Enter>...');
        readln;
        ClrSt;
      end;
end;
 
{ЋзЁбвЄ* бЇЁбЄ*}
Procedure ClrSp;
var
  X,Y,I:integer;
begin
  X:=2;
  Y:=5;
    for I:=1 to 15 do
      begin
        GotoXY(X,Y+(I-1)); write('  ');
        GotoXY(X+3,Y+(I-1)); write('              ');
        GotoXY(X+18,Y+(I-1)); write('         ');
        GotoXY(X+31,Y+(I-1)); write('         ');
        GotoXY(X+51,Y+(I-1)); write('   ');
        GotoXY(X+69,Y+(I-1)); write('   ');
      end;
  GotoXY(1,21)
end;
 
{‚лў®¤ бЇЁбЄ*}
Procedure WriteSp(Adres1:Adr);
var
  X,Y,N:integer;
  Adrzv:Adr;
begin
  ClrSp;
  N:=1;
  X:=2;
  Y:=5;
  Adrzv:=Adres1^.Adrcled;
  while Adrzv<>Nil do
    begin
      GotoXY(X,Y); write(N:2);
      GotoXY(X+3,Y); write(Adrzv^.Player.Name:13);
      GotoXY(X+18,Y); write(Adrzv^.Player.Number:7);
      GotoXY(X+31,Y); write(Adrzv^.Player.Team:6);
      GotoXY(X+51,Y); write(Adrzv^.Player.Goals:2);
      GotoXY(X+69,Y); write(Adrzv^.Player.Penalty:2);
      ClrSt;
      N:=N+1;
      Y:=Y+1;
      Adrzv:=Adrzv^.Adrcled;
      if (((N-1) mod 15)=0) and (Adrzv<>Nil) then
        begin
          write(' „«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ <Enter>...');
          readln;
          Y:=5;
          ClrSp
          end;
    end;
  ClrSt;
end;
 
 
{‚лў®¤ бЇЁбЄ* Ё§ 10}
Procedure WriteSp10(Adres1:Adr);
var
  N,X,Y:integer;
  Adrzv:Adr;
begin
  ClrSp;
  N:=1;
  X:=2;
  Y:=5;
  Adrzv:=Adres1^.Adrcled;
  while Adrzv<>Nil  do
    begin
      GotoXY(X,Y); write(N:2);
      GotoXY(X+3,Y); write(Adrzv^.Player.Name:13);
      GotoXY(X+18,Y); write(Adrzv^.Player.Number:7);
      GotoXY(X+31,Y); write(Adrzv^.Player.Team:6);
      GotoXY(X+51,Y); write(Adrzv^.Player.Goals:2);
      GotoXY(X+69,Y); write(Adrzv^.Player.Penalty:2);
      ClrSt;
      N:=N+1;
      Y:=Y+1;
      Adrzv:=Adrzv^.Adrcled;
      if N>10 then
        begin
          write(' „«п ўлў®¤* ®б*®ў*®© в*Ў«Ёжл **¦¬ЁвҐ <Enter>...');
          readln;
          WriteSP(Adres1);
          break;
          end;
    end;
    ClrSt;
  end;
 
 
 
 
{„®Ў*ў«Ґ*ЁҐ н«Ґ¬Ґ*в*}
Procedure Dobavl(Adres1:Adr);
var
  El:Footplayer;
  Q,Adrzv:Adr;
begin
  Adrzv:=Adres1;
  write(' €¬п ЁЈа®Є*: '); readln(El.Name); ClrSt;
  write(' Ќ®¬Ґа ЁЈа®Є*: '); readln(El.Number); ClrSt;
  write(' Ќ*§ў**ЁҐ Є®¬**¤л: '); readln(El.Team); ClrSt;
  write(' Љ®«ЁзҐбвў* Ј®«®ў: '); readln(El.Goals); ClrSt;
  write(' Љ®«ЁзҐбвў® ива*д*ле ®зЄ®ў: '); readln(El.Penalty); ClrSt;
  New(Q);
  while Adrzv^.Adrcled<>Nil do Adrzv:=Adrzv^.Adrcled;
  Q^.Player:=El;
  Q^.Adrcled:=Adrzv^.Adrcled;
  Adrzv^.Adrcled:=Q;
end;
 
{“¤*«Ґ*ЁҐ н«Ґ¬Ґ*в*}
Procedure Udal(Adres1:Adr);
var
  Q:Adr;
  I,N:integer;
  Adrzv:Adr;
begin
  Adrzv:=Adres1;
  write(' ‚ўҐ¤ЁвҐ *®¬Ґа г¤*«пҐ¬®Ј® н«Ґ¬Ґ*в*:  '); readln(N); ClrSt;
  for I:=1 to (N-1) do Adrzv:=Adrzv^.Adrcled;
  Q:=Adrzv^.Adrcled;
  Adrzv^.Adrcled:=Adrzv^.Adrcled^.Adrcled;
  dispose(Q);
end;
 
{ђҐ¤*ЄвЁа®ў**ЁҐ н«Ґ¬Ґ*в*}
Procedure Redact(Adres1:Adr);
var
  El:Footplayer;
  Q,Adrzv:Adr;
  I,N: integer;
begin
  write(' ‚ўҐ¤ЁвҐ *®¬Ґа ।*ЄвЁа㥬®Ј® н«Ґ¬Ґ*в*:  '); readln(I); ClrSt;
  Write(' ‚ўҐ¤ЁвҐ *®¬Ґа бв®«Ўж* Ё§¬Ґ*Ґ*Ёп (2-6):  '); readln(N); Clrst;
    case N of
  2: begin
   write(' €¬п ЁЈа®Є*: '); readln(El.Name); ClrSt;
   Adrzv^.Player.Name:=El.Name;
 
       end;
  3: begin
   write(' Ќ®¬Ґа ЁЈа®Є*: '); readln(El.Number); ClrSt;
   end;
  4: Begin
   write(' Ќ*§ў**ЁҐ Є®¬**¤л: '); readln(El.Team); ClrSt;
   end;
  5: begin
   write(' Љ®«ЁзҐбвў* Ј®«®ў: '); readln(El.Goals); ClrSt;
   end;
  6: begin
   write(' Љ®«ЁзҐбвў® ива*д*ле ®зЄ®ў: '); readln(El.Penalty); ClrSt;
  end;
end;
end;
 
 
 
{‘®§¤**ЁҐ бЇЁбЄ*}
Procedure NewSp(Adres1:Adr);
var
  Adrzv:Adr;
  Ch:char;
begin
  Adrzv:=Adres1;
  Adrzv^.Adrcled:=Nil;
  Ch:='Y';
  Repeat
    if (Ch='Y') or (Ch='y') then
      begin
        Dobavl(Adrzv);
        Adrzv:=Adrzv^.Adrcled
      end;
    WriteSp(Adres1);
    write(' „®Ў*ўЁвм б«Ґ¤гойЁ© н«Ґ¬Ґ*в ў бЇЁб®Є (Y/N): '); readln(Ch); ClrSt;
  until (Ch='N') or (Ch='n');
end;
 
{‘®еа**Ґ*ЁҐ бЇЁбЄ*}
Procedure SaveSp(Adres1:Adr);
var
  Spisok:FileSp;
  St:String;
  Adrzv:Adr;
begin
  write(' ‡*ЇЁб*вм ў д*©«: '); readln(St); ClrSt;
  Assign(Spisok,St);
  Rewrite(Spisok);
  Adrzv:=Adres1;
  while Adrzv^.Adrcled<>Nil do
    begin
      Adrzv:=Adrzv^.Adrcled;
      write(Spisok,Adrzv^.Player);
    end;
  Close(Spisok);
  write(' ”*©« б®еа**Ґ*. „«п Їа®¤®«¦Ґ*Ёп **¦¬ЁвҐ <Enter>...');
  readln; ClrSt;
end;
 
{10 “бЇҐи*ле ЁЈа®Є®ў}
Procedure Succsess(Adres1:Adr);
var
  Adrzv:Adr;
  El:FootPlayer;
  I:integer;
begin
  repeat
    I:=0;
    Adrzv:=Adres1^.Adrcled;
    while Adrzv^.Adrcled<>Nil do
      begin
        if Adrzv^.Player.Goals<Adrzv^.Adrcled^.Player.Goals then
          begin
            I:=1;
            El:=Adrzv^.Player;
            Adrzv^.Player:=Adrzv^.Adrcled^.Player;
            Adrzv^.Adrcled^.Player:=El;
          end;
        Adrzv:=Adrzv^.Adrcled;
      end;
  until I=0;
 
end;
 
{10 ЁЈа®Є®ў б®ива*д*л¬Ё ®зЄ*¬Ё}
Procedure Unsuccsess(Adres1:Adr);
var
  Adrzv:Adr;
  El:FootPlayer;
  I:integer;
begin
  repeat
    I:=0;
    Adrzv:=Adres1^.Adrcled;
    while Adrzv^.Adrcled<>Nil do
      begin
        if Adrzv^.Player.Penalty<Adrzv^.Adrcled^.Player.Penalty then
          begin
            I:=1;
            El:=Adrzv^.Player;
            Adrzv^.Player:=Adrzv^.Adrcled^.Player;
            Adrzv^.Adrcled^.Player:=El;
          end;
        Adrzv:=Adrzv^.Adrcled;
      end;
  until I=0;
end;
 
 
 
{‚лў®¤ ¬Ґ*о}
Procedure WriteM;
begin
  gotoXY(1,23);
  writeln('1 - ‡*Јаг§Ёвм бЇЁб®Є           2 - ‘®еа**Ёвм бЇЁб®Є        3 - ‘®§¤*вм бЇЁб®Є');
  writeln('4 - 10 ‘*¬ле гбЇҐи*ле ЁЈа®Є®ў  5 - “¤*«Ёвм н«Ґ¬Ґ*в         6 - „®Ў*ўЁвм н«Ґ¬Ґ*в');
  write('7 - 10 €Ја®Є®ў б® ива*д*¬Ё     8 - ђҐ¤*ЄвЁа®ў**ЁҐ н«Ґ¬Ґ*в* 9 - ‚л室');
end;
 
{Ћб*®ў**п Їа®Ја*¬¬*}
Begin
 
 
  ClrScr;
  WriteTab;
  WriteM;
  New(Adr1);
  Adr1^.Adrcled:=Nil;
  ClrSt;
  St:='';
  while C<>'9' do
    begin
      write(' ‚лЎҐаЁвҐ ¤Ґ©бвўЁҐ >> '); readln(C); ClrSt;
      case C of
        '1':begin
              write(' ‚ўҐ¤ЁвҐ Ї®«*®Ґ Ё¬п ®вЄалў*Ґ¬®Ј® д*©«*: ');
              readln(St);
              LoadSp(St,Adr1);
              WriteSp(Adr1)
            end;
        '2':SaveSp(Adr1);
        '3':begin
              ClrSp;
              NewSp(Adr1);
              WriteSp(Adr1)
            end;
        '4':begin
              Succsess(Adr1);
              WriteSp10(Adr1);
            end;
        '5':begin
              Udal(Adr1);
              WriteSp(Adr1)
            end;
        '6':begin
              Dobavl(Adr1);
              WriteSp(Adr1)
            end;
        '7':begin
              Unsuccsess(Adr1);
              WriteSp10(Adr1)
            end;
        '8':begin
              Redact(Adr1);
              WriteSp(Adr1)
            end;
      end;
    end;
End.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 12.08.2018, 22:02
Ответы с готовыми решениями:

осуществить редактирование БД при выборе определённой таблицы
Помогите осуществить редактирование БД при выборе определённой таблицы. у меня подключено на одной...

Как осуществить редактирование документа Word двумя пользователями одновременно?
Доброго дня Всем. Можно ли сделать так, чтобы один документ Word редактировался двумя...

Как осуществить поиск по записи в таблице БД
Необходимо найти в конкретном поле записи таблицы слово или словосочетание, и при этом вывести это...

Не могу осуществить Copyrect
Доброго времени суток. не могу скопировать часть изображения из одной области в другую. ...

2
Почетный модератор
64303 / 47600 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
13.08.2018, 09:04 2
Цитата Сообщение от Lecras Посмотреть сообщение
Turbo Pascal(но в нем же нет копирования текста программы?),
Откройте файл .pas в текстовом редакторе, например в Блокноте или в том же АВС и скопируйте.
Для публикаци это нужно перекодировать из DOS в Win, например с помощью программ декодеров
напрмер
https://www.cyberforum.ru/atta... 8505833или
https://www.cyberforum.ru/atta... 1430221410
второй проще и я пользуюсь им.
0
0 / 0 / 0
Регистрация: 12.08.2018
Сообщений: 2
13.08.2018, 15:13  [ТС] 3
Спасибо, 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
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
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403

Program Laba;
Uses
  Crt;
Type
  Footplayer=record
    Name:string;
    Number:1..99;
    Team:string;
    Goals:integer;
    Penalty:integer
  end;
  FileSp=file of Footplayer;
  Adr=^Zveno;
  Zveno=record
    Adrcled:Adr;
    Player:Footplayer;
  end;
 
Var
  Adr1:Adr;
  c:char;
  St:String;
  I:integer;
 
{Вывод таблицы}
Procedure WriteTab;
begin
  GotoXY(1,1);
  Writeln('---T--------------T---------T--------------T-------------------T--------------¬');
  Writeln('¦№ ¦ Имя игрока   ¦  Номер  ¦   Название   ¦    Количество     ¦   Количество ¦');
  Writeln('¦  ¦              ¦  игрока ¦   команды    ¦      голов        ¦штрафных очков¦');
  Writeln('+--+--------------+---------+--------------+-------------------+--------------+');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('¦  ¦              ¦         ¦              ¦                   ¦              ¦');
  Writeln('L--+--------------+---------+--------------+-------------------+---------------');
end;
 
{Очистка командной строки}
Procedure ClrSt;
var
  I:integer;
begin
  GotoXY(1,21);
  for I:=1 to 80 do write(' ');
  GotoXY(1,21);
end;
 
{Загрузка списка}
Procedure LoadSp(Stroka:String;Adres1:Adr);
var
  Spisok:FileSp;
  El:Footplayer;
  Adrzv:Adr;
begin
  Assign(Spisok,Stroka);
  {$I-}
  Reset(Spisok);
  {$I+}
  if IOResult=0 then
      begin
        Adrzv:=Adres1;
        Adrzv^.Adrcled:=Nil;
        while not Eof(Spisok) do
          begin
            read(Spisok,El);
            New(Adrzv^.Adrcled);
            Adrzv:=Adrzv^.Adrcled;
            Adrzv^.Adrcled:=Nil;
            Adrzv^.Player:=El
          end;
        Close(Spisok);
      end
    else
      begin
        ClrSt;
        write(' Файл не обнаружен. Для продолжения нажмите <Enter>...');
        readln;
        ClrSt;
      end;
end;
 
{Очистка списка}
Procedure ClrSp;
var
  X,Y,I:integer;
begin
  X:=2;
  Y:=5;
    for I:=1 to 15 do
      begin
        GotoXY(X,Y+(I-1)); write('  ');
        GotoXY(X+3,Y+(I-1)); write('              ');
        GotoXY(X+18,Y+(I-1)); write('         ');
        GotoXY(X+31,Y+(I-1)); write('         ');
        GotoXY(X+51,Y+(I-1)); write('   ');
        GotoXY(X+69,Y+(I-1)); write('   ');
      end;
  GotoXY(1,21)
end;
 
{Вывод списка}
Procedure WriteSp(Adres1:Adr);
var
  X,Y,N:integer;
  Adrzv:Adr;
begin
  ClrSp;
  N:=1;
  X:=2;
  Y:=5;
  Adrzv:=Adres1^.Adrcled;
  while Adrzv<>Nil do
    begin
      GotoXY(X,Y); write(N:2);
      GotoXY(X+3,Y); write(Adrzv^.Player.Name:13);
      GotoXY(X+18,Y); write(Adrzv^.Player.Number:7);
      GotoXY(X+31,Y); write(Adrzv^.Player.Team:6);
      GotoXY(X+51,Y); write(Adrzv^.Player.Goals:2);
      GotoXY(X+69,Y); write(Adrzv^.Player.Penalty:2);
      ClrSt;
      N:=N+1;
      Y:=Y+1;
      Adrzv:=Adrzv^.Adrcled;
      if (((N-1) mod 15)=0) and (Adrzv<>Nil) then
        begin
          write(' Для продолжения нажмите <Enter>...');
          readln;
          Y:=5;
          ClrSp
          end;
    end;
  ClrSt;
end;
 
 
{Вывод списка из 10}
Procedure WriteSp10(Adres1:Adr);
var
  N,X,Y:integer;
  Adrzv:Adr;
begin
  ClrSp;
  N:=1;
  X:=2;
  Y:=5;
  Adrzv:=Adres1^.Adrcled;
  while Adrzv<>Nil  do
    begin
      GotoXY(X,Y); write(N:2);
      GotoXY(X+3,Y); write(Adrzv^.Player.Name:13);
      GotoXY(X+18,Y); write(Adrzv^.Player.Number:7);
      GotoXY(X+31,Y); write(Adrzv^.Player.Team:6);
      GotoXY(X+51,Y); write(Adrzv^.Player.Goals:2);
      GotoXY(X+69,Y); write(Adrzv^.Player.Penalty:2);
      ClrSt;
      N:=N+1;
      Y:=Y+1;
      Adrzv:=Adrzv^.Adrcled;
      if N>10 then
        begin
          write(' Для вывода основной таблицы нажмите <Enter>...');
          readln;
          WriteSP(Adres1);
          break;
          end;
    end;
    ClrSt;
  end;
 
 
 
 
{Добавление элемента}
Procedure Dobavl(Adres1:Adr);
var
  El:Footplayer;
  Q,Adrzv:Adr;
begin
  Adrzv:=Adres1;
  write(' Имя игрока: '); readln(El.Name); ClrSt;
  write(' Номер игрока: '); readln(El.Number); ClrSt;
  write(' Название команды: '); readln(El.Team); ClrSt;
  write(' Количества голов: '); readln(El.Goals); ClrSt;
  write(' Количество штрафных очков: '); readln(El.Penalty); ClrSt;
  New(Q);
  while Adrzv^.Adrcled<>Nil do Adrzv:=Adrzv^.Adrcled;
  Q^.Player:=El;
  Q^.Adrcled:=Adrzv^.Adrcled;
  Adrzv^.Adrcled:=Q;
end;
 
{Удаление элемента}
Procedure Udal(Adres1:Adr);
var
  Q:Adr;
  I,N:integer;
  Adrzv:Adr;
begin
  Adrzv:=Adres1;
  write(' Введите номер удаляемого элемента:  '); readln(N); ClrSt;
  for I:=1 to (N-1) do Adrzv:=Adrzv^.Adrcled;
  Q:=Adrzv^.Adrcled;
  Adrzv^.Adrcled:=Adrzv^.Adrcled^.Adrcled;
  dispose(Q);
end;
 
{Редактирование элемента}
Procedure Redact(Adres1:Adr);
var
  El:Footplayer;
  Q,Adrzv:Adr;
  I,N: integer;
begin
  Adrzv:=Adres1;
  write(' Введите номер редактируемого элемента:  '); readln(N); ClrSt;
  for I:=1 to (N-1) do Adrzv:=Adrzv^.Adrcled;
  Q:=Adrzv^.Adrcled;
  Adrzv^.Adrcled:=Adrzv^.Adrcled^.Adrcled;
  dispose(Q);
 
  write(' Имя игрока: '); readln(El.Name); ClrSt;
  write(' Номер игрока: '); readln(El.Number); ClrSt;
  write(' Название команды: '); readln(El.Team); ClrSt;
  write(' Количества голов: '); readln(El.Goals); ClrSt;
  write(' Количество штрафных очков: '); readln(El.Penalty); ClrSt;
  New(Q);
  while Adrzv^.Adrcled<>Nil do Adrzv:=Adrzv^.Adrcled;
  Q^.Player:=El;
  Q^.Adrcled:=Adrzv^.Adrcled;
  Adrzv^.Adrcled:=Q;
end;
 
 
 
 
 
 
 
 
{Создание списка}
Procedure NewSp(Adres1:Adr);
var
  Adrzv:Adr;
  Ch:char;
begin
  Adrzv:=Adres1;
  Adrzv^.Adrcled:=Nil;
  Ch:='Y';
  Repeat
    if (Ch='Y') or (Ch='y') then
      begin
        Dobavl(Adrzv);
        Adrzv:=Adrzv^.Adrcled
      end;
    WriteSp(Adres1);
    write(' Добавить следующий элемент в список (Y/N): '); readln(Ch); ClrSt;
  until (Ch='N') or (Ch='n');
end;
 
{Сохранение списка}
Procedure SaveSp(Adres1:Adr);
var
  Spisok:FileSp;
  St:String;
  Adrzv:Adr;
begin
  write(' Записать в файл: '); readln(St); ClrSt;
  Assign(Spisok,St);
  Rewrite(Spisok);
  Adrzv:=Adres1;
  while Adrzv^.Adrcled<>Nil do
    begin
      Adrzv:=Adrzv^.Adrcled;
      write(Spisok,Adrzv^.Player);
    end;
  Close(Spisok);
  write(' Файл сохранен. Для продолжения нажмите <Enter>...');
  readln; ClrSt;
end;
 
{10 Успешных игроков}
Procedure Succsess(Adres1:Adr);
var
  Adrzv:Adr;
  El:FootPlayer;
  I:integer;
begin
  repeat
    I:=0;
    Adrzv:=Adres1^.Adrcled;
    while Adrzv^.Adrcled<>Nil do
      begin
        if Adrzv^.Player.Goals<Adrzv^.Adrcled^.Player.Goals then
          begin
            I:=1;
            El:=Adrzv^.Player;
            Adrzv^.Player:=Adrzv^.Adrcled^.Player;
            Adrzv^.Adrcled^.Player:=El;
          end;
        Adrzv:=Adrzv^.Adrcled;
      end;
  until I=0;
 
end;
 
{10 игроков соштрафными очками}
Procedure Unsuccsess(Adres1:Adr);
var
  Adrzv:Adr;
  El:FootPlayer;
  I:integer;
begin
  repeat
    I:=0;
    Adrzv:=Adres1^.Adrcled;
    while Adrzv^.Adrcled<>Nil do
      begin
        if Adrzv^.Player.Penalty<Adrzv^.Adrcled^.Player.Penalty then
          begin
            I:=1;
            El:=Adrzv^.Player;
            Adrzv^.Player:=Adrzv^.Adrcled^.Player;
            Adrzv^.Adrcled^.Player:=El;
          end;
        Adrzv:=Adrzv^.Adrcled;
      end;
  until I=0;
end;
 
 
 
{Вывод меню}
Procedure WriteM;
begin
  gotoXY(1,23);
  writeln('1 - Загрузить список           2 - Сохранить список        3 - Создать список');
  writeln('4 - 10 Самых успешных игроков  5 - Удалить элемент         6 - Добавить элемент');
  write('7 - 10 Игроков со штрафами     8 - Редактирование элемента 9 - Выход');
end;
 
{Основная программа}
Begin
 
 
  ClrScr;
  WriteTab;
  WriteM;
  New(Adr1);
  Adr1^.Adrcled:=Nil;
  ClrSt;
  St:='';
  while C<>'9' do
    begin
      write(' Выберите действие >> '); readln(C); ClrSt;
      case C of
        '1':begin
              write(' Введите полное имя открываемого файла: ');
              readln(St);
              LoadSp(St,Adr1);
              WriteSp(Adr1)
            end;
        '2':SaveSp(Adr1);
        '3':begin
              ClrSp;
              NewSp(Adr1);
              WriteSp(Adr1)
            end;
        '4':begin
              Succsess(Adr1);
              WriteSp10(Adr1);
            end;
        '5':begin
              Udal(Adr1);
              WriteSp(Adr1)
            end;
        '6':begin
              Dobavl(Adr1);
              WriteSp(Adr1)
            end;
        '7':begin
              Unsuccsess(Adr1);
              WriteSp10(Adr1)
            end;
        '8':begin
              Redact(Adr1);
              WriteSp(Adr1)
            end;
      end;
    end;
End.
0
13.08.2018, 15:13
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 13.08.2018, 15:13
Помогаю со студенческими работами здесь

Редактирование записи
Не могу сообразить почему так, и как это исправить? На форме редактирование, если исправить...

редактирование записи
Здравствуйте! Помогите пожалуйста. У меня есть форма на которой отображается записи таблицы. Мне...

редактирование записи
У меня тут странная вещь произошла: Делаю возможность редактирования справочника, т.е. нажимаешь...

Редактирование записи
Помогите разобраться с ошибкой. Нажимаю на запись из таблицы, загружаются инпуты соответствующими...


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

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

Новые блоги и статьи
Администрирован­­­ие Git, продвинутые техники работы с Git
InfoMaster 11.01.2025
Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .
Что такое HCL Notes и как с ним работать
InfoMaster 10.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .
Как работать с Git из Windows и Visual Studio
InfoMaster 10.01.2025
Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python
InfoMaster 10.01.2025
Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .
Отличия абстрактного класса от интерфейса
InfoMaster 10.01.2025
В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .
Как работать в Git
InfoMaster 10.01.2025
Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C#
InfoMaster 10.01.2025
Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих
InfoMaster 10.01.2025
В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru