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

s_S_s

Member
Joined
Jul 15, 2006
Messages
42
Reaction score
0
Age
41
Location
Астана
проблема следуючая: Дади два действительных числа если оба числа не отрицательные и не одно из них не пренадлежит отрезку [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

Member
Joined
Nov 12, 2005
Messages
69
Reaction score
14
Location
ukraine
Надо бы вот так
Code:
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;


сразу упустил из виду проверку на неотрицательность
 
Last edited by a moderator:

s_S_s

Member
Joined
Jul 15, 2006
Messages
42
Reaction score
0
Age
41
Location
Астана
Надо бы вот так
Code:
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;

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