Телеграмм чат группы Delphi

procedure Calc;
begin
for i := StartIndexI to EndIndexI do
for j := StartIndexJ to EndIndexJ do
for k := StartIndexK to EndIndexK do
begin
 somework; 
 CurrIdxI := i;
 CurrIdxJ := j;
 CurrIdxK := k;
 if BreakFlag then Exit;
end;
end;

вот этот

источник

11:42пожаловаться #7

Igor in Delphi & Lazarus

꠵ࣩࣩࣩࣩࣩࣩࣩࣩࣩࣩࣩࣩࣩࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧ 𝐊𝐈𝐑𝐈𝐋𝐋꠵ࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧ

y:=((sin*sqrt(exp(x)+a*sqr(x)+b(ln(x)))/a*(sqr(x))+c*x+13.7)

возле синуса скобки расставь правильно

источник

11:42пожаловаться #8

꠵

꠵ࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧ... in Delphi & Lazarus

y:=((sin*sqrt(exp(x))+a*sqr(x)+b(ln(x)))/a*(sqr(x))+c*x+13.7) так?

источник

11:45пожаловаться #9

Рус in Delphi & Lazarus

Рус

допустим сохранили j = 150, k = 350. И? Как дальше то работать будет? Циклы j и k всегда будут стартовать со 150 и с 350?

а нет, вру, сразу не въехал, это код просто показывает как сохранить, я думал это "как вернуться", тогда нормалёк

источник

11:45пожаловаться #10

Igor in Delphi & Lazarus

꠵ࣩࣩࣩࣩࣩࣩࣩࣩࣩࣩࣩࣩࣩࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧ 𝐊𝐈𝐑𝐈𝐋𝐋꠵ࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧ

y:=((sin*sqrt(exp(x))+a*sqr(x)+b(ln(x)))/a*(sqr(x))+c*x+13.7) так?

функцию нельзя умножать, её можно только вызвать
я на это намекаю

источник

11:46пожаловаться #11

ПС

Пьяный Сурикат... in Delphi & Lazarus

sin(...)

источник

11:47пожаловаться #12

꠵

꠵ࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧࣧ... in Delphi & Lazarus

источник

11:47пожаловаться #13

Рус in Delphi & Lazarus

Dmitry Belkevich

procedure Calc;
begin
for i := StartIndexI to EndIndexI do
for j := StartIndexJ to EndIndexJ do
for k := StartIndexK to EndIndexK do
begin
 somework; 
 CurrIdxI := i;
 CurrIdxJ := j;
 CurrIdxK := k;
 if BreakFlag then Exit;
end;
end;

procedure Calc;
begin
for i := StartIndexI to EndIndexI do
for j := StartIndexJ to EndIndexJ do
for k := StartIndexK to EndIndexK do
  begin
    somework; 
    if BreakFlag then 
      begin
        CurrIdxI := i;
        CurrIdxJ := j;
        CurrIdxK := k;
        Exit;
      end;
  end;
end;

Вот так быстрее👍