27.11.2013, 23:27 | #1 (permalink) |
Новичок
Регистрация: 27.11.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с программкой, пожалуйста
|
27.11.2013, 23:27 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Отправлю вам топики, которые аналогичны вашей теме Некорректный выход компьютера из сна Помогите с программкой Помогите пожалуйста Помогите пожалуйста =) Помогите пожалуйста |
28.11.2013, 10:39 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Хорошо. Но вообще-то было бы куда приятнее для нас и полезнее для Вас, если бы Вы выложили результаты своих, пусть и неудачных, попыток решить задачу, и мы бы вместе разобрали ошибки. Глядишь - и научились бы чему-то. А так... Боюсь я, что код будет тупо и бездумно скатан и сдан, а при получении следующей столь же пустяковой задачки мы вновь будем осчастливлены воплями "Помогите!", "Не получается!!!" и т.п. Сразу скажу, что конец у подобных подходов всегда один - неуды и отчисление. На форумах всю учебу не проездишь, уж поверьте. Ну да Вам жить...
Код:
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. |
28.11.2013, 19:16 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
100 |
|
|