Помощь в решении задачи
Собственно задание:
Дано натуральное число n. Вычислить 
Текст программы
Код:
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;
Правильно ли написано, подскажите пожалуйста. |
Vitek 07, Для накопления результата в переменной надо написать суммирование с предыдущим значением.
S = S + <что-то>
Кроме того, не ясно начальное значение переменной S. Необходимо ей присвоить начальное значение - ноль, до цикла.
Label2.Caption:=... вынести ЗА тело цикла. Принципиально важным это не будет, просто проще сначала посчитать, а затем показывать конечную цифру.
|
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 |
14-03-2011 14:26 1634594 |
Здравствуйте помогите решить Задачи. собственно задания за 86год как не странно программа в универах не меняется ((((
по всем заданиям примеры №5 |
prorok1987, с чем именно возникла проблема? В каком месте решения? Что не получается сделать и т.д. Сформулируй правильно вопрос, о том, что ты хочешь от нас услышать?
|
| prorok1987 |
14-03-2011 14:57 1634629 |
собственно я дуб в бэйсике
сори на форумах не сижу некогда первый раз прибегаю к помощи
вопроса собственно нету, это крик о помощи, да препод гад просит деньги и типо поставит зачёт, а их собственно и нету
|
Цитата:
Цитата prorok1987
да препод гад просит деньги и типо поставит зачёт »
|
И много просит? |
| prorok1987 |
14-03-2011 15:41 1634664 |
2000 р
|
prorok1987, последний тогда вопрос. Этот Basic вообще, как таковой, в дальнейшем нужен? Он будет являться частью работы или еще чем. Или это просто дисциплина, которую надо пройти и забыть как страшный сон?
И да, давайте выберем какую-нибудь одну тему для продолжения решений (Скорей всего соседнюю)
|
| prorok1987 |
14-03-2011 16:15 1634694 |
Цитата:
Цитата lxa85
prorok1987, последний тогда вопрос. Этот Basic вообще, как таковой, в дальнейшем нужен? Он будет являться частью работы или еще чем. Или это просто дисциплина, которую надо пройти и забыть как страшный сон?
И да, давайте выберем какую-нибудь одну тему для продолжения решений (Скорей всего соседнюю) »
|
собственно мне этот бэйсик даже и нужен не будет, это просто дисциплина, которую надо пройти и забыть как страшный сон? |
Время: 23:22.
© OSzone.net 2001-
