Немогу разобраться (задача на for) Опции

[kvadrat]

Вот условие:

Вот попытка решить:

program qweqwe;
var n,i,k:integer;s:real;
begin
writeln('n=?');
readln(n);
s:=0;
for k:=1 to n do
begin
i:=((-1)^(k+1))/(k*k);  {незнаю как ввести эту строчку в паскале =(}
s:=s+i;
end;
writeln('s=',s);
end.

Помогите разобраться пожалуйсто.

[kosyak]

Вот условие:

Вот попытка решить:

program qweqwe;
var n,i,k:integer;s:real;
begin
writeln('n=?');
readln(n);
s:=0;
for k:=1 to n do
begin
i:=((-1)^(k+1))/(k*k);  {незнаю как ввести эту строчку в паскале =(}
s:=s+i;
end;
writeln('s=',s);
end.

Помогите разобраться пожалуйсто.

Ну если сложность здесь в том как сосчитать степень то вот формула: x= e ^(a*ln y). Она считает y^a. Но в данном случае у тебя просто будут чередоваться знаки перед единицей... -1 в четной степени =1, а в нечетной =-1... вот и все

[Bard]

Ну решить ты попытался но не совсем удачно... Я тебе помогу. Задача очень легкая вот главное не надо вычыслять i:=((-1)^(k+1))/(k*k) таким способом. Ведь надо просто проверить k четное или нет а дальше уже все. Вот и программа:

var
 m,k,n:integer;
 i,s:real;
begin
 readln(n); s:=0;
 for k:=1 to n do
  begin
   if odd(k) then m:=1  // функция odd() проверяет нечетность числа
                else m:=-1;
   i:=m/sqr(k);
   s:=s+i;
  end;
 writeln(s:0:5);
end.

Ну вот и все...

[andriano]

var
  m, k, n : integer;
  i, s : real;
begin
  readln(n);
  s := 0;
  m := 1;
  for k:=1 to n do begin
    s := s + m/sqr(k);
    m := -m;
  end;
  writeln(s:0:5);
end.

[kvadrat]

Благодарю всё отлично работает, но на будущее подскажите плиз как такие степени записывать в паскале? всеравно в какойнибуть задаче встретиться.

[kosyak]

Благодарю всё отлично работает, но на будущее подскажите плиз как такие степени записывать в паскале? всеравно в какойнибуть задаче встретиться.

2^3=exp(3*ln(2))

Это помойму самый лучший вариант!! Можно возводить и в дробную степень


Сообщение отредактировано: kosyak - 15.05.2008 22:14