Показать сообщение отдельно
Старый 04.06.2014, 00:41   #7 (permalink)
Madara
Member
 
Регистрация: 29.11.2013
Сообщений: 50
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Я с ума сойду , не получается вообще. Помогите мне

Не могу я написать так чтобы выводились координаты всех не вошедших после того как все точки введены. Получается либо сразу после ввода 1 точки, или выводит только последнюю точку если она не вошла....


Вот так мне кажется больше похоже на то что надо, но не работает, не знаю как правильно написать.
PHP код:
Unit My_Unit;

Interface

Const 
n=5;
Type
 mass 
= array[1..nof real;
 
Coord=Record
        x
,y:mass;
       
End;

Function 
First_Quadr(i:integerz:Coord):boolean;

Implementation

Function First_Quadr(i:integerz:Coord):boolean;
begin
for i:=1 to n do
 if (
z.x[i]>=0) and (z.y[i]>=0then
   First_Quadr
:=true
     
else
        
First_Quadr:=false;
end;
end
PHP код:
Uses My_Unit;

Var
 
i:byte;
 
b:boolean;
 
Point:Coord;
 
R:real;
 
 Const
xmass = (2, -3678);
ymass = (01, -293);


Begin
 R
:=0;
 
b:=true;
  
begin
   
for i:=1 to n do
      if 
not First_Quadr(iPointthen
    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
Madara вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070