Помогите решить две задачи!, 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.


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

[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;

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