Как оптимизировать код?

Question

[@ _ @]

Можно ли оптимизировать данный код, хотя бы, чтобы было не 3 цикла, а 2?

Program laba1;
Var
  x, f, h, sum: real;
  n, k: integer;
  _:string;
Begin
  h:=0.1;
  x:=0.6;
  while x<=1.1 do
  begin
    for n:=10 to 15 do
    begin
      sum:=0;
      for k:=1 to n do
      begin
        sum:=sum + exp(ln(exp(ln(x)*(k+1))+(exp(x/k)))/(3*n));
      end;
      writeln(sum);
      f:=sum * sin(x/n) * (exp(ln(x)/3)/(ln((x/3)+2.5)/ln(10)));
      writeln('x=',x,' n=',n,' f=',f);
    end;
    x:=x + h;
  end;
  read(_);
End.

Вот сама задача:


Если что, там корень 3-ей степени.

Answer 1

[kalapanga]

А что плохого в 3-х циклах? Само по себе количество циклов ни о чём не говорит. Надо 3 значит 3.
Один цикл уберётся только если по другому трактовать условие задачи. Например, что нужен расчёт не сразу для всех возможных значений n, а только для какого-то одного, задаваемого пользователем из диапазона от 10 до 15.

Comments

[@ _ @]

Я понимаю, но надо, чтобы было <3 циклов
...
Получается меньше трех невозможно?

[kalapanga]

@ _ @, я написал, в каком случае циклов будет меньше. Уточните у преподавателя, как нужно понимать условие задачи. Это не вопрос оптимизации, это вопрос постановки задачи. Для случая, как Вы поняли задачу, нужны все 3 цикла, в какой-то другой интерпретации может и не 3.
Ну или используйте предложенный Константин Цветков "ход конём" :))
И освойте математические функции имеющиеся в Delphi, код станет гораздо читабельнее: https://docwiki.embarcadero.com/RADStudio/Sydney/e...

Answer 2

[Hemul GM]

1. Read можно вызывать без указания аргументов. Т.е. просто readln;
2. Для вычисления корня можно написать простую функцию

uses Math;
function Sqrt(X: Extended; Base: Integer): Extended;
begin
  Result := Power(X, 1 / Base);
end;

sqrt(9, 3) = 2;

Comments

[@ _ @]

Функции объявлять нельзя. Библиотеки использовать нельзя... )))

Answer 3

[Rsa97]

Можно и в один цикл, только смысла особого в этом нет.

Comments

[@ _ @]

Что вы имеете ввиду?

[Rsa97]

@ _ @, Напишу псевдокодом:

done = false;
n = 10;
x = 0.6;
k = 1;
result = 0;
while (true) {
  result += // здесь формула члена суммы
  if (k < n) {
    continue;
  }
  print x, n, result * sin(x / n);
  result = 0;
  k = 1;
  n += 1;
  if (n <= 15) {
    continue;
  }
  n = 10;
  x += 0.1;
  if (x > 1.1) {
    break;
  }
 }
}

Answer 4

[Константин Цветков]

но надо, чтобы было <3 циклов

Тогда вынесите вычисление суммы в отдельную функцию.

Или: упражнение на внимательность.

for i := 0 to 5 do begin
 n := 10 + i;
 x := 0.6 + (h * i)
...

Comments

[@ _ @]

Не понимаю в чем профит

[Константин Цветков]

@ _ @, Вместо двух отдельных циклов по этим переменным — один. И в задании не указано, что нужно вывести все комбинации n; x.

[@ _ @]

Константин Цветков, не указано, но надо все

Answer 5

[Alexandroppolus]

Тут возможна оптимизация в переиспользовании вычисленных кусков выражения. Например, то что в знаменателе, зависит только от х, и тебе надо это вычислить и запомнить для каждого х, которое встретится. Сейчас ты уже не повторяешь это вычисление для каждого k, но пока повторяешь для каждого N
Выражение в числителе большой дроби можно представить как pow(x, 1/3) * pow(f(x, k), 3*n). Здесь соответственно тоже, pow(x, 1/3) зависит только от х, f(x, k) - только от x, k, и т.д.
В общем, мемоизация рулит.

Comments

[@ _ @]

Это я реализовал. Мне надо уменьшить количество циклов