Наконец-то все решил. Почти.. Вот осталась эта задачка. Я пытался делать по примеру, но в примере тока плюсы и там проще.. А в задании сложнее. Че то я немного не понял... Поскажите как?
Вычислить сумму первых n членов ряда 1 - 1/1 + 1/3 - 1/5 +...
Help me please..
Извините за такую наглость )
StudentTNGU, это - знакопеременный ряд... Так что, придется хранить знак очередного элемента...
s := 1; sign := -1;
for i := 0 to n - 1 do
s := s + (sign / (2 * i + 1));
sign := - sign;
end;
s := 1; sign := -1;
for i := 0 to n - 1 do
s := s + (sign / (2 * i + 1));
sign := - sign;
end;
S само собой - вещественного, ибо есть деление, а Sign достаточно чтобы был Integer... Хотя нет, даже ShortInt подойдет (один байт экономия)
Program summa_n;
Var i, n, sign: Integer;
s: Real;
Begin
s:=1; sign:=-1;
for i:=0 to n-1 do
begin
s:= s + (sign/(2*i+1));
sign:=-sign;
end;
Writeln('Summa elementov ryada ravna: ',s);
Readln;
end.
Writeln('Summa elementov ryada ravna: ',s:5:3);
Program summa_n;
Var i, n, sign: Integer;
s: Real;
Begin
Writeln('Vvedite kol-vo elementov ryada');
Readln(n);
s:=1; sign:=-1;
for i:=0 to n-1 do
begin
s:= s + (sign/(2*i+1));
sign:=-sign;
end;
Writeln('Summa elementov ryada ravna: ',s:5:3);
Readln;
end.
Program summa_n;
Var i, n, sign: Integer;
s: Real;
Begin
Writeln('Vvedite kol-vo elementov ryada');
Readln(n);
s:=1; sign:=-1;
for i:=0 to n-1 do
begin
s:= s + (sign/(2*i+1));
sign:=-sign;
end;
Writeln('Summa elementov ryada ravna: ',s:5:3);
Readln;
end.
Ну, давай еще раз 15 переспросим
А это ТОЧНО то, что тебе нужно? Может у тебя задание другое, и ты его неправильно прочел?
Понятно... Я на другом форуме по турбо паскалю тоже попросил помочь с этой задачкой. Там мне написали код. Вот он:
for i:=1 to n do
begin
if i mod 2 =0
then buf:=-1/i
else buf:=1/i;
summ:=summ+buf;
end;
buf, summ: real;
i: word;
А провести ручной расчет и убедиться что на другом форуме тебя обманули не судьба ?
Пуск -> Программы -> Стандартные -> Калькулятор
удачи.
или головой подумать, что в задании про четные знаменатели вообще ни слова нет....