MadCortez

Untitled

Sep 20th, 2020
140
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.22 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.    IsValid := False;
  11.    ValueA := 0;
  12.    ValueB := 0;
  13.    Writeln('Данная программа проверяет, пройдёт ли круг радиусом А в квадрат со стороной B');
  14.    repeat
  15.       Write('Введите радиус круга в диапазоне 1..1000000: ');
  16.       try
  17.          Readln(ValueA);
  18.       except
  19.          Writeln('Введите число');
  20.       end;
  21.       if (ValueA > MIN_SIZE) and (ValueA < MAX_SIZE) then
  22.         IsValid := True;
  23.    until IsValid;
  24.    IsValid := False;
  25.    repeat
  26.       Write('Введите сторону квадрата в диапазоне 1..1000000: ');
  27.       try
  28.          Readln(ValueB);
  29.       except
  30.          Writeln('Введите число');
  31.       end;
  32.       if (ValueB > MIN_SIZE) and (ValueB < MAX_SIZE) then
  33.         IsValid := True;
  34.     until IsValid;
  35.    if (2 * ValueA < ValueB) then
  36.       Writeln('Пройдёт')
  37.    else
  38.       Writeln('Не пройдёт');
  39.    Writeln('Нажмите Enter для выхода из программы');
  40.    Readln;
  41. end.
Add Comment
Please, Sign In to add comment