Две точки от равнина

Публикувано на 11 февруари, сряда от Данаил

Напишете програма, която въвежда координатите на две точки А и В от равнината и определя:

  1. дали правата АВ е успоредна на някоя от осите и на коя точно
  2. дали двете точки лежат в един квадрант
Публикувано в 10а, 10б с етикети . Постоянна връзка.

4 Responses to Две точки от равнина

  1. misho_cveti каза:
    11 февруари, сряда в 17:29 
     program Project1;
var
  XA,XB,YA,YB:integer;
begin
  Write('vavedete koordinatite na tochka A:');
  ReadLn(XA,XB);
  Write('vavedete koordinatite na tochka B:');
  ReadLn(YA,YB);
  if(XA>0)and(XB>0)and(YA>0)and(YB>0)then
     WriteLn('tova e v 1-vi kvadrant')
  else if(XA<0)and(XB<0)and(YA>0)and(YB>0)then
     WriteLn('tova e v 2-ri kvadrant')
 else if(XA<0)and(XB<0)and(YA<0)and(YB<0)then
     WriteLn('tova e v 3-ti kvadrant')
 else if(XA>0)and(XB>0)and(YA<0)and(YB<0)then
     WriteLn('tova e v 4-ti kvadrant')
 else WriteLn('ne sa v edin kvadrant');
  ReadLn;
end.
  2. BGTitan каза:
    23 февруари, понеделник в 13:37 
     program project2;
 var
   xTA: real;
   yTA: real;
   xTB: real;
   yTB: real;
begin
  WriteLn('Vavedete X stoinostta na tochka A:');
  ReadLn(xTA);
  WriteLn('Vavedete Y stoinostta na tochka A:');
  ReadLn(yTA);
  WriteLn('Vavedete X stoinostta na tochka B:');
  ReadLn(xTB);
  WriteLn('Vavedete Y stoinostta na tochka B:');
  ReadLn(yTB);
    if (xTA=xTB) then
     WriteLn('Pravata AB e usporedna ordinatata.')
    else if (yTA=yTB) then
     WriteLn('Pravata AB e usporedna na abcisata.');
    if (xTA>0) and (yTA>0) then
       WriteLn('Tochka A e v I kvadrant.')
    else if (xTA<0) and (yTA<0) then
       WriteLn('Tochka A e v III kvadran.');
    if (xTB>0) and (yTB>0) then
       WriteLn('Tochka B e v I kvadrant.')
    else if (xTB<0) and (yTB<0) then
       WriteLn('Tochka B e v III kvadran.');
    if (xTA<0) and (yTA>0) then
       WriteLn('Tochka A e v II kvadrant.')
    else if (xTA>0) and (yTA<0) then
    WriteLn('Tochka A e v IV kvadrant.');
    if (xTB<0) and (yTB>0) then
       WriteLn('Tochka B e v II kvadrant.')
    else if (xTB>0) and (yTB<0) then
    WriteLn('Tochka B e v IV kvadrant.');
    ReadLn;
    • Данаил каза:
      02 март, понеделник в 23:15

      Браво, много добре си направил задачата! По условие 1) – какво ще стане, ако въведем в програмата например 1 2 1 2 ? По условие 2 – и така както си го направил става, но този, който стартира програмата трябва според извежданото да прецени дали точките са в един квадрант. Ако искаш програмата да извежда директно дали точките са в един квадрант, може да комбинираш условията за едната и за другата точка с and (тогава ще можеш да кажеш и в кой квадрант са) или пък можеш да провериш така:

      if ((xTA>0)=(xTB>0)) and ((yTA>0)=(yTB>0)) then
  WriteLn('V edin kvadrant sa') 
else WriteLn('Ne sa v edin kvadrant');

Вашият коментар