Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
1

Единождое выполнение оператора в теле цикла, или виртуальный конвейер

16.07.2022, 23:14. Показов 4936. Ответов 61
Метки нет (Все метки)

Такое возможно?
Тело цикла. Допустим что это тут, для примера. На самом деле единожде выполнение требуется в другом цикле - в внешнем, но пусть как-бы тут
Pascal
1
2
3
4
5
6
repeat
            StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            dec(x);
            TtracerRec.ix:=x;
            //выполнить единожды TtracerRec.bool:=false;
            until FcountPix > x;
единожды требуется выполнить всего один оператор в конце тела цикла, такой
TtracerRec.bool:=false;
за пределами цикла выполнится
TtracerRec.bool:=true;
.

Просто ставить проверки условия - не совсем разумно, проще иметь виртуальный конвейер, что-то типа того...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.07.2022, 23:14
Ответы с готовыми решениями:

Можно ли в теле оператора цикла использовать условный оператор? Если да, назовите примеры таких программ
Можно ли в теле оператора цикла использовать условный оператор? Если да, назовите примеры таких...

Использование оператора поиска seek в теле цикла
Добрый день, прошу помочь. Среда FoxPro 2.6 dos. Задание: Найти сведения обо всех поставщиках с...

Использование условного оператора в теле операторов цикла с условием
Дано натуральное число, в котором все цифры различны. Определить порядковые номера его максимальной...

Использование условного оператора в теле операторов цикла с условием
Всем привет! помогите с программой... Составить программу, определяющую общее число удалений и...

61
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
21.07.2022, 07:21  [ТС] 21
Я забыл вставить код процедуры, видимо так. Прошу прощения, могу только вечером это сделать, пока так .
Кликните здесь для просмотра всего текста

Не по теме:

По поводу прециндента- так или иначе были бы замечания. Но в общем да, согласен, удобнее когда виноват один, тогда закон может неистовее защищать божьих агнцев. Кстати совсем недавно на меня наорали почти за то, что второй раз выдохнул на охрану агрессивно, потом пришлось ещё выслушивать причины, по которым я выгляжу подозрительно. Мне кажется что у того охранника проснулся дар писателя. Правда даже фантаст вышел бы совсем никудышний.

Ещё помнится северное, когда в цехе два месяца каждого лета мне приходилось одному. И каждый день я вызывал подозрения у медика из-за пониженного давления, причины которого были совершенно обратные. Есть предположения, что подозрения-возрастное. Ведь какое то основание они должны иметь. И ни разу у медика не возникли правильные догадки- одни обвинения и негодования на моё здоровье.

Хотя, поистине были перлами случаи, когда свою необразованность оппоненты объясняли моими личными качествами. Именно только так можно объяснить случаи, когда люди с амбициями великих учёных и багажом прав, вдруг оказывались незнакомы с школьным материалом, да и в плане морали тоже явно не преуспевали.



Добавлено через 6 минут
Кстати процедуру события, а в ней все-я отправлял и тоже под спойлером, возможно сообщение не отредактировалось.
Хотя всё возможно.
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
21.07.2022, 21:20  [ТС] 22
странно, что вчера я её не вставил, хоть и описывал её.
Цитата Сообщение от Hretgir Посмотреть сообщение
Ряд проверки условий:
на указатели - пока можно вообще не обращать внимания,
на случай когда линия уходит вниз в несуществующую часть изображения,
на случай когда линия приходит сверху - с несуществующей часть изображения.
Поле болеан в карте трассировки должно содержать единицу, когда происходит обрыв линии в рамках размеров текущего изображения.
Для чего нужны карты - сам алгоритм замены свёрточных нейросетей не должен вести расчёты сложнее простого сложения типа x+1, длина линий потом запишется как их вес.
Изображение при обработке размножится на число карт.
Так можно будет определять вершины и углы.
Причём по предварительным прикидкам минимальный угол будет соответствовать максимальному весу на параллельных картах - картах углов. Но это так, в недалёком надеюсь будущем.
Цитата Сообщение от Hretgir Посмотреть сообщение
По причинам описанным вчера, и исходя из оценки тайм прайма я в общем останавливаюсь на варианте с прыжком.
Очень грубо, с кучей ошибок и недоработок выкладываю отладочную процедуру.
Это для пытливых и у кого нет проблем со временем.
Кстати процедура пока записывает правильно текущие шаги, если в поле ввода вводить 1, чтобы в текущую клетку она записывала старые координаты - пока не сделал, доделываю.

Кликните здесь для просмотра всего текста
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
procedure TForm1.Button1Click(Sender: TObject);
    procedure Step1;
  var
 
    y,step,stepF,s,x, sl, fi1, fi, ri1, BasiY, MyCount:integer;
    px,py:^integer;
     FcountPix, countPix, FcountPix1, CaTanDegP:integer;
    CaTanDeg,TanDeg, deg:Extended;
    begin
//      power:=TrackBar1.Position;
      sl:= StrToInt(Edit1.Text);
 //     SetLength(Tracersloi, sl, 28, 28);
      deg := 90 div sl;
      for s:=0 to  1 do begin  //sl-1
        CaTanDegP:=0;
         TanDeg := Tan(DegToRad(s*deg ));
         if TanDeg = 0 then begin
           CaTanDeg:=27;
           px:=@x;
           py:=@y;
           FcountPix:=0;
           FcountPix1:=0;
           end
         else begin
         CaTanDeg:= 1/TanDeg;
 
         if CaTanDeg>=TanDeg then begin
           px:=@x;
           py:=@y;
          CaTanDegP:=Trunc(CaTanDeg);
          if CaTanDegP>28 then CaTanDegP:=27;
           end
         else begin
           px:=@y;
           py:=@x;
           CaTanDegP:=Trunc(TanDeg);
           if CaTanDegP>28 then CaTanDegP:=27;
            end;
                  end; //------------------------
         //CaTanDegP:= Trunc(CaTanDeg);
         if CaTanDegP=0 then begin
           fi:=0;
           FcountPix:=0;
           FcountPix1:=0;
           end else begin
            fi:=Trunc(28 div CaTanDegP);
            FcountPix:=CaTanDegP;
            FcountPix1:=27-fi*CaTanDegP; /////             FcountPix1:=28-fi*CaTanDegP; !!!!!!!!!!!!!!!!!!!
 
              end;
 
            stepF:=fi;
            fi1:= 28+fi;///////////////////////////////////
            BasiY:=0;
            repeat
            y:=BasiY;// тут начинается чтение ячеек
            step:=0;
 
            TtracerRec.bool:=false;
 
            repeat
            x:=27;
            if BasiY>27 then  begin
            step:= fi1-BasiY;
            x:=27-(step*FcountPix);
            y:=BasiY-step;
            end;
            ri1:=BasiY-fi;
            if (FcountPix1>=1) then begin
            ri1:=ri1-1;
            stepF:=fi;
            end;
            if ri1<0 then begin
            step:=0-ri1;
            end;
            TtracerRec.yg:=y;
            countPix:=0;
            TtracerRec.ix:=x;
            MyCount:=0;
            repeat
            inc(MyCount);
            StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            dec(x);
 //           Tracersloi[s,px^,pi1^]:=TtracerRec;
 //           StringGrid1.Cells[1+px^,1+pi1^]:= IntToStr(pi^)+','+IntToStr(pi1^);
            TtracerRec.ix:=x;
            until FcountPix > x;
            dec(y);
            inc(step);
            until (27-step*CaTanDegP>x);//////////////////////////////////////тут должен быть выход по иксу
            if FcountPix1>0 then begin
            //dec(i1); // вставка
            countPix:=0;
            TtracerRec.ix:=x;
            TtracerRec.yg:=y;
            while countPix < FcountPix1 do begin
            StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            dec(x);
            inc(countPix);
   //         Tracersloi[pi^,pi1^,sl]:=TtracerRec;
            TtracerRec.ix:=x;
            end;
       end;
            TtracerRec.bool:=true;
            inc(TtracerRec.ix);
            inc(x);
            //inc(TtracerRec.yg);
            //inc(y);
            StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            //dec(y);
            inc(BasiY);
            //dec(i1); // вставка
            until BasiY=fi1;
         end;
      end;
    begin
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
26.07.2022, 00:05  [ТС] 23
если изменять код до этой части
Pascal
1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
    procedure Step1;
  var
    p:pointer;
    y,step,stepF,s,x, sl, fi1, fi, ri1, BasiY, MyCount:integer;
    px,py:^integer;
     FcountPix, countPix, FcountPix1, CaTanDegP:integer;
    CaTanDeg,TanDeg, deg:Extended;
    label l1,l2;
    begin
то всё нормально, но если я вставлю после begin или ещё позже
Pascal
1
        p:=@l1;
,
то получаю эти сообщения от компилятора
Компиляция проекта, цель: project1: Код завершения 1, ошибок: 1, предупреждений: 1
unit1.pas(159,10) Error: Label used but not defined "l1"
unit1.pas(159,10) Warning: Label not defined "l2"
всё - без проблем, если вставить
Pascal
1
l1:
, то ошибка исчезает.
0
пофигист широкого профиля
4544 / 3017 / 845
Регистрация: 15.07.2013
Сообщений: 17,423
26.07.2022, 02:04 24
Цитата Сообщение от Hretgir Посмотреть сообщение
если
Вы когда-нибудь почитаете хоть какой-нибудь учебник?
Хотя бы для самых-самых начинающих?
Вы абсолютно не понимаете что такое метка Label. Для чего она служит и как её использовать.
Как при таком отношении к знанию основ рассчитывать на то, что удастся написать хотя бы мало-мальски нормальную программу?
Или вы как обычно рассчитываете что её за вас неявно напишет volvo и все прочие участники форума?
1
Модератор
2971 / 1650 / 598
Регистрация: 15.11.2015
Сообщений: 6,644
26.07.2022, 07:41 25
Hretgir, то есть, если не добавить l1, то компилятор ругается, что l1 не определён, а если добавить, то уже не ругается. Ну в общем, логично, не находите?
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
28.07.2022, 23:33  [ТС] 26
В общем это всё одни циклы, пока просто с одним проходом от
строки 57
Кликните здесь для просмотра всего текста
Delphi
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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
     type
  tracerRec = record
  ix:integer;
  yg:integer;
  bool:boolean;
end;
  var
    TtracerRec:tracerRec;
    Tracersloi: array of array of array of tracerRec;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
    procedure Step1;
  var
    p:pointer;
    y,step,stepF,s,x, sl, fi1, fi, ri1, BasiY, MyCount:integer;
    px,py:^integer;
     FcountPix, countPix, FcountPix1, CaTanDegP:integer;
    CaTanDeg,TanDeg, deg:Extended;
    label l1,l2;
    begin
 
//      power:=TrackBar1.Position;
      sl:= StrToInt(Edit1.Text);
 //     SetLength(Tracersloi, sl, 28, 28);
      deg := (45 div sl)+1;
      for s:=0 to  1 do begin  //sl+1
        CaTanDegP:=0;
         TanDeg := Tan(DegToRad(s*deg ));
         if TanDeg = 0 then begin
           CaTanDeg:=27;
           px:=@x;
           py:=@y;
           FcountPix:=0;
           FcountPix1:=0;
           end
         else begin
         CaTanDeg:= 1/TanDeg;
 
         if CaTanDeg>=TanDeg then begin
           px:=@x;
           py:=@y;
          CaTanDegP:=Trunc(CaTanDeg);
          if CaTanDegP>28 then CaTanDegP:=27;
           end
         else begin
           px:=@y;
           py:=@x;
           CaTanDegP:=Trunc(TanDeg);
           if CaTanDegP>28 then CaTanDegP:=27;
            end;
                  end; //------------------------
         //CaTanDegP:= Trunc(CaTanDeg);
         if CaTanDegP=0 then begin
           fi:=0;
           FcountPix:=0;
           FcountPix1:=0;
           end else begin
            fi:=Trunc(28 div CaTanDegP);
            FcountPix:=CaTanDegP;
            FcountPix1:=27-fi*CaTanDegP; /////             FcountPix1:=28-fi*CaTanDegP; !!!!!!!!!!!!!!!!!!!
 
              end;
 
            stepF:=fi;
            fi1:= 28+fi;///////////////////////////////////
            BasiY:=0;
            repeat
            y:=BasiY;// тут начинается чтение ячеек
            step:=0;
            TtracerRec.bool:=true;
            p:=@l1;
            repeat
            x:=27;
            if BasiY>27 then  begin
            step:= fi1-BasiY;
            x:=27-(step*FcountPix);
            y:=BasiY-step;
            end;
            ri1:=BasiY-fi;
            if (FcountPix1>=1) then begin
            ri1:=ri1-1;
            stepF:=fi;
            end;
            if ri1<0 then begin
            step:=0-ri1;
            end;
            TtracerRec.yg:=y;
            countPix:=0;
            TtracerRec.ix:=x;
            MyCount:=0;
            repeat
            inc(MyCount);
            StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            dec(x);
 //           Tracersloi[s,px^,pi1^]:=TtracerRec;
 //           StringGrid1.Cells[1+px^,1+pi1^]:= IntToStr(pi^)+','+IntToStr(pi1^);
            TtracerRec.ix:=x;
            asm
            jmp p
            end;
            l1:
            TtracerRec.bool:=false;
            p:=@l2;
            l2:
            until FcountPix > x;
            dec(y);
            inc(step);
            until (27-step*CaTanDegP>x);//////////////////////////////////////тут должен быть выход по иксу
            if FcountPix1>0 then begin
            //dec(i1); // вставка
            countPix:=0;
            TtracerRec.ix:=x;
            TtracerRec.yg:=y;
            while countPix < FcountPix1 do begin
            StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            dec(x);
            inc(countPix);
   //         Tracersloi[pi^,pi1^,sl]:=TtracerRec;
            TtracerRec.ix:=x;
            end;
       end;
            //inc(TtracerRec.ix);
            //inc(x);
            ////inc(TtracerRec.yg);
            ////inc(y);
            //StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');
            //dec(y);
            inc(BasiY);
            //dec(i1); // вставка
            until BasiY=fi1;
         end;
      end;
    begin
 Step1;
end;
 
end.
.
Ранее заявлялось о вере и уверенности. Сделайте без меток.
Я своё закончу сам - без ваших подсказок, покажите насколько сильна ваша вера и уверенность, и есть-ли она у вас - эта ваша правда, в которую вы просто верите и считаете что правда не нуждается в проверке.

Если не считаете принципиальным - не протестую, но на фоне ваших переходов на личности - попрошу администрацию оставить это, если она конечно считает что личность имеет право защищать своё право. Если не считает - не протестую. Просто в этом случае это всего-лишь поле проблемы.
Миниатюры
Единождое выполнение оператора в теле цикла, или виртуальный конвейер   Единождое выполнение оператора в теле цикла, или виртуальный конвейер  
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
30.07.2022, 00:04  [ТС] 27
Тема закрыта. Я прекращаю любое общение за минимумом для поддержания существования. Общих интересов нет и не будет никогда. Если кто-то считает что действует в общих интересах- может считать сколько угодно, но фактом останется одно- их не будет никогда.
1
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
31.07.2022, 21:11  [ТС] 28
Так получилось, что пришлось восстанавливать файловую систему Debian.
И вот с каким результатом теперь работает этот-же код.
Покрутил в отладке - прецедента быть не должно, но факт теперь это работает вот так.
Всё проверил с точками останова - не ясно как он умудряется писать в первый столбец грида, там минус ё проскаивает, но только до работы с таблицей, и то после этого он просто меняется на положительный. Вообще не понятно .
Насчёт интересов - можете не помогать, но я считаю что каждый действует в своих интересах.
Может стоит переустановить всё ... главное что к копированию проекта я получил доступ...а так...может стоит и переустановить ОС...
Миниатюры
Единождое выполнение оператора в теле цикла, или виртуальный конвейер  
0
Hretgir
31.07.2022, 23:45  [ТС]
  #29

Не по теме:

Не, я не отрицаю вовсе существование личностей приобщённых к великому. Они добиваются многого, если санитары не останавливают вовремя. Я не из таких. Всё делаю из личных интересов. Не подумайте что я пытаюсь умалить чьего-то величия. Я просто не тот. А так да, деяния тех можно измерять миллиардами жизней наверное...уже...за всё время если...а у меня всего одна...

0
Hretgir
01.08.2022, 07:40  [ТС]
  #30

Не по теме:

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

0
D1973
01.08.2022, 07:47
  #31
 Комментарий модератора 
Hretgir, хватит оффтопить. Мысли философские свои излагайте в личном блоге, а не в тематическом разделе.
Официальное предупреждение.
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
01.08.2022, 07:47  [ТС] 32
Хорошо.

Не по теме:

Точнее получается действия в общественных интересах бездоказательными.

0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
01.08.2022, 23:15  [ТС] 33
В общем по теме сказать нечего было получается?
Как так получается, что программа работает по разному?
Причём я проверял значения переменных в точках останова...и код полностью скопирован с сообщения 26.
ОС работает, она сейчас запущена.

Добавлено через 1 час 52 минуты
Я так понимаю, что надо выложить видео с тем, как я произвожу отладку с точками останова и где проверяю переменные? Хорошо, я завтра после работы сделаю. Наверное есть сомнения у кого-то, что я делаю это правильно или рационально. И поверьте - лишние строки там совсем не помеха. Записывать правда буду с смартфона. Ну да ладно, вполне гожий смартфон.
0
Модератор
2971 / 1650 / 598
Регистрация: 15.11.2015
Сообщений: 6,644
02.08.2022, 00:35 34
Цитата Сообщение от Hretgir Посмотреть сообщение
код полностью скопирован с сообщения 26.
В строке 99 присваивается y:
Delphi
99
            y:=BasiY;// тут начинается чтение ячеек
Всё хорошо. Дальше начинается вложенный цикл на строке 103 и выход из него на строке 139:
Delphi
139
            until (27-step*CaTanDegP>x);//////////////////////////////////////тут должен быть выход по иксу
и всё хорошо, пока step не станет равен 15, тогда из цикла не происходит выход и переменная y не инициализируется значением из BasiY и продолжает бесконтрольно уменьшаться, пока не станет равна -2, тогда и происходит выход за пределы StringGrid.
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
02.08.2022, 21:28  [ТС] 35
Цитата Сообщение от AzAtom Посмотреть сообщение
пока не станет равна -2
она не может стать даже равной -1, может, но на короткое время, в которое запись в таблицу нее ведётся.
Если не верите - проверьте в отладчике.
Кроме того, мне всё-же кажется что повреждена ОС. Я запущу код в виндовс.
Этот код правильно работал - скрины прикреплены к сообщению 26. Почему он стал работать иначе не ясно, но сейчас я посмотрю в windows/
0
Модератор
2971 / 1650 / 598
Регистрация: 15.11.2015
Сообщений: 6,644
02.08.2022, 21:37 36
Цитата Сообщение от Hretgir Посмотреть сообщение
она не может стать даже равной -1,
Может, и становится, даже -2.

Цитата Сообщение от Hretgir Посмотреть сообщение
может, но на короткое время, в которое запись в таблицу нее ведётся.
Всё же, ведётся.

Цитата Сообщение от Hretgir Посмотреть сообщение
Если не верите - проверьте в отладчике.
Вы не поверите, но именно там я и смотрел.

Цитата Сообщение от Hretgir Посмотреть сообщение
Этот код правильно работал
Значит, это было случайно.

Цитата Сообщение от Hretgir Посмотреть сообщение
посмотрю в windows
Я там и смотрел. И это не должно влиять на результат.
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
02.08.2022, 22:47  [ТС] 37
Да, я вижу что выдает ошибку.
Но каким образом тогда в момент поста 26 - программа работала правильно.
Загадка однако. Хотя впрочем не новая.
Хорошо проехали.
Ошибки я и сам найду тогда.
Это вообще не проблема.
Значит всё просто - правильный код и запуск - записывать на видео, раз форума для этого недостаточно.
И по возможности сохранять ещё в сети.
У меня рабочий день отнимает с 6-45 утра и до 8 вечера.
Хочешь не хочешь -код работал правильно, скрины. Почему теперь так - неясно.

Добавлено через 24 минуты
И если-бы я взялся за поиск ошибки - обратил бы внимание на работу кода, а именно на тот момент, что после первого прохода запись с отрицательным значением в грид - не происходит. Это есть в скрине поста 28. И уже от этого момента искал-бы ошибку. То-есть первый проход проходит как положено, и после него начинаются ошибки каким-то чудным образом. Вот этот чудный образ и надо найти в коде. Задача - не заоблачная.

Добавлено через 7 минут
Цитата Сообщение от AzAtom Посмотреть сообщение
Значит, это было случайно.
код случайно не работает. случайно работать - он не может.
Извиняюсь, но в Ваш пост 34 о работе кода не вникал - у нас разные методы работы, и даже поиска ошибок, и даже суждения о работе кода.
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
03.08.2022, 00:02  [ТС] 38
Ну вот исходя из своих представлений о поиске ошибок, работе кода, и работе вообще, глядя на скрин поста 28 я перенёс строку 104 из кода нынешнего поста 26 на место строки 98, и работа кода стала такой.
Тут нет для меня чего-то сложного и каких-либо ребусов - замысел мой, не чей-то, и код изначально был мой, а почему од работать стал иначе - другой вопрос.

Не по теме:

В запои я не уходил, на день ВМФ выпил 200 грамм 40 градусного виски шотландского, набивал в рангах на даринге после чего по 200 к дамаги, а в рандоме на джузеппе верди тоже 200 к дамаги было. В общем пьян не был.


Завтра я исходя из тайм прайма найду остатки "самомодификаций" кода из сообщения 26 или тонкости случайной работы кода - как другим представляется почему-то. Впервые слышу чтобы код случайно работал, причём несколько дней подряд - я его работоспособность не раз проверил, хоть и не редактировал его почти неделю.
Миниатюры
Единождое выполнение оператора в теле цикла, или виртуальный конвейер  
0
Нарушитель
365 / 119 / 2
Регистрация: 25.01.2012
Сообщений: 4,559
Записей в блоге: 61
03.08.2022, 00:09  [ТС] 39
и хочется отметить, что смотря на обратный результат записи отрицательных значений в грид - точно зеркально обратный, как часть безошибочного кода где-то потерялась, а не тупо попала не на своё место. Случай крайне интересный...завтра после работы я его выясню.
0
Модератор
2971 / 1650 / 598
Регистрация: 15.11.2015
Сообщений: 6,644
03.08.2022, 06:27 40
Цитата Сообщение от Hretgir Посмотреть сообщение
в Ваш пост 34 о работе кода не вникал
То есть, нет смысла вникать в ваш код и пытаться вам помочь в чём-то.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.08.2022, 06:27
Помогаю со студенческими работами здесь

Задача на цикл, ошибка в теле цикла
Всем привет! Тут такое задание, необходимо просчитать прибыль к выходу на пенсию.Изначально...

Может ли завершиться выполнение оператора цикла?
Может ли завершиться выполнение оператора цикла, начало которого выглядит так: while...

Выполните, пожалуйста, задание, при этом вместо оператора цикла while используйте оператора цикла do_while
Используя оператор цикла while, напишите программу для вычисления ниже следующей суммы. ...

Как проверять, нажата ли клавиша Esc, в каждой итерации цикла, и если нажата, то прервать выполнение цикла?
OwenGlendower, это обращение прежде всего к вам. Вызов функции, в которой происходит проверка...

Составить блок-схему, программу на языке С++. В качестве оператора цикла использовать цикл с постусловием
Ребят, кто может помочь, затрудняюсь с уравнениями, кто может написать код на с++. Зарание...

С любого из операторов цикла вычислить y. Оператор if в теле цикла не использовать
С помощью любого из операторов цикла вычислить y. Оператор if в теле цикла не использовать....

C++ с использованием оператора цикла с предусловием и оператора цикла с постусловием
Составить схему программы и программу на языке C++ с использованием оператора цикла с предусловием...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru