Здравствуйте, Dima_1st, Вы писали:

D_>Вот это вообще убило.

>> [simp_int I=0 d=(b-a)/(2*n) x=a func I=y/2 x=b func I=I-y/2 x=a k=0 loop(IA,n-k,IB) I=I*(b-a)/(3*n)]


D_>Ну давайте я вам вот такой код тогда писать буду:

D_>case fSetting.Connect.AccsessType of ACCSESS_TYPE_DIRECT : idhttp.AccessType := wHttpAt_Direct; ACCSESS_TYPE_PRECONFIG : idhttp.AccessType := wHttpAt_Preconfig; ACCSESS_TYPE_PRECONFIG_WITH_NO_AUTOPROXY : idhttp.AccessType := wHttpAt_Preconfig_with_no_autoproxy; ACCSESS_TYPE_PROXY : idhttp.AccessType := wHttpAt_Proxy; end;
D_>end

Вообще-то разница есть. Вычисления по формуле Симпсона воспроизводят обычный текст из матанализа, практически один к одному. Упростить эти вычисления ни один язык не поможет. Незнакомой для инженера является только запись цикла loop(IA,n-k,IB), так таких штук в предлагаемом языке только 2 (еще ветвление sel(...))