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

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

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

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

3 Responses to На коя от осите е?

  1. procsy каза:
    01 февруари, сряда в 18:18 
     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 каза:
    02 февруари, четвъртък в 21:40 
    ...
  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');
...

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

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