Исключение указанного и следующего за ним элементов в списке

@taoariya · Регистрация: 09.10.2017

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

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

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
procedure Exception(var l: tList);//исключение указанного эл.
var
   p, q: tPtr;
   k, i: integer;
begin
   writeln( 'Номер удаляемого элемента: ' ); readln(k);
    if NotEmpty(l)  then begin
       if k <= Counter(l) then begin
          new (q);
          p := l;
          for i := 1 to k do
             p := p^.next;
             Drop(p);
          WriteList(l);
        end
        else
           writeln('Элемента с таким номером не существует');
        end
     else
        Error( 'Список пуст' );
end;
 
procedure ExcFoll(var l: tList);// исключение эл., следующего за данным
var
   p, q: tPtr;
   k, i: integer;
begin
   writeln( 'Номер удаляемого элемента: ' ); readln(k);
      if NotEmpty(l)  then begin
       if k <= Counter(l) then begin
          new (q);
          p := l;
          for i := 1 to k - 1 do
             p := p^.next;
         q^.next := p^.next;
         p^.next := q;
          Drop(p);
          WriteList(p);
        end
        else
           writeln('Элемента с таким номером не существует');
        end
     else
        Error( 'Список пуст' );
end;

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
program list;
 
type
   tData = integer;
   
   tPtr = ^tNode;
   
   tNode = record
      data: tData;
      next: tPtr;
      prev: tPtr;
   end;
   
   tList = tPtr;
 
var
   key: integer;//пункт меню
   l: tList;
 
procedure Error(message: string);//выдача сообщения об ошибке
begin
   writeln('*** Ошибка: ' + message );
   writeln;
end;
 
procedure Init(var l: tList);//инициализация  списка
begin
   l := nil;
end;
 
function NotEmpty(l: tList): Boolean;//список не пуст
begin
   NotEmpty := l <> nil;
end;
 
procedure Put(var l: tList; D: tData);
var
   p{, p1}: tPtr;
begin
   new(p);
   p^.data := D;
   p^.next := l;
   l := p;
   //p^.prev := p1;
end;
 
procedure Drop(var l: tList);//удалить элемент
var
   p{, p1}: tPtr;
begin
   p := l;
   l := l^.next;
  { p1 := l;
   l := l^.prev;}
   Dispose(p);
end;
 
procedure Clear(var l: tList);//очистка
begin
   while NotEmpty(l) do
      Drop(l);
end;
 
procedure WriteList(var l: tList);
var
   p: tPtr;
begin
   p := l;
   while p <> nil do 
   begin
      write(p^.data, ' ');
      p := p^.next;
   end;
end;
 
procedure Fill(var l: tList);//заполнить список
var
   x: tData;
begin
   Clear(l);
   writeln( 'Вводите элементы(целые числа) по одному' );
   writeln( 'Конец ввода - 0' );
   repeat
      write( '? ' ); readln(x);
      if x <> 0 then
         Put(l, x);
   until x = 0;
end;
 
function Counter(l: tList): integer;//счетчик числа элементов
var
   p: tPtr;
   n: integer;
begin
   n := 0;
   p := l;
   while p <> nil do 
   begin
      n := n + 1;
      p := p^.next;
   end;
   Counter := n;
end;
 
procedure CountList(l: tList);//подсчитать число элементов
begin
   writeln( 'Число элементов в списке равно ', Counter(l) );
end;
 
procedure Add1(var l: tList);//включение эл. после указанного
var
   i, k: integer;
   q, p: tPtr;
   D: tData;
begin
   writeln( 'Номер элемента: ' ); readln(k);
   if k <= Counter(l) then begin
      new(q);
      writeln( 'Задайте значение элемента: ' ); readln(q^.data);
      p := l;
      for i := 1 to k - 1 do 
         p := p^.next;
      q^.next := p^.next;
      p^.next := q;
      WriteList(l);
   end
   else 
      writeln('Элемента с таким номером не существует');
end;
 
procedure Add2(var l: tList);//включение эл. перед указанным
var
   q, p: tPtr;
   i, k: integer;
begin
   writeln( 'Номер элемента: ' ); readln(k);
   if k <= Counter(l) then begin
      new(q);
      writeln( 'Задайте значение элемента: ' ); readln(q^.data);
      if k = 1 then begin
         q^.next := l;
         l := q;
         WriteList(l)
      end
      else begin
         p := l;
         for i := 1 to k - 2 do
            p := p^.next;
         q^.next := p^.next;
         p^.next := q;
         WriteList(l);
      end
   end
   else 
      writeln('Элемента с таким номером не существует');
end;
 
procedure Exception(var l: tList);//исключение указанного эл., доделать
var
   p, q: tPtr;
   k, i: integer;
begin
   writeln( 'Номер удаляемого элемента: ' ); readln(k);
    if NotEmpty(l)  then begin
       if k <= Counter(l) then begin
          new (q);
          p := l;
          for i := 1 to k do
             p := p^.next;
             Drop(p);
          WriteList(l);
        end
        else
           writeln('Элемента с таким номером не существует');
        end
     else
        Error( 'Список пуст' );
end;
 
procedure ExcFoll(var l: tList);// исключение эл., следующего за данным
var
   p, q: tPtr;
   k, i: integer;
begin
   writeln( 'Номер удаляемого элемента: ' ); readln(k);
      if NotEmpty(l)  then begin
       if k <= Counter(l) then begin
          new (q);
          p := l;
          for i := 1 to k - 1 do
             p := p^.next;
         q^.next := p^.next;
         p^.next := q;
          Drop(p);
          WriteList(p);
        end
        else
           writeln('Элемента с таким номером не существует');
        end
     else
        Error( 'Список пуст' );
end;
 
procedure ShowMenu;//показать меню
begin
   writeln( 'Операции с двунаправленным списком ' );
   writeln( '-------------------------------' );
   writeln( '1 - Заполнение         2 - Очистка ' );
   writeln( '3 - Вывод на экран   4 - Число элементов ' );
   writeln( '5 - Включение элемента после указанного' );
   writeln( '6 - Включение элемента перед указанным ' );
   writeln( '7 - Исключение указанного элемента ' );
   writeln( '8 - Исключение элемента, следующего за указанным ' );
   writeln( '0 - Выход ' );
   writeln( 'Выберите нужный пункт ' );
end;
 
 
begin
   Init(l);
   ShowMenu;
   repeat
      writeln;
      write( '>' );
      readln(key);
      case key of
         1: Fill(l); //заполнить список
         2: Clear(l); //очистить
         3: WriteList(l); //напечатать
         4: CountList(l); //подсчитать число элементов
         5: Add1(l); //включение эл. после указанного
         6: Add2(l); //включение эл. перед указанным
         7: Exception(l); //исключение указанного эл.
         8: ExcFoll(l); //исключение эл., следующего за указанным
         0:             {Пусто};
      else
         ShowMenu;
      end;
   until key = 0;
end.

@JuriiMW · 08.05.2018, 09:53

Зачем у вас лишнее описание „tList = tPtr;“?

Если отрабатывает какая-то процедура, то нужно вспоминать, что там у вас было в меню… ShowMenu нужно запихнуть в цикл.

Процедура WriteList не выдаст ни какой информации, если список пуст. И зачем в ней задавать лишнюю переменную?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure WhiteEnter;
begin 
  Write('Нажмите Enter для возврата в основное меню...'); ReadLn;
end;
 
procedure WriteList(var l: tList);
begin
  Write('Список:');
  if l = nil then
    Write(' пусто')
  else
    while l <> nil do 
      begin
        write(' ', l^.data);
        l := l^.next;
      end;
  WriteLn('.');
  WhiteEnter;
end;

Аналогично в Count:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function Counter(l: tList): integer;//счетчик числа элементов
var
   n: integer;
begin
  n := 0;
  while l <> nil do 
    begin
      n := n + 1;
      l := l^.next;
    end;
  Counter := n;
end;
 
procedure CountList(l: tList);//подсчитать число элементов
begin
  writeln( 'Число элементов в списке равно ', Counter(l) );
  WhiteEnter;
end;

У вас на экран выводиться «Операции с двунаправленным списком», но вы не используете двунаправленность… Даже не пытаетесь что-то присвоить prev!

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
type
   tData = integer;
   
   tPtr = ^tNode;
   tNode = record
      data: tData;
      next: tPtr;
      prev: tPtr;
   end;
   
   tList = tPtr;
 
procedure WhiteEnter;
begin 
  Write('Нажмите Enter для возврата в основное меню...'); ReadLn;
end;
 
procedure Error(message: string);//выдача сообщения об ошибке
begin
   writeln('*** Ошибка: ' + message );
   writeln;
end;
 
procedure Init(var l: tList);//инициализация  списка
begin
   l := nil;
end;
 
function NotEmpty(l: tList): Boolean;//список не пуст
begin
   NotEmpty := l <> nil;
end;
 
function GetTail(l : tList) : tList; // Получить хвост списка
begin
  if l <> nil then
    while l^.next <> nil do
      l := l^.next;
  GetTail := l;
end;
 
function NewElem(D : tData; prev, next : tList) : tList; // Вставить новый элемент
var
  p : tList;
begin
  New(p);
  p^.data := D;
  p^.prev := prev;
  p^.next := next;
  NewElem := p;
end;
 
procedure Put(var l: tList; D: tData);
var
  p: tPtr;
begin
  p := GetTail(l); // Получить хвост
  if p = nil then
    l := NewElem(D, nil, nil) // Это начало
  else
    p^.next := NewElem(D, p, nil); // Это новый хвост
end;
 
procedure Drop(var l: tList);//удалить элемент
var
  p: tPtr;
begin
  p := l;
  l := l^.next;
  l^.prev := p^.prev;
  Dispose(p);
  if l^.prev <> nil then
    l^.prev^.next := l;
end;
 
procedure Clear(var l: tList);//очистка
begin
  while NotEmpty(l) do
    Drop(l);
end;
 
procedure WriteList(l: tList);
var n : Integer;
begin
  n := 0;
  Write('Список:');
  if l = nil then
    Write(' пусто')
  else
    while l <> nil do 
      begin
        inc(n);
        write(' (', n, ') ', l^.data);
        l := l^.next;
      end;
  WriteLn('.');
  WhiteEnter;
end;
 
procedure Fill(var l: tList);//заполнить список
var
   x: tData;
begin
  while NotEmpty(l) do
    Drop(l);
  writeln( 'Вводите элементы(целые числа) по одному' );
  writeln( 'Конец ввода - 0' );
  repeat
     write( '? ' ); readln(x);
     if x <> 0 then
       Put(l, x);
  until x = 0;
  WriteLn('Ввод элементов завершен.'); WhiteEnter;
end;
 
function Counter(l: tList): integer;//счетчик числа элементов
var
   n: integer;
begin
  n := 0;
  while l <> nil do 
    begin
      n := n + 1;
      l := l^.next;
    end;
  Counter := n;
end;
 
procedure CountList(l: tList);//подсчитать число элементов
begin
  writeln( 'Число элементов в списке равно ', Counter(l) );
  WhiteEnter;
end;
 
procedure ShowMenu;//показать меню
begin
   writeln( 'Операции с двунаправленным списком ' );
   writeln( '-------------------------------' );
   writeln( '1 - Заполнение         2 - Очистка ' );
   writeln( '3 - Вывод на экран   4 - Число элементов ' );
   writeln( '5 - Включение элемента после указанного' );
   writeln( '6 - Включение элемента перед указанным ' );
   writeln( '7 - Исключение указанного элемента ' );
   writeln( '8 - Исключение элемента, следующего за указанным ' );
   writeln( '0 - Выход ' );
   writeln( 'Выберите нужный пункт ' );
end;
 
var
   key: integer;//пункт меню
   l: tList;
begin
  Init(l);
  repeat
    writeln;
    ShowMenu;
    write( '>' );
    readln(key);
    case key of
      1: Fill(l); //заполнить список
      2: Clear(l); //очистить
      3: WriteList(l); //напечатать
      4: CountList(l); //подсчитать число элементов
      //5: Add1(l); //включение эл. после указанного
      //6: Add2(l); //включение эл. перед указанным
      //7: Exception(l); //исключение указанного эл.
      //8: ExcFoll(l); //исключение эл., следующего за указанным
      0:             {Пусто};
    end;
  until key = 0;
end.

Добавлено через 1 час 40 минут
Окончательный вариант программы с включёнными всеми пунктами меню:

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
type
   tData = integer;
   
   tPtr = ^tNode;
   tNode = record
      data: tData;
      next: tPtr;
      prev: tPtr;
   end;
   
   tList = tPtr;
 
procedure WhiteEnter;
begin 
  Write('Нажмите Enter для возврата в основное меню...'); ReadLn;
end;
 
procedure Error(message: string);//выдача сообщения об ошибке
begin
   writeln('*** Ошибка: ' + message );
   writeln;
end;
 
procedure Init(var l: tList);//инициализация  списка
begin
   l := nil;
end;
 
function NotEmpty(l: tList): Boolean;//список не пуст
begin
   NotEmpty := l <> nil;
end;
 
function GetTail(l : tList) : tList; // Получить хвост списка
begin
  if l <> nil then
    while l^.next <> nil do
      l := l^.next;
  GetTail := l;
end;
 
function NewElem(D : tData; prev, next : tList) : tList; // Вставить новый элемент
var
  p : tList;
begin
  New(p);
  p^.data := D;
  p^.prev := prev;
  p^.next := next;
  NewElem := p;
end;
 
procedure Put(var l: tList; D: tData);
var
  p: tPtr;
begin
  p := GetTail(l); // Получить хвост
  if p = nil then
    l := NewElem(D, nil, nil) // Это начало
  else
    p^.next := NewElem(D, p, nil); // Это новый хвост
end;
 
procedure ClearAll(var l: tList);
var
  p : tList;
begin
  while l <> nil do
    begin
      p := l;
      l := l^.next;
      Dispose(p);
    end;
end;
 
procedure Clear(var l: tList);//очистка
begin
  ClearAll(l);
  WriteLn('Список очищен.');
  WhiteEnter;
end;
 
procedure WriteList(l: tList);
var n : Integer;
begin
  n := 0;
  Write('Список:');
  if l = nil then
    Write(' пусто')
  else
    while l <> nil do 
      begin
        inc(n);
        write(' (', n, ') ', l^.data);
        l := l^.next;
      end;
  WriteLn('.');
  WhiteEnter;
end;
 
procedure Fill(var l: tList);//заполнить список
var
   x: tData;
begin
  ClearAll(l);
  writeln( 'Вводите элементы(целые числа) по одному' );
  writeln( 'Конец ввода - 0' );
  repeat
     write( '? ' ); readln(x);
     if x <> 0 then
       Put(l, x);
  until x = 0;
  WriteLn('Ввод элементов завершен.'); WhiteEnter;
end;
 
function Counter(l: tList): integer;//счетчик числа элементов
var
   n: integer;
begin
  n := 0;
  while l <> nil do 
    begin
      n := n + 1;
      l := l^.next;
    end;
  Counter := n;
end;
 
procedure CountList(l: tList);//подсчитать число элементов
begin
  writeln( 'Число элементов в списке равно ', Counter(l) );
  WhiteEnter;
end;
 
function GetElemByNumber(l : tList; n : Integer) : tList; // Вернуть n элемент от l
// Подразумевается, что элемент с номером n точно есть в списке!
begin
  while n > 1 do
    begin
      Dec(n);
      l := l^.next;
    end;
  GetElemByNumber := l;
end;
 
procedure Add1(var l: tList);//включение эл. после указанного
var
  i, k: integer;
  p: tPtr;
  D: tData;
begin
  if l = nil then
    WriteLn('Список пуст. Операция не возможна!')
  else
    begin
      i := Counter(l);
      write( 'Номер элемента (от 1 до ', i, '): ' ); readln(k);
      if (k<1)or(k>i) then
        WriteLn('Неверный номер элемента')
      else
        begin
          Write( 'Задайте значение элемента: ' ); readln(D);
          p := GetElemByNumber(l, k); // Получим по номеру
          p^.next := NewElem(D, p, p^.next); // За ним вставим новый
          if p^.next^.next <> nil then p^.next^.next^.prev := p^.next; // Исправим ссылочку
          WriteLn('После элемента (', k, ') ', p^.data, ' вставлен элемент ', D);
        end;
    end;  
  WhiteEnter;
end;
 
procedure Add2(var l: tList);//включение эл. перед указанным
var
  i, k: integer;
  p: tPtr;
  D: tData;
begin
  if l = nil then
    WriteLn('Список пуст. Операция не возможна!')
  else
    begin
      i := Counter(l);
      write( 'Номер элемента (от 1 до ', i, '): ' ); readln(k);
      if (k<1)or(k>i) then
        WriteLn('Неверный номер элемента')
      else
        begin
          Write( 'Задайте значение элемента: ' ); readln(D);
          p := GetElemByNumber(l, k); // Получим по номеру
          p^.prev := NewElem(D, p^.prev, p); // После него вставим новый
          if p^.prev^.prev <> nil then p^.prev^.prev^.next := p^.prev; // Исправим ссылочку
          if k = 1 then l := p^.prev; // А может это теперь голова списка
          WriteLn('Перед элементом (', k, ') ', p^.data, ' вставлен элемент ', D);
        end;
    end;  
  WhiteEnter;
end;
 
procedure DeleteElem(var l, p : tList);
var t : tList;
begin
  if p = l then // это голова
    begin
      l := l^.next; l^.prev := nil;
    end
  else if p^.next = nil then // это хвост
    begin
      t := p^.prev; t^.next := nil;
    end
  else // это где-то по середине
    begin
      t := p^.prev;
      t^.next := p^.next;
      t^.next^.prev := t;
    end;
  Dispose(p);
end;
 
procedure Exception(var l: tList);//исключение указанного эл.
var
  i : Integer;
  p : tPtr;
begin
  if l = nil then
    WriteLn('Список пуст. Операция не возможна!')
  else
    begin
      i := Counter(l);
      write( 'Номер элемента (от 1 до ', i, '): ' ); readln(k);
      if (k<1)or(k>i) then
        WriteLn('Неверный номер элемента')
      else
        begin
          p := GetElemByNumber(l, k); // Получим по номеру
          DeleteElem(l, p); // Удалим его
          WriteLn('Элемент ', k, ' удален.');
        end;
    end;  
  WhiteEnter;
end;
 
 
procedure ExcFoll(var l: tList);// исключение эл., следующего за данным
var
  i : Integer;
  p : tPtr;
begin
  if l = nil then
    WriteLn('Список пуст. Операция не возможна!')
  else
    begin
      i := Counter(l);
      write( 'Номер элемента (от 1 до ', i-1, '): ' ); readln(k);
      if (k<1)or(k>i-1) then
        WriteLn('Неверный номер элемента')
      else
        begin
          p := GetElemByNumber(l, k); // Получим по номеру
          DeleteElem(l, p^.next); // Удалим следующий
          WriteLn('Элемент ', k, ' удален.');
        end;
    end;  
  WhiteEnter;
end;
 
procedure ShowMenu;//показать меню
begin
   writeln( 'Операции с двунаправленным списком ' );
   writeln( '-------------------------------' );
   writeln( '1 - Заполнение         2 - Очистка ' );
   writeln( '3 - Вывод на экран   4 - Число элементов ' );
   writeln( '5 - Включение элемента после указанного' );
   writeln( '6 - Включение элемента перед указанным ' );
   writeln( '7 - Исключение указанного элемента ' );
   writeln( '8 - Исключение элемента, следующего за указанным ' );
   writeln( '0 - Выход ' );
   writeln( 'Выберите нужный пункт ' );
end;
 
var
   key: integer;//пункт меню
   l: tList;
begin
  Init(l);
  repeat
    writeln;
    ShowMenu;
    write( '>' );
    readln(key);
    case key of
      1: Fill(l); //заполнить список
      2: Clear(l); //очистить
      3: WriteList(l); //напечатать
      4: CountList(l); //подсчитать число элементов
      5: Add1(l); //включение эл. после указанного
      6: Add2(l); //включение эл. перед указанным
      7: Exception(l); //исключение указанного эл.
      8: ExcFoll(l); //исключение эл., следующего за указанным
      0:             {Пусто};
    end;
  until key = 0;
end.

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .