Помогите решить две задачи!, Help Опции

[2D]

Люди очень вас прошу !!! помогите решить вот эти задачи:
1)Построить таблицу значений функции "y" [a;b] с шагм h с приостановкой выдачи результатов через каждые N строк таблици. Найти max,min "y" и соответствующее им значения аргумента "x".
_______________________
| № | x | y |
----------------------------------
| ... | ... | ... |
----------------------------------
y(x)=(x-1)*exp(-abs(x));
a=-2;
b=3;
h=0.05;
N=20;


2)Вычислить max сумму обратных значений четных натуральных чисел (1/2, 1/4, 1/6 ... ) в которую входят слагаемые, не меньше 0.004. Проверить решение двумя способами - использованием цикла с предусловием WHILE_DO и цикл с постусловием Repeat_until.


Заранее вас благодарю.

[leking]

откуда ты такую задачу откапал

[BlackNightFear]

leking
:D задачка и в правду страннова-та....

Но здесь нет ничего сложного с мат. стороны это задачи!
Организуем цикл. Далее чего делаем там...

1. Присваеваем некоторой переменной X начало сканирования! т.е.
X := a;
N := 1;

Просчитываем сразу значение У (просто подставив в формулу)

2. X := X + h;
N := N + 1;
Снова: Просчитываем сразу значение У (просто подставив в формулу)

3. и так далее пока не последний шаг, т.е. где X == b

Далее ещё учитывать останов на N'ом шаге.

и все!!

[BlackNightFear]

а по поводу второй задачи - проще просто не бывает!

Тут я понял тебе надо сравнить 2 задачи как бы (одна с вайлом, другая с антилом...)

1 variant:

Код

var
N : integer;
Sum, Slag : real;

begin
 N := 2;
 Sum := 0;
 Slag := 1/2;
 while ( Slag => 0.004) {
   Sum := Sum + Slag;
   N := N + 2;
   Slag := 1/N; // если следующее слагаемое больше или равно 0.004 то условие больше не выполнится
 }
end;

код не проверял возможно ошибочный, но ведь главное мысля!