11.11.2013, 18:20 | #1 (permalink) |
Новичок
Регистрация: 11.11.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Здравствуйте, помогите пожалуйста написать программы на языке Паскаль
Вычислить значение суммы ряда с заданной степенью точности e=0.001 в точке x0 (если задана точка x0) или протабулировать с шагом h [a,b] (если заданы a,b,h): |
11.11.2013, 18:20 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В этом деле главное не торопится, а по лучше ознакомится с проблемой Помогите написать программы на языке Pascal Помогите, пожалуйста, написать программы Помогите, пожалуйста, написать на языке Pascal, желательно попроще Помогите, пожалуйста, написать программы на С# |
11.11.2013, 18:23 | #2 (permalink) |
Новичок
Регистрация: 11.11.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вычислить значение суммы ряда с заданной степенью точности Е=0.001 в точке х0 (если задана точка х0) или протабулировать с шагом h на [a,b] (если заданыa,b,h)
X0= -, A=0.2, B=0.8, H=0.2. |
11.11.2013, 19:07 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... тяжелый случай. Молодой человек, ну что Вы за ахинею вместо формулы выложили, да еще набрав в незнамо каком редакторе? Вы это имели в виду:
Или может быть что-то другое? Почему было не набрать формулу в нормальном редакторе или, на худой конец, не написать аккуратно от руки и не сфотографировать? Цирк, да и только. Теперь по задачам. В наши цели не входит выполнение детских заданий за лентяев. Если совсем ничего не можете, пролистайте программистский раздел нашего форума (подразделы "Помощь студентам" и "Delphi, Kylix and Pascal") - здесь решений подобных задачек выложено море, затем попробуйте хоть что-нибудь изобразить самостоятельно, а мы Вам поможем, не сомневайтесь. Успехов! |
11.11.2013, 20:05 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.11.2013, 20:13 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Н-да... Чувствую, всё моё педагогическое красноречие отправилось псу под хвост... Ладно, сделаю. Минут через 15-20, надеюсь, закончу.
|
11.11.2013, 20:45 | #9 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Получите:
Код:
Const Eps=0.001; Function Sum(x:real):real; var S,a:real; i:word; begin a:=x*2; S:=a; i:=0; Repeat Inc(i); a:=-a*x*x*2*2/(i*2*(i*2+1)); S:=S+a; Until Abs(a)<Eps; Sum:=S; end; Begin Writeln('Result: ',Sum(0.2):0:5); Readln End. Код:
Const Eps=0.001; A=0.2; B=0.8; H=0.2; Var N,i:byte; x:real; Function Sum(z:real):real; var S,q:real; j:word; begin q:=-z*z; S:=q; j:=1; Repeat Inc(j); q:=-q*(j-1)*(j-1)*z*z/(j*j); S:=S+q; Until Abs(q)<Eps; Sum:=S; end; Begin N:=Round((B-A)/H); For i:=0 to N do begin x:=A+H*i; writeln('x= ',x:3:1,' Sum= ',Sum(x):0:5); end; Readln End. |
12.11.2013, 09:36 | #10 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|