Задача на ряды

[Till]

вот задача:

[Mef]

Если я правильно понял задачу получается шото типо этого:

program mef_2;
uses CRT;
var
 sum:real;
 E,k:integer;
begin
 WriteLn('Введите E');
 ReadLn(E);
 For k:=1 to E do
 sum:=sum+sqrt(exp(3*ln(k))+15);
 WriteLn('Сумма ровняется:',sum);
 WriteLn('нажмите любую клавишу для завершения....');
 ReadKey;
end.

[Till]

спасибо!!!

[puporev]

Совершенно неверное решение, непонятно, чему радуемся? Е-это точность вычислений, или погрешность, число типа 0,0001, а не как уж не интежер.
А цикл здесь нужен
while ak <=e do (ak очередной член ряда)

[Till]

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

Совершенно неверное решение, непонятно, чему радуемся? Е-это точность вычислений, или погрешность, число типа 0,0001, а не как уж не интежер.
А цикл здесь нужен
while ak <=e do (ak очередной член ряда)

а ты немог бы исправить??????

[puporev]

Я немного не понял сразу задачу и насчет Е написал ерунду, не посчитал порядок значений функции, а это большие числа, поэтому решение будет такое:

Program mef_2;
uses crt;
var k,e:longint;{привозведении к в степень 3 получаются большие числа, нужно Longint}
    sum,ak:real;
begin
clrscr;
Write('e=');readln(e);
k:=1;sum:=0;ak:=sqrt(k*k*k+15);
while ak<=e do
   begin
    ak:=sqrt(k*k*k+15);
    sum:=sum+ak;
    k:=k+1;
   end;
writeln('Summa=',sum:0:5);
readln
end.

[puporev]

В разделе Uses (пользовать) указываются используемые модули, как стандартные (Crt; Graph; Dos . . ), так и собственные.
Модуль Crt отвечает за работу с экраном и клавиатурой, наиболее часто используются процедуры Clrscr -очистить экран и Readkey-чтение кода нажатой клавиши.
Longint тип целых чисел, превышающий по диапазону Integer.
Если Integer = -32761..+32767 , то Longint= -2147483641 . .+2147483647