Дано натуральное п. Вычислить:3/1+4/2-.+(-1)n+1(n+2)/n . Оператор повтора for

@tukzar · Регистрация: 09.10.2014

Author24 — интернет-сервис помощи студентам

Дано натуральное п. Вычислить:3/1+4/2-...+((-1)n+1(n+2))/n . Оператор повтора for

@AndruxaIX · 10.10.2014, 00:11

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
r:real;
begin
n:=StrToInt(edit1.Text);
for i:=1 to n do
r:=r+((i+2)/i);
label1.Caption:=floattostr(r);
end;

@volvo · 10.10.2014, 13:03

AndruxaIX, это неправильное решение. Смена знака не учитывается...

@AndruxaIX · 10.10.2014, 14:46

UI Спасибо за комментарий. Надо мне внимательней условие смотреть

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,n:integer;
r:real;
begin
n:=StrToInt(edit1.Text);
for i:=1 to n do
if ((i mod 2 = 0) or (i=1)) then
r:=r+((i+2)/i)
else
r:=r-((i+2)/i);
label1.Caption:=floattostr(r);
end;

PS:Если сейчас конечно правильно вчитался

@tukzar 0 / 0 / 0 Регистрация: 09.10.2014 Сообщений: 21
		1
	Дано натуральное п. Вычислить:3/1+4/2-.+(-1)n+1(n+2)/n . Оператор повтора for 09.10.2014, 22:47. Показов 407. Ответов 3 Метки нет (Все метки) Дано натуральное п. Вычислить:3/1+4/2-...+((-1)n+1(n+2))/n . Оператор повтора for 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	10.10.2014, 13:03	3
	AndruxaIX, это неправильное решение. Смена знака не учитывается... 0

	10.10.2014, 14:46