|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
10.01.2015, 01:37 | #1 (permalink) |
Новичок
Регистрация: 07.01.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задание
Огромная просьба не пользоваться подпрограммами Нужно срочно, сегодня утром экзамен а эту программу до экзамена сдавать... Заранее спасибо! |
10.01.2015, 01:37 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
К вашему вниманию аналогичные обсуждения Помогите выполнить задание Помогите решить |
10.01.2015, 08:36 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ну а пока - получите: Код:
Const Eps=0.0001; Var i:Integer; S,x,a,AV,AE,RE:Real; Begin Write('x= '); Readln(x); AV:=Ln(x+Sqrt(1+x*x)); a:=x; S:=a; i:=0; Repeat Inc(i); a:=-a*x*x*(2*i-1)/(2*i)*(2*i-1)/(2*i+1); S:=S+a; Until Abs(a)<Eps; If x=0 then begin AE:=0; RE:=0; end else begin AE:=Abs(S-AV); RE:=Abs((S-AV)/AV)*100; end; WriteLn('Result: ',S:0:6,' Acc.value: ',AV:0:6,' Abs.err: ',AE:0:6,' Rel.err: ',RE:0:6,'%'); Readln End. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|