Составить программу вычисления значения функции

[Nento]

Нужно решить через цикл For (На паскале)

[digitalis]

Не вижу признаков самостоятельной работы. Халява - во Фриланс.
Или вот Неверов подтянется, он любит помогать двоечникам.

[Desc]

Nento, есть типовые примеры:
Примеры решения задач на языке Turbo Pascal + численные методы
Типичные задачи и примеры. Теория.

Смотрели?

[Nento]

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

Не вижу признаков самостоятельной работы. Халява - во Фриланс.
Или вот Неверов подтянется, он любит помогать двоечникам.

digitalis, я могу написать то , что под знаком П , но именно с самим произведением ряда ни разу не сталкивался и не могу найти что-либо подходящее. (я его даже в школе не проходил и не имею представления , как он работает , а тем более как перенести его на паскаль. И спасибо , конечно, огромное , что впервые , пытаясь задать вопрос на подобном сайте и попросив помощи , получил я лишь клеймо двоечника.

[Desc]

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

получил я лишь клеймо двоечника.

Чтобы таковым не быть, рекомендую как начальный опорный материал:
Паскаль Программирование на языке высокого уровня, 2-е издание, Павловская, 2010
или
Паскаль Программирование на языке высокого уровня, Т. А. Павловская, 2007

P. S.
Это относительно языка.
Ну и соответственно знания по "вышке" подтянуть необходимо, судя по всему.

[Nento]

Desc, да какая мне вышка я только школу оканчиваю) меня друг попросил помочь с заданиями по паскалю , а это единственное , которое я не смог сделать в виду отсутствия соответсвующих знаний. Полагал , что спросив на форуме , мне хоть как-то помогут с решением конкретного примера , но видно не судьба (:

[digitalis]

"Помогут" - это "сделают за меня"? Тут всегда помогают, если видят, что участник приложил хоть какие-то минимальные усилия, разъяснят непонятное. "Я вот так делал, но вот в этом месте затык" .
А тут что непонятного? Что такое циклы - знаешь? Корень 4-й степени берётся через логарифм.
Надо сделать функцию.

function root4 (arg: double):  double; 
begin
   root4 := Exp(ln(arg)/4) 
end ;

Или взять два раза корень Sqrt(Sqrt(x))
Вообще-то задачка по информатике для 6-го класса.
Но сам оптимистический подход мне нравится: я в этом не шарю, но товарищу помогу
Ну тогда помогём вместе

var x,y,tmp,x2: double ; i : integer ;
begin
  x := -2 ;
  y := 1;
  x2 := x*x ;
  for i := 0 to 4 do
      begin
          tmp := i/(1+i*i) + x2 ;
          y := y * Sqrt(Sqtr(tmp))
       end ;

Ну и то же проделать с остальными 2 значениями х. Можно(нужно) выделить вычисление y в функцию. Можно обвернуть это ещё одним циклом и в нём передавать разные значения аргументов.

Не так страшен чёрт, как у семи нянек дитя без глазу. ©

ПыСы А "двоечник" в данном случае - это не клеймо, а точное определение уровня компетентности в данном конкретном предмете в данное время.
PPS А ряда-то тут никакого и нет - просто вычисляется произведение заранее заданного числа элементов. https://ru.wikipedia.org/wiki/Ряд_(математика)

[Nento]

digitalis, Cпасибо , в общем как-то так получилось

var 
  x,y,tmp: double ; 
  r ,i: integer ;
begin
  
  y := 1;
  
  for i:=1 to 3 do
    
    begin
    
    readln (x);
  
    for r := 0 to 4 do
    
        begin
      
        tmp := r/(1+r*r) + x*x ;
        
        y := y * Sqrt(Sqrt(tmp));
        
        end ;
        
     writeln (y);
     
     end;
    
end.

[digitalis]

Ну вот, а то боялся. Но мою последнюю правку не учёл. Чтобы каждый раз в цикле не вычислять x*x, можно это сделать до цикла. Это - стандартный приём оптимизации по скорости выполнения. Конечно, в данном примере об скорости речи нет, но в реальной жизни для циклов, повторяемых тысячекратно, эффект заметен. Впрочем, умный компилятор сам может это оптимизнуть.
---------------------------------------
Ээээ, неправильно. "Чистку единицей " y := 1; нужно проводить каждый раз перед началом внутреннего цикла, иначе лажа.

 
  for i:=1 to 3 do    
    begin    
       readln (x);
       y := 1;    
       for r := 0 to 4 do

[Petros-20]

f=1;
for r:=4 downto 0 do f=f*Sqrt(Sqrt(r/(1+r*r)+x*x));