Помогите с программкой, пожалуйста

anasteisha · 27.11.2013, 23:27

Помогите, пожалуйста написать программу на пример 5. Вычислить значение суммы ряда с заданной точность или протабулировать с шагом h на [a,b] (если заданы a,b,h)

anasteisha · 28.11.2013, 01:01

напишите пожалуйста, ничего не получается(

Vladimir_S · 28.11.2013, 10:39

Цитата:

Сообщение от anasteisha

напишите пожалуйста, ничего не получается(

Хорошо. Но вообще-то было бы куда приятнее для нас и полезнее для Вас, если бы Вы выложили результаты своих, пусть и неудачных, попыток решить задачу, и мы бы вместе разобрали ошибки. Глядишь - и научились бы чему-то. А так... Боюсь я, что код будет тупо и бездумно скатан и сдан, а при получении следующей столь же пустяковой задачки мы вновь будем осчастливлены воплями "Помогите!", "Не получается!!!" и т.п. Сразу скажу, что конец у подобных подходов всегда один - неуды и отчисление. На форумах всю учебу не проездишь, уж поверьте. Ну да Вам жить...

Код:

Const
 a=0.8;
 b=1.2;
 h=0.1;
 Eps=0.001;

Var
 N,i,j:Integer;
 S,x,Q:Real;

Begin
 N:=Round((b-a)/h);
 Writeln(' x      Sum  Accurate value');
 For i:=0 to N do
  begin
   x:=a+h*i;
   j:=1;
   Q:=x;
   S:=Q;
   Repeat
    Inc(j,2);
    Q:=-Q*x*x/(j*(j-1));
    S:=S+Q;
   Until Abs(Q)<Eps;
   Writeln(x:3:1,S:9:3,Sin(x):10:3);
  end;
 Readln
End.

anasteisha · 28.11.2013, 17:37

Спасибо огромное!!! Теперь поняла где у меня ошибка. В следующий раз учту ваши замечания и буду писать что где именно не получается)

Vladimir_S · 28.11.2013, 19:16

Цитата:

Сообщение от anasteisha

Спасибо огромное!!! Теперь поняла где у меня ошибка. В следующий раз учту ваши замечания и буду писать что где именно не получается)

Ну что же - успехов! Обращайтесь, если что...

27.11.2013, 23:27	#1 (permalink)
anasteisha Новичок Регистрация: 27.11.2013 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с программкой, пожалуйста Помогите, пожалуйста написать программу на пример 5. Вычислить значение суммы ряда с заданной точность или протабулировать с шагом h на [a,b] (если заданы a,b,h) Миниатюры

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

27.11.2013, 23:27
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Отправлю вам топики, которые аналогичны вашей теме Некорректный выход компьютера из сна Помогите с программкой Помогите пожалуйста Помогите пожалуйста =) Помогите пожалуйста

28.11.2013, 01:01	#2 (permalink)
anasteisha Новичок Регистрация: 27.11.2013 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	напишите пожалуйста, ничего не получается(

28.11.2013, 17:37	#4 (permalink)
anasteisha Новичок Регистрация: 27.11.2013 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо огромное!!! Теперь поняла где у меня ошибка. В следующий раз учту ваши замечания и буду писать что где именно не получается)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070