На коя от осите е?

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

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

3 коментара по На коя от осите е?

  1. procsy каза:
     program Project1;
     type
       tochki=record
         x:integer;
         y:integer;
         end;
    var Z:tochki;
    begin
     Writeln('Vavedete tochkata ot kordinatnata sistema, koito iskate da prowerite w dali sa w daden kwadrant');
      Writeln('Vavedete kordinata X');
       Readln(Z.x);
        Writeln('Vavedete kordinata Y');
         Readln(Z.y);
    If ((z.x=0) and (z.y=0)) then
     Writeln('Tochkata leji w centura na kordinatnata sistema')
    else If Z.x=0 then
     Writeln('Tochkata leji na osata X ')
    else If Z.y=0 then
     Writeln('Tochkata leji na osta Y ')
    else
      Writeln('Tochkata ne leji na nikoq ot osite');
    readln;
    end.       
  2. Svetli каза:
    ...
      if (A.X=0) or (B.X=0) then if (A.X=0) then Writeln('Edna ot tochkite leji na abcisata i tova e A');
      if (A.X=0) or (B.X=0) then if (B.X=0) then Writeln('Edna ot tochkite leji na abcisata i tova e B');
      if (A.Y=0) or (B.Y=0) then if (A.Y=0) then Writeln('Edna ot tochkite leji na ordinatata i tova e A');
      if (A.Y=0) or (B.Y=0) then if (B.Y=0) then Writeln('Edna ot tochkite leji na ordinatata i tova e B');
    ...
    

    Мисля, че няма смисъл да качвам едно и също решение два пъти и затова качих само частта, която е нужна.

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