Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 07.12.2010, 01:50   #1 (permalink)
vasek1
Новичок
 
Регистрация: 07.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задачи

Помогите решить задачи пожалуйста (Ну не понимаю я паскаль
1)В одномерном массиве ,состоящем из n целочисленных элементов ,вычислить
а)максимальный по модулю элемент массива ;
б)сумму модулей элементов массива,расположенных после первого элемента,равного 0
преобразовать массив таким образом ,чтобы в первой его половине располагались элементы,стоявшие в четных позициях ,а во втоой половине - элементы,стоявшие в нечетных позициях
+нужна блок-схема
2)и еще вот это
Ссылка удалена
извините за наглость ,но очень надо)
с меня пиво

Последний раз редактировалось Fenix; 11.06.2013 в 11:37 Причина: Ссылка мертва
vasek1 вне форума   Ответить с цитированием

Старый 07.12.2010, 01:50
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Следующие топики могут вам существенно облегчить задачу

Задачи по Pascal
Задачи по физике

Старый 07.12.2010, 15:06   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от vasek1 Посмотреть сообщение
2)и еще вот это
Ссылка удалена
Ну, поскольку Вы не утрудили себя по части разъяснений, надо ли вычислять значения ареатангенса при одном значении Х или для всего диапазона с некоторым шагом, а также следует ли задать точность или фиксированное число членов разложения, ну и прочие подобные мелочи, я счел себя вправе решить подобные вопросы, как мне нравится. Программа считает значения тейлоровского разложения ареатангенса во всем диапазоне с шагом 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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 18:41.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.