Pascal : Составление и отладка программ циклической структуры

[Леша Цыбин]

Всем привет!У меня появилась проблема , связанная с темой :" Составление и отладка программ циклической структуры "
Суть задачи в том, чтобы "построить алгоритм, составить и отладить программу для нахождения суммы ряда."

Прошу помочь , желательно побыстрей (завтра сдавать)
Спасибо за внимание )
Всем удачи!

[lux16]

Так, а в чем сложность ? Сверху не четные, снизу четные. Слаживай и все, или подробности в студию

[Леша Цыбин]

Просто я не смогу шас сделать эту программку( я понимаю , что она не сложная) но у меня сейчас голова вообще не работает... Помоги пожалуйста , если можеш.

[lux16]

Если я правильно, то вот:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils, Math;
var
  s:    Extended;
  i:    Integer;
  j:    Integer;
  x:    Integer;
begin
  s := 0;
  x := 0;
  i := 0;
  Write('Enter X: '); ReadLn(x);
  Write('Enter I: '); ReadLn(i);
  for j := 1 to i do
    begin
      s := s + (x + ((intPower(x, (i * 2) + 1))/(i * 2)));
      WriteLn('[' + IntToStr(j) + ']: ' + FloatToStr(s));
    end;
  WriteLn(#13#10 + 'S = ' + FloatToStr(s));
  ReadLn;
end.

Писал на Delphi

[Леша Цыбин]

Окей , спасибо ,и еше 1-ин вопрос : чем delphi отличается от pascal ? И сложно мне будет переводить эту программу из delphi в pascal (если она работает)))?

[Леша Цыбин]

А кто-нибудь может в паскале написать ? (просто с делфи никогда не работал ) и в тереме принимают тольео в паскале...

[Леша Цыбин]

Ну блин , помогите плис сделать ...( в паскале!!)... Завтра сдача а у меня ничего не получается...(((

[Базиля]

Изменил немного.

var
  s:    real;
  i:    Integer;
  j:    Integer;
  x:    real;
begin
  writeln('Введите x');
  readln(x);
 s:=x;
 i:=3;
  while i<=13 do
    begin
    x:=exp(i*ln(x));
    s:=s+(x/(i-1));
    i:=i+2;
    end;
  WriteLn('Ответ=',s:8:3);
  ReadLn;
end.

[Леша Цыбин]

спасибо , только 1-но "но".
Можно задать "x"-у только значение "1",на все остальные значения он пишет ошибку , связанную с 16 или 15 строкой...Как это можно исправить?

[VIK_aka_TOR]

вообщето только положительные так как:

x:=exp(i*ln(x));

натурального лагорифа от отрицательных не существует...