SHARE
TWEET

Untitled

a guest Sep 16th, 2019 77 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.
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