SHARE
TWEET

Untitled

a guest Sep 17th, 2019 92 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project5;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.  
  9. System.SysUtils;
  10.  
  11. var
  12.  
  13. A, B, C, Di, FirstRoot, SecondRoot: Real;
  14.  
  15. IsCorrect: Boolean;
  16.  
  17. begin
  18.  
  19. IsCorrect := False;
  20.  
  21. repeat
  22.  
  23. try
  24.  
  25. Write('Пожалуйста, введите параметр A,B,C: ');
  26.  
  27. Readln(A);
  28. Readln(B);
  29. Readln(C);
  30. isCorrect := True;
  31.  
  32. except
  33.  
  34. Writeln('Ошибка!Пожалуйста, ведите числовое значение.');
  35.  
  36. end;
  37.  
  38. if A = 0 then
  39.  
  40. Writeln('При A = 0 уравнение не является квадратным, введите другое значение:');
  41.  
  42. until (IsCorrect) and (A <> 0);
  43. writeln (a,b,c);
  44. 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