Помогите с математикой на PASKAL...

[nec 3540A]

Дали мне такое задание наверно простое, но я не могу понять как решать систему уравнений, а 3 задачу и 4 задачу я совсем незнаю как решать, посмотрите пожалуйста, мне бы только паскаль, а блок схемы я сам построил бы, ЗАРАНЕЕ СПАСИБО!

[pva]

Попробуй сначала на русском языке для себя выразить, что найти нужно. Пример:

если x<0, то вернём максимум, а иначе - минимум
максимум - это если x<y, то y (он ведь больше), а иначе x
минимум - это наоборот, если x<y, то x (он ведь меньше), а иначе y

То же самое, в переводе на паскаль.

function Z(x: double, y: double) : double
begin
if x<0 then begin
if x < y then result = y
else result = x
end else begin
if x < y then result = x
else result = y
end
end

Ещё такой вопрос - и не видать тебе заветного тройбана!

[nec 3540A]

А почему тройбан?
а на счет четвертого посмотрите пожалуйста, совсем непойму!

[GoDleSS]

Не уверен, что прав, т.к. не пользовал паскаль года 3 уже... Да и не люблю этот язык.


program arith_4;

var x,epsilon,ans:real;
var i,work:integer;

begin
epsilon:=0.001
x:=3.61;
work:=1;
ans:=0;
i:=1;

while work=1 do
begin
if ( (1-abs(sin(i+x)/exp(i*x))) < epsilon ) then
work:=0
else
begin
ans:=ans+sin(i+x)/exp(i*x);
inc(i);
end;
end;

write('Program returns: ', ans);

end.


Для произведения ставим начальное значение ans:=1 и в понятном месте вместо '+' - '*'