SHARE
TWEET

1111

a guest Sep 16th, 2019 89 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program lab_1_1;
  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,Y);
  16.          IsCorrect := TRUE;
  17.          except
  18.             writeln ('Ошибка ввода');
  19.       end;
  20.    until (IsCorrect);
  21.    if (Y >= 0) and (Y <= 1 - Abs(X)) or
  22.      (Y >= -1) and (Y < 0) and (X >= -1) and (X <= 1) then
  23.       writeln ('Принадлежит')
  24.    else
  25.       writeln ('Не принадлежит');
  26.    readln (X)
  27. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top