Помогите разобраться с массивами.

[s_S_s]

проблема следуючая: Дади два действительных числа если оба числа не отрицательные и не одно из них не пренадлежит отрезку [0.5, 2.0], то оба значения уменьшить в 10 раз.

var
m: array [0.5..2] of real;(Сдесь ошибка)
begin
if x<>m then
if y<>m then begin
x:=x-d;
y:=y-d;
Edit1.Text:=floattostr(x);
Edit2.Text:=floattostr(y);
Showmessage('Îáà çíà÷åíèÿ íå îòðèöàòåëüíû è íå îäíî èç íèõ íå ïðåíàäëåæèò îòðåçêó
[0.2,2.0] j, îáà çíà÷åíèÿ óìåíüøåíû â 10 ðàç');
end;
end.

 

[van4ello]

Надо бы вот так

var
mmin : real = 0.5;
mmax : real = 2;
begin
[B][COLOR="Red"]if (x>=0) and (y>=0) then[/COLOR][/B]
if ((x<mmin) or (x>mmax)) and ((y<mmin) or (y>mmax)) then begin
x := x/10;
y := y/10;
end;
end;

сразу упустил из виду проверку на неотрицательность

 

[s_S_s]

Надо бы вот так

var
mmin : real = 0.5;
mmax : real = 2;
begin
if ((x<mmin) or (x>mmax)) and ((y<mmin) or (y>mmax)) then begin
x := x/10;
y := y/10;
end;
end;

Спасибо, выручил!