SHARE
TWEET

Untitled

kirill001 Sep 17th, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Laba1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.    System.SysUtils;
  9.  
  10. var
  11.     A, B, C, Di, FirstRoot, SecondRoot: Real;
  12.     IsCorrect: Boolean;
  13.  
  14. begin
  15.    IsCorrect := False;
  16.    repeat
  17.       try
  18.          Write('Пожалуйста, введите параметр A: ');
  19.          Readln(A);
  20.          isCorrect := True;
  21.       except
  22.          Writeln('Ошибка!Пожалуйста, ведите числовое значение.');
  23.       end;
  24.       if A = 0 then
  25.          Writeln('При A = 0 уравнение не является квадратным, введите другое значение');
  26.    until (IsCorrect) and (A <> 0);
  27.    IsCorrect := False;
  28.    repeat
  29.       try
  30.          Write('Пожалуйста, введите параметр B: ');
  31.          Readln(B);
  32.          IsCorrect := True
  33.       except
  34.          Writeln('Ошибка!Пожалуйста, введите числовое значение.');
  35.       end;
  36.    until (IsCorrect);
  37.    IsCorrect := False;
  38.    repeat
  39.       try
  40.          Write('Пожалуйста, введите параметр C: ');
  41.          Readln(C);
  42.          IsCorrect := True
  43.       except
  44.          Writeln('Ошибка! Пожалуйста, введите числовое значение.');
  45.       end;
  46.       until (IsCorrect);
  47.    Di := B * B - 4 * A * C;
  48.    if Di > 0 then
  49.    begin
  50.       FirstRoot := (-B - Sqrt(Di)) / (2 * A);
  51.       SecondRoot := (-B + Sqrt(Di)) / (2 * A);
  52.       Writeln('Первый корень равен: ', FirstRoot:5:2);
  53.       Writeln('Второй корень равен: ', SecondRoot:5:2);
  54.    end
  55.    else
  56.       if Di = 0 then
  57.       begin
  58.          FirstRoot := (-B) / (2 * A);
  59.          Writeln('Корень уравнения равен: ', FirstRoot:5:2);
  60.       end
  61.       else
  62.          Writeln('Корней нет');
  63.    Readln;
  64. 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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top