Прозьба помочь с задачей

[Тина_Г]

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

Program pr3;
   Var y, x, k, dx, f, a: real;
Begin
   Writeln ('Введите dx');
   Readln (dx);
      Writeln ('------------------------------------------');
      Writeln ('|     y      |      x      |      k      |');
      Writeln ('------------------------------------------');
   
     y:=1;
     k:=1;
     x:=0.2;
   while k<12 do
   begin
   if x<1 then a:=a*f else
   if x>=1 then a:=1;
       f:=(2*k*x)/(x+k*k);
       x:=x+1;
       y:=(a*(x*x))/sqrt(x+f);
       Writeln ('|', y:9:2,'   |', x:3:2,'         |', k:2:1,'          |');
   Writeln ('------------------------------------------');
   end;
End.

[Крот]

if x<1 then a:=a*f else

Здесь в первый раз неизвестно чему равна переменная a
Еще переменная f неизвестна (в этой же строчке)

[GreenWizard]

вау! живая девушка пишущая более-менее на Паскале! а дом. адрес можно!?
шутка) (хотя если с Николаева, то не шутка!)
а по делу:
1) приведи саму ф-ию в мат. виде
2) внутри цикла while значение k не меняется! главная ошибка

[Тина_Г]

Вот сама ф-я
Безымянный.png

[Тина_Г]

нет, не с Николаева, но почти рядом

[GreenWizard]

ужас какая ф-ия....) мин 15-20, код ваш поправлю
-----------------------
вот:

var
  y, x, dx, a: real;
  k: Integer;
begin
  Write('Введите dx: ');
  Readln(dx);
  Writeln('------------------------------------------');
  Writeln('|     y      |      x      |      a      |');
  Writeln('------------------------------------------');

  // начальное х
  x := 0.2;
  // пока не достигнем 1.8 (как я понял, нужно х=0.2 ... 1.8)
  while x <= 1.8 do
    begin
      if x >= 1 then
        a := 1
      else
        begin
          a := 0;
          // сумма 2xk/(x + k^2) k = 1..12
          for k := 1 to 12 do
            a := a + ((2 * x * k) / (x + (k * k)));
        end;

      y := (a * (x * x)) / sqrt(x + a);
      Writeln('|', y:9:2, '   |', x:3:2, '         |', a:2:1, '          |');
      // сдвиг х на dx
      x := x + dx;
    end;
  Writeln('------------------------------------------');
  Readln;
end.

НО по ходу исправления кода всплыли несостыковки/неясности:
1) колонка k смысла не имеет т.к. оно лишь для нахождения а нужно... думаю, что именно а и нужно выводить
2) я не нашёл связи значения f и формулы... вроде как пытались итерационно находить а, но всё равно не верно

тестируйте и отпишите верно ли сделал

[Тина_Г]

Большое спасибо

[VIK_aka_TOR]

Сообщение от GreenWizard

вау! живая девушка пишущая более-менее на Паскале! а дом. адрес можно!?

странные стереотипы конечно... но что ты скажешь если узнаешь что одним из модераторов сего форума является девушка... )))

[GreenWizard]

Сообщение от VIK_aka_TOR

странные стереотипы конечно... но что ты скажешь если узнаешь что одним из модераторов сего форума является девушка... )))

тсс! моя психика не вынесет такого шока)))))