Question

Napisz program który sprawdzi czy podany punkt o współrzędnych (x,y) należy do obszaru na płaszczyźnie XY. Współrzędne punktów A=(1,3), B=(4,-3), C=(-5,-3)

Program ma zostać napisany w PASCALU. Proszę o pomoc,daję naj !

Answer 1

program PunktNaOsi;

var
x, y : integer;

begin

Write('Podaj wspolrzedna x punktu: ');
ReadLn(x);
Write('Podaj wspolrzedna y punktu: ');
ReadLn(y);


If ( x >= -5 ) then begin
   If ( x <= 4 ) then begin
      If ( y <= 3 ) then begin
         If ( y >= -3 ) then begin
            If ( x <= 1 ) then begin
              If ( x + 2 >= y ) then
                WriteLn('Punkt nalezy do obszaru!')
              else WriteLn('Punkt nie nalezy do obszaru!');
            end else begin
              If ( x - 2 >= y ) then
                 WriteLn('Punkt nalezy do obszaru!')
              else WriteLn('Punkt nie nalezy do obszaru!');
            end;
         end else WriteLn('Punkt nie nalezy do obszaru!');
      end else WriteLn('Punkt nie nalezy do obszaru!');
   end else WriteLn('Punkt nie nalezy do obszaru!');
end else WriteLn('Punkt nie nalezy do obszaru!');

ReadLn;

end.

 

 

PS. Sprawdź jeszcze dokładnie w poszukiwaniu błędów, chociaż z tego co patrzyłem, to powinno działać poprawnie.

 

Pozdrawiam Kay :)

 

.