Advertisement
MadCortez

Untitled

Sep 12th, 2020
148
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.17 KB | None | 0 0
  1. program laba1_1;
  2. uses
  3.    System.SysUtils;
  4. var
  5.    ValueA, ValueB: Longint;
  6.    IsValid: Boolean;
  7.    const MIN_SIZE = 0;
  8.    const MAX_SIZE = 1000001;
  9. begin
  10.    Writeln('Данная программа проверяет, пройдёт ли круг радиусом А в квадрат со стороной B');
  11.    repeat
  12.       Write('Введите радиус круга в диапазоне 1..1000000: ');
  13.       try
  14.          Readln(ValueA);
  15.       except
  16.          Writeln('Введите число');
  17.       end;
  18.       if (ValueA > MIN_SIZE) and (ValueA < MAX_SIZE) then
  19.         IsValid := True;
  20.    until IsValid;
  21.    IsValid := False;
  22.    repeat
  23.       Write('Введите сторону квадрата в диапазоне 1..1000000: ');
  24.       try
  25.          Readln(ValueB);
  26.       except
  27.          Writeln('Введите число');
  28.       end;
  29.       if (ValueB > MIN_SIZE) and (ValueB < MAX_SIZE) then
  30.         IsValid := True;
  31.     until IsValid;
  32.    if (2 * ValueA < ValueB) then
  33.       Writeln('Пройдёт')
  34.    else
  35.       Writeln('Не пройдёт');
  36.    Writeln('Нажмите Enter для выхода из программы');
  37.    Readln;
  38. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement