[решено] Помощь в решении задачи

[Vitek 07]

Собственно задание:
Дано натуральное число n. Вычислить http://upyourpic.in/images/201103/uo7cnucxto.jpg (http://upyourpic.in/images/201103/uo7cnucxto.jpg.html)

Текст программы

procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
s: real;
begin
n:=StrToInt(Edit1.Text);
for i := 1 to n do
begin
s:=1/(sqr(2*i+1));
Label2.Caption:=('Значение выражения = ')+FloatToStr(s);
end;
end;


Правильно ли написано, подскажите пожалуйста.

[lxa85]

Vitek 07, s:=1/(sqr(2*i+1)); »
Для накопления результата в переменной надо написать суммирование с предыдущим значением.
S = S + <что-то>
Кроме того, не ясно начальное значение переменной S. Необходимо ей присвоить начальное значение - ноль, до цикла.
Label2.Caption:=... вынести ЗА тело цикла. Принципиально важным это не будет, просто проще сначала посчитать, а затем показывать конечную цифру.

[Vitek 07]

lxa85, спасибо за помощь.

исправил на это
...
var i,n: integer;
s: real;
begin
n:=StrToInt(Edit1.Text);
s:=0;
for i := 1 to n do
begin
s:=s+1/(sqr(2*i+1));
end;
Label2.Caption:=('Значение выражения = ')+FloatTostr(s);
end;
...

[prorok1987]

Здравствуйте помогите решить Задачи. собственно задания за 86год как не странно программа в универах не меняется ((((
http://s52.radikal.ru/i137/1103/bf/bf8395cdc0eft.jpg (http://radikal.ru/F/s52.radikal.ru/i137/1103/bf/bf8395cdc0ef.jpg.html)

http://s53.radikal.ru/i140/1103/d9/abec13a371d2t.jpg (http://radikal.ru/F/s53.radikal.ru/i140/1103/d9/abec13a371d2.jpg.html)

по всем заданиям примеры №5

[lxa85]

prorok1987, с чем именно возникла проблема? В каком месте решения? Что не получается сделать и т.д. Сформулируй правильно вопрос, о том, что ты хочешь от нас услышать?

[prorok1987]

собственно я дуб в бэйсике
сори на форумах не сижу некогда первый раз прибегаю к помощи
вопроса собственно нету, это крик о помощи, да препод гад просит деньги и типо поставит зачёт, а их собственно и нету

[Iska]

да препод гад просит деньги и типо поставит зачёт »
И много просит?

[prorok1987]

2000 р

[lxa85]

prorok1987, последний тогда вопрос. Этот Basic вообще, как таковой, в дальнейшем нужен? Он будет являться частью работы или еще чем. Или это просто дисциплина, которую надо пройти и забыть как страшный сон?
И да, давайте выберем какую-нибудь одну тему для продолжения решений (Скорей всего соседнюю)

[prorok1987]

prorok1987, последний тогда вопрос. Этот Basic вообще, как таковой, в дальнейшем нужен? Он будет являться частью работы или еще чем. Или это просто дисциплина, которую надо пройти и забыть как страшный сон?
И да, давайте выберем какую-нибудь одну тему для продолжения решений (Скорей всего соседнюю) »

собственно мне этот бэйсик даже и нужен не будет, это просто дисциплина, которую надо пройти и забыть как страшный сон?