Я с ума сойду
, не получается вообще. Помогите мне
Не могу я написать так чтобы выводились координаты всех не вошедших после того как все точки введены. Получается либо сразу после ввода 1 точки, или выводит только последнюю точку если она не вошла....
Вот так мне кажется больше похоже на то что надо, но не работает, не знаю как правильно написать.
PHP код:
Unit My_Unit;
Interface
Const n=5;
Type
mass = array[1..n] of real;
Coord=Record
x,y:mass;
End;
Function First_Quadr(i:integer; z:Coord):boolean;
Implementation
Function First_Quadr(i:integer; z:Coord):boolean;
begin
for i:=1 to n do
if (z.x[i]>=0) and (z.y[i]>=0) then
First_Quadr:=true
else
First_Quadr:=false;
end;
end.
PHP код:
Uses My_Unit;
Var
i:byte;
b:boolean;
Point:Coord;
R:real;
Const
x: mass = (2, -3, 6, 7, 8);
y: mass = (0, 1, -2, 9, 3);
Begin
R:=0;
b:=true;
begin
for i:=1 to n do
if not First_Quadr(i, Point) then
begin
b:=false;
writeln('Координаты точек не попавших в первый квадрант: ');
writeln('x = ',Point.x[i],' y = ',Point.y[i]);
end
else
if Sqrt(Sqr(Point.x[i])+Sqr(Point.y[i]))>R then
R:=Sqrt(Sqr(Point.x[i])+Sqr(Point.y[i]));
end;
if b then
begin
writeln('Все точки принадлежат первому квадранту ');
writeln('Rmax = ',R:0:3);
end;
End.