07.12.2010, 01:50 | #1 (permalink) |
Новичок
Регистрация: 07.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачи
1)В одномерном массиве ,состоящем из n целочисленных элементов ,вычислить а)максимальный по модулю элемент массива ; б)сумму модулей элементов массива,расположенных после первого элемента,равного 0 преобразовать массив таким образом ,чтобы в первой его половине располагались элементы,стоявшие в четных позициях ,а во втоой половине - элементы,стоявшие в нечетных позициях +нужна блок-схема 2)и еще вот это Ссылка удалена извините за наглость ,но очень надо) с меня пиво Последний раз редактировалось Fenix; 11.06.2013 в 11:37 Причина: Ссылка мертва |
07.12.2010, 01:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Следующие топики могут вам существенно облегчить задачу Задачи по Pascal Задачи по физике |
07.12.2010, 15:06 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну, поскольку Вы не утрудили себя по части разъяснений, надо ли вычислять значения ареатангенса при одном значении Х или для всего диапазона с некоторым шагом, а также следует ли задать точность или фиксированное число членов разложения, ну и прочие подобные мелочи, я счел себя вправе решить подобные вопросы, как мне нравится. Программа считает значения тейлоровского разложения ареатангенса во всем диапазоне с шагом 0.1 с заданной точностью, выводится результат, число членов суммы а также, для сравнения, точное значение ареатангенса.
Код:
CONST Eps=0.0001; VAR SUM,X:REAL; N:WORD; i:Integer; FUNCTION ArTh(Xa:Extended):Extended; BEGIN ArTh:=(1/2)*Ln((Xa+1)/(1-Xa)); END; PROCEDURE SUMS(Xs:REAL; Var S:REAL; Var Ns:WORD); VAR a:REAL; Begin a:=Xs; S:=Xs; Ns:=0; Repeat Inc(Ns); a:=a*Xs*Xs*(2*(Ns-1)+1)/(2*Ns+1); S:=S+a; Until Abs(a)<Eps; End; BEGIN X:=-1; WriteLn(' Results of calculation:'); WriteLn(' X SUM N ArTh(X)'); WriteLn; For i:=1 to 19 do begin X:=X+0.1; SUMS(X,SUM,N); WriteLn(X:8:5,' ',SUM:8:5,' ',N:3,' ',ArTh(X):8:5); end; ReadLn; END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|