Advertisement
Guest User

Untitled

a guest
Sep 16th, 2019
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.61 KB | None | 0 0
  1. program project1;
  2. {$APPTYPE CONSOLE}
  3.  
  4. {$R *.res}
  5. uses
  6.   System.SysUtils;
  7. var
  8.    X, Y : double;
  9.    IsCorrect : Boolean;
  10. begin
  11.    IsCorrect := FALSE;
  12.    writeln ('Введите числа X и Y');
  13.    repeat
  14.       try
  15.          readln (X);
  16.          readln (Y);
  17.          IsCorrect := TRUE;
  18.          except
  19.             writeln ('Ошибка ввода');
  20.       end;
  21.    until (IsCorrect);
  22.    if (Y >= 0) and (Y <= 1 - Abs(X)) or
  23.      (Y >= -1) and (Y < 0) and (X >= -1) and (X <= 1) then
  24.       writeln ('Принадлежит')
  25.    else
  26.       writeln ('Не принадлежит');
  27.    readln (X)
  28. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement