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

Да се напише програма, която позволява да се въведе (чрез запис) координатите на точка от равнината и после проверява и отпечатва в кой квадрант се намира точката.

Публикувано в 10в с етикети . Постоянна връзка.

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

  1. kaloyan каза:
    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.
  2. kaloyan каза:

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

    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.
    • Данаил каза:

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

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