Къде се намира точка

4 Responses to Къде се намира точка

1. kaloyan каза:

   24 януари, четвъртък в 14:52

   type
     Tochka=record
       x: integer;
       y: integer;
     end;
   VAR
      R:Tochka;
   begin
   Writeln('Vavedete tochkite na kordinatite');
   with R do begin
     writeln('x:');
       readln(x);
     writeln('y:');
       readln(y);
   end;
   with R do
   //Проверяваме за първи квадрант
   if ((x>0) and (y>0)) then writeln('Tochkata e v parvi kvadrant')
   else
   //Проверяваме за втори квадрант
   if ((x<0) and (y>0)) then writeln('Tochkata e vav vtori kvadrant')
   else
   //Проверяваме за трети квадрант
   if ((x<0) and (y<0)) then writeln('Tochkata e v treti kvadrant')
   else
   //Проверяваме за четвърти квадрант
   if ((x>0) and (y<0)) then writeln('Tochkata e v chetvarti kvadrant')
   else
   if ((x=0) and (y=0)) then writeln('Tochkata ne e v nikoi kvadrant');
   readln;
   end.

   Влезте, за да отговорите
   • Данаил каза:

     24 януари, четвъртък в 15:23

     Вярно! Не съм съгласен само с проверката if ((x=0) and (y=0)) then – тя проверява дали точката не е в центъра на координатаната система, а това не е единствената причина да не е в никой квадрант…

     Влезте, за да отговорите
2. kaloyan каза:

   24 януари, четвъртък в 20:28

   Ето, сега мисля, че я направих както трябва :)

   type
     Tochka=record
       x: integer;
       y: integer;
     end;
   VAR
      R:Tochka;
   begin
   Writeln('Vavedete koordinatite na tochkite');
   with R do begin
     write('x: '); readln(x);
     write('y: '); readln(y);
   end;
   
   with R do
   //Проверяваме за първи квадрант
   if ((x>0) and (y>0)) then writeln('Tochkata s koordinati (',x,';',y,') e v parvi kvadrant')
   else
   //Проверяваме за втори квадрант
   if ((x<0) and (y>0)) then writeln('Tochkata s koordinati (',x,';',y,') e vav vtori kvadrant')
   else
   //Проверяваме за трети квадрант
   if ((x<0) and (y<0)) then writeln('Tochkata s koordinati (',x,';',y,') e v treti kvadrant')
   else
   //Проверяваме за четвърти квадрант
   if ((x>0) and (y<0)) then writeln('Tochkata s koordinati (',x,';',y,') e v chetvarti kvadrant')
   else
   //Проверяваме дали е в центъра на координатната система
   if ((x=0) and (y=0)) then writeln('Tochkata s koordinati (',x,';',y,') e v centara na koordinatnata sistema')
   else
   //Проверяваме дали е по абсцисата или по ординатата
   if x=0 then writeln('Tochkata s koordinati (',x,';',y,') e varhu ordinatnata os')
   else
   if y=0 then writeln('Tochkata s koordinati (',x,';',y,') e varhu abscisnata os');
   
   readln;
   end.

   Влезте, за да отговорите
   • Данаил каза:

     25 януари, петък в 01:33

     Ами почти – сега ако точката е с координати (0, 0) ще ти пише, че е на абцисата, което не че не е вярно, но не е цялата истина. В предишното решение можеше да ползваш просто or вместо and в последната проверка.

     Влезте, за да отговорите