23.04.2013, 18:30 | #1 (permalink) |
Member
Регистрация: 02.04.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программирование циклической структуры в Pascal ABC
|
23.04.2013, 18:30 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Мой вам совет - поищите ответы в аналогичных обсуждениях Программирование алгоритмов линейной структуры Программирование алгоритмов итерационной циклической структуры Программирование алгоритмов разветвляющейся структуры Программирование алгоритмов циклической структуры Разработка циклической программы с неизвестным количеством повторений в Pascal |
23.04.2013, 20:47 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да пожалуйста:
Код:
Const Eps=1E-5; x=0.2; Var S,a:Real; i:Integer; Begin a:=-Sqr(x*2)/2; S:=a; i:=2; Repeat i:=i+2; a:=-a*Sqr(x*2)/(i-1)/i; S:=S+a; Until Abs(a)<Eps; Writeln('Result: ',S:0:5); Readln End. Код:
Const Eps=5E-5; x=0.1; Var S,a:Real; i:Integer; Begin a:=x; S:=a; i:=1; Repeat i:=i+1; a:=-a*Sqr(x); S:=S+a/(2*i-1); Until Abs(a/(2*i-1))<Eps; Writeln('Result: ',S:0:5); Readln End. Код:
Const Eps=1E-6; x=0.15; Var S,a:Real; i:Integer; Begin a:=x*x*x; S:=a/5; i:=1; Repeat i:=i+1; a:=-a*Sqr(x); S:=S+a/(4*i*i+1); Until Abs(a/(4*i*i+1))<Eps; Writeln('Result: ',S:0:6); Readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|