Advertisement
kirill001

Untitled

Sep 14th, 2019
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.67 KB | None | 0 0
  1. program Project1;
  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. Begin
  14.   isCorrect:=FALSE;
  15.     repeat
  16.       try
  17.         write('Введите параметр A: ');
  18.         readln(A);
  19.         isCorrect:=TRUE;
  20.         if A=0 then
  21.         writeln('При A=0 уравнение не является квадратным, введите другое значение');
  22.       except
  23.         writeln('Ошибка!Введите числовое значение.');
  24.       end;
  25.     until(isCorrect)and (A<>0);
  26.     isCorrect:=FALSE;
  27.     repeat
  28.       try
  29.         write('Введите параметр B: ');
  30.         readln(B);
  31.         isCorrect:=TRUE
  32.       except
  33.         writeln('Ошибка!Введите числовое значение.');
  34.       end;
  35.     until(isCorrect);
  36.     isCorrect:=FALSE;
  37.     repeat
  38.       try
  39.         write('Введите параметр C: ');
  40.         readln(C);
  41.         isCorrect:=TRUE
  42.       except
  43.         writeln('Ошибка!Введите числовое значение.');
  44.       end;
  45.     until(isCorrect);
  46.   DI:=sqr(b)-4*A*C;
  47.   If DI>0 then
  48.     begin
  49.       Firstroot:=(-B-sqrt(DI))/(2*A);
  50.       Secondroot:=(-B+sqrt(DI))/(2*A);
  51.       writeln('Первый корень равен: ',Firstroot:5:2);
  52.       write('Второй корень равен: ',Secondroot:5:2);
  53.     end
  54.   Else
  55.     If DI=0 then
  56.       begin
  57.         Firstroot:=(-B)/(2*A);
  58.         writeln('Корень уравнения равен: ',Firstroot:5:2);
  59.       end
  60.     Else
  61.       begin
  62.         writeln('Корней нет');
  63.       end;
  64.       readln;
  65. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement